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

K 2012-10-03 04:41:43 No: 143400

使用しているのは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 23:48:33 No: 143401

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

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

以上。

K 2012-10-10 20:16:14 No: 143402

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