当ブログに掲載しているサンプルは、すべて利用者の自己責任とします。
ただし、明らかな不具合がある場合、ご連絡いただければ、訂正記事を出します。
また、こちらのサンプルは、別のサイト等への公開、転載は一切禁止しています。
どうしてもと言う場合は、筆者にあらかじめご連絡ください。
記事そのもののリンクについてはご自由に行っていただいてよいです。
xxのようなサンプルを作って欲しいとかxxxの作り方を教えて欲しいというお問い合わせには応じていません。
このようなお問い合わせは、株式会社エフまでご一報ください。

2008年9月1日月曜日

ファイルの読み込み

ファイルの読み込みについて、触れていなかったようなので、書いてみる。

テキストファイル(CSVを含む)なら、1件ずつ読み込んでいくと言うだけの処理なので
そんなに難しくはないはずである。
今回は、1レコードずつ読み込んでいくものである。


サンプルは、c:\script.txtというファイルを読み込んで、全データを連結してまとめて表示するものである。


Sub Click(Source As Button)
    Dim sbj As Variant
    
    'ファイル番号を割り当てる
    fileNum% = Freefile()
    
    '出力用にファイルをオープンする
    Open "c:\script.txt" For Input As #fileNum%
    
    '全文書数分の繰り返し
    Do While Not Eof( fileNum% )
        'ファイルから読み込む
        Input #fileNum%, dt$
        sbj = sbj + dt$ + Chr$(13)
    Loop
    Messagebox sbj, 0, "ファイルからの読み込み"
    
    'ファイルをクローズする
    Close #fileNum%
End Sub



Lotus Notes/Domino カスタマイズとセキュリティ強化 - 株式会社エフ

0 件のコメント: