ファイルから指定文字数を読み込む - Input/InputB関数 [ExcelのVBA]
Input/InputB関数
Input/InputB関数はファイルから指定文字数を読み込みます。
分類 | ファイル |
---|
書式
Input(number, [#]filenumber)
number | 読み込む文字数 |
filenumber | FreeFile関数で取得したファイル番号 |
※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 | オープンしているファイルの位置を返す |
エクセル講座のクイックリンク
スポンサーリンク
関連記事
公開日:2015年07月08日
記事NO:01164