ホーム > カテゴリ > Excel・VBA >

ファイルから指定文字数を読み込む - Input/InputB関数 [ExcelのVBA]

Input/InputB関数

Input/InputB関数はファイルから指定文字数を読み込みます。

分類ファイル

書式

Input(number, [#]filenumber)

number読み込む文字数
filenumberFreeFile関数で取得したファイル番号

※InputBはバイナリモードで読み込みます。また、numberにはバイト数を指定します。

使用例

次はCドライブにある「test.txt」ファイルを読み込んだ例となります。

Private Sub CommandButton1_Click()
  Dim fileNo As Integer  ' ファイル番号
  Dim buffer As String   ' 一時的に文字列を格納
  Dim Str As String      ' ファイルの内容
  Dim filename As String ' ファイル名
   
  ' 読み込むファイル名
  filename = "C:\test.txt"

  ' ファイルを開く為のファイル番号を取得
  fileNo = FreeFile
  
  ' 指定されたファイルを開く
  Open filename For Input As #fileNo
   
  ' ファイルがEOF(ファイルの終端)になるまでループをする
  Do Until EOF(fileNo)
    
    ' ファイルから一文字づつbufferに読み込む
    buffer = Input(1, #fileNo)
    
    ' 読み込んだファイル内容を格納する
    Str = Str + buffer
  Loop
  
  Close #fileNo
 
  Debug.Print Str
  
End Sub

結果

※UTF8に対応したファイルの読み込みは「ファイルの操作(Shift-JIS/UTF8対応)」の記事をご覧ください。

Visual Basicのファイル換関数

関数名内容
EOFファイルの現在位置が終端の場合にTrueを返す
FileAttrオープンしたファイルのファイルモードを返す
FileDateTimeファイルの作成日時または最終更新日時を返す
FileLenファイルのサイズを返す
FreeFileファイルをオープンする為のファイル番号を返す
GetAttrファイルやフォルダの属性を返す
Input/InputBファイルから指定文字数を読み込む
LOFオープンしているファイルの長さを返す
Seekオープンしているファイルの位置を返す

エクセル講座のクイックリンク

ホーム 新機能 基本(初級) 基本(中級) 基本(上級) 関数 マクロ VBA TIPS





関連記事


前の記事：ファイルやフォルダの属性を返す - GetAttr関数 [ExcelのVBA]
次の記事：オープンしているファイルのサイズを返す - LOF関数 [ExcelのVBA]

公開日：2015年07月08日
記事NO：01164


この記事を書いた人

💻 ITスキル・経験
サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。

画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ
プチモンテ代表、アーティスト名：プチモンテ
🎵 音楽制作
BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ～

オリジナル曲を始めました✨

YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte

【男性ボーカル】DA・KA・RA | 新たな明日が風と共に訪れる

【男性、女性ボーカル】時空を超越する先に | 時空と風の交響曲

【女性、男性ボーカル】絆 | 穏やかな心に奏でる旋律