スポンサーサイト

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

テキストファイルを1行ずつ読み込む

VBScript

Dim myFSO, myFile
Dim tmpS

Set myFSO = WScript.CreateObject("Scripting.FileSystemObject")
Set myFile = myFSO.OpenTextFile("indata.txt")
Do
    MsgBox myFile.ReadLine
Loop Until myFile.AtEndOfStream
myFile.Close
Set myFile = Nothing
Set myFSO = Nothing
 
テキストファイルを1行ずつ読み込むには TextStreamオブジェクトを準備して、OpenTextFileメソッドで 読み込みたいファイルを開いた後、ReadLineメソッドを使う。
 
ファイルの終わりに達した際にはAtEndOfStreamプロパティが Trueになるので、これを参照することでファイルを終わりまで 順に読み込むことができる。
 
読み込み終わったら、ファイルはCloseメソッドで閉じる。
上記サンプルでは"indata.txt"を最後まで順に読み込んで、 1行ずつ画面に出力している。
 
関連記事
スポンサーサイト

テーマ : ソフトウェア開発
ジャンル : コンピュータ

プロフィール

みっちょ (田上 暢顕)

Author:みっちょ (田上 暢顕)
 
30年以上ひたすら毎日プログラミングを続けているエンジニアの『みっちょ』です。

ここでは開発を行う際の覚書の他、私が日頃から色々な開発を行う中で便利だと感じているツールやサービスなどを紹介しています。



連絡先
 110651321
 michyox
 4348126
 Ravijour

友達申請などWelcomeです☆
基本的に断りませんので、お気軽に申請してください♪

最新記事
最新コメント
最新トラックバック
月別アーカイブ
カテゴリ
検索フォーム
RSSリンクの表示
リンク
ブロとも申請フォーム

この人とブロともになる

QRコード
QR
上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。