複数のtextファイルを読込む (ID:143400)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

使用しているのはVB6.0です。

DriveListBox、DirListBox,FileListBoxを使用してtxtファイルを読み込み、計算をし、出力したいと考えています。
txtファイルは数値が四列並んでいます。読込みたい複数のファイルの行数は同じ数です。

テキストファイルの例

一行目：文字列
二行目：61.1764	64.0278	-0.00473752	-0.0028136
三行目：86.0617	64.0278	-0.00776723	-0.00278551
  ：
  ：
R 行目：110.947	-60.3987	-0.00340923	-0.00230597

現在はこのような感じです。（Qはファイルの枚数、Rは行数と設定しています。）

Private Sub Command1_Click()
  
    Dim N As Single
    Dim Q As Single
    Dim R As Single
    Dim DataName As String
    Dim Unit As String
    
    Dim A(300) As Single
    Dim B(300) As Single
    Dim C(300) As Single
    Dim D(300) As Single
    
    Q = Val(Text1.Text)
    R = Val(Text2.Text)

For N = 1 To Q
       
    DataName = Dir1.Path & "\" & N & ".txt"
    
  Next N
    
       
  Open DataName For Input As #1
          
      Input #1, Unit
        
         For S = 2 To R
            
              Input #1, A(S), B(S), C(S), D(S)
        
         Next S
        
      Close #1
    
End Sub

以上が該当するであろうコードになります。

複数のファイルを読込んだまま、計算し、出力はできるのでしょうか。
また、
A(S), B(S), C(S), D(S)と数値を設定していますが、これを一枚目のA(S),二枚目のA(S)と区別して認識させる方法はあるのでしょうか？

←解決時は質問者本人がここをチェックしてください。

戻る