この記事の例では、VB でテキスト ファイルを 1 行ずつ読み取る方法を説明します。皆さんの参考に共有してください。詳細は以下のとおりです。
'(一般宣言)Dim nFileNum As Integer、sText As String、sNextLine As String、lLineCount As Long'============================ ======Private Sub Command1_Click()' 空きファイル番号を取得しますnFileNum = FreeFile' 入力用にテキスト ファイルを開きます。入力ボックスはファイルを読み取るパスを返します。「C:/Documents and Settings/Sudeep/My」を開きます。 nFileNumlLineCount = 1 として入力する場合は「Documents/3.txt」 ファイルの内容を読み取ります EOF(nFileNum) ではない間に実行します 行入力 #nFileNum, sNextLine 'それを使って何かをします 'この場合は行番号を追加します! sNextLine = sNextLine & vbCrLf sText = sText & sNextLineLoopText1.Text = sText' ファイルを閉じるClose nFileNumEnd Sub
この記事が皆様の VB プログラミングのお役に立てれば幸いです。