複数のtextファイルを読込む

K  2012-10-02 19:41:43  No: 143400  IP: [192.*.*.*]

使用しているのは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)と区別して認識させる方法はあるのでしょうか？

編集 削除
オショウ  2012-10-04 14:48:33  No: 143401  IP: [192.*.*.*]

それを作るのがプログラマーの仕事ですが・・・

で、できるか、できないか？は、『できます』

以上。

編集 削除
K  2012-10-10 11:16:14  No: 143402  IP: [192.*.*.*]

不躾な質問申し訳ございませんでした。

編集 削除