Reading values from a text file

Hi Leith Ross, Sorry for late response. Thanks for you reply and macro. I have modified this macro for my requirement but getting some problem.

 Sub CopyFilesToArray()

  Dim Data As Variant
  Dim FileData() As Variant
  Dim FileArray As Variant
  Dim FileName As Variant
  Dim FilePath As String
  Dim I As Long, J As Long
  Dim req_par(1 To 50) As String
  
    count = 2
    
    ' count is fixed for a particular case and calculated before this step
    
    FilePath = "C:\"
    
    ' FileArray = Array("req_par1.txt", "req_par2.txt")
    
    ' Trying to produce the above FileArray using below lines
    
    For r = 1 To count
    FileArray = Array("req_par" & CStr(r) & ".txt")   
    Next
    
    ' But not storing both text files. Only storing second one.
    ' Not producing the same result as given by you
    
  
    ReDim FileData(1 To 50, 1 To UBound(FileArray) + 1)
    
      For Each FileName In FileArray
        J = J + 1
        FileName = FilePath & FileName
        Open FileName For Input As #1
          Do While Not EOF(1)
            I = I + 1
            Input #1, Data
            FileData(I, J) = Data
          Loop
        Close #1
        I = 0
      Next FileName
      
End Sub

If I am able to produce FileArray similar to given by you, then my problem will be 95% solved. Can you suggest me on this?

Its really awesome response from you on this problem.

Thanks
Krish T

Hi Leith, Thanks for your quick response. Here the above code is giving the problem in the following loop:

     For r = 1 To count
      FileArray(r) = "req_par" & CStr(r) & ".txt"
    Next

so I have changed the above code as below and it is working:

 Sub CopyFilesToArray()

  Dim Data As Variant
  Dim FileData() As Variant
  Dim FileArray As Variant
  Dim FileName As Variant
  Dim FilePath As String
  Dim I As Long, J As Long
  Dim req_par(1 To 50) As String
  
    count = 2
    
    ReDim FileArray(count - 1) 
    
    FilePath = "C:\"

    For r = 0 To count - 1
    FileArray(r) = "req_par" & CStr(r + 1) & ".txt"
    Next
    
    ReDim FileData(1 To 50, 1 To UBound(FileArray) + 1)

    For Each FileName In FileArray
        J = J + 1
        FileName = FilePath & FileName
        Open FileName For Input As #1
          Do While Not EOF(1)
            I = I + 1
            Input #1, Data
            FileData(I, J) = Data
          Loop
        Close #1
        I = 0
      Next FileName
      
End Sub

Thanks
Krish T

You are genius Leith. Solved my problem. Thanks a lot. Really helpful to me.

Thanks
Krish T

No problem Leith. Once again Thanks to you.