TOP > カテゴリ > Excel >

ファイルから指定文字数を読み込む - 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