Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
  • ベストアンサー

テキストファイルを一行づつとる方法

テキストファイルを一行だけとる方法は以下のとおりかと思いますが、最後の列まで一行づつとる場合はどうすればいいのでしょうか？教えて頂ければ幸いです。 Open "c:\data.txt" For Input As #1 Line Input #1, str Close #1

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17070)
回答No.2

Sub test01() Open "c:\my documents\a13.csv" For Input As #1 i = 0 While Not EOF(1) Line Input #1, a i = i + 1 If i Mod 2 = 1 Then '処理 MsgBox i End If Wend Close #1 End Sub １，３，５、・・番目を処理します。 ２、４、６、・・・なら　i Mod 2 = 0に変える。

すると、全ての回答が全文表示されます。

その他の回答 (1)

  • maruru01
  • ベストアンサー率51% (1179/2272)
回答No.1

こんにちは。maruru01です。 ループすればいいでしょう。 Dim strData() As String Dim i As Long Open "c:\data.txt" For Input As #1 　　Do Until EOF(1) 　　　　ReDim Preserve strData(i) 　　　　Line Input #1, strData(i) 　　　　i = i + 1 　　Loop Close #1

すると、全ての回答が全文表示されます。
  1. カテゴリ
  2. [技術者向] コンピューター
  3. プログラミング・開発
  4. Visual Basic

関連するQ&A

注目のQ&A

カテゴリ

OKWAVE コラム

あなたにピッタリな商品が見つかる！ OKWAVE セレクト

専門家に質問してみよう

職業から探して質問する
質問する