Splitting into multi-dimensional array

[kpark91]

Hello,
I need to be able to split a string into multi-dimensional array.

At first, I opened a file delimited by semicolon.
and I just want to read first 4 lines of the file to grab the data I need.

Here is an attempt which failed:

Sub Test()
    Dim objFSO As New FileSystemObject, objFile As Object, i&, strDataSetting$(0 To 3, 0 To 5)
 
    If objFSO.FileExists(strPath) Then
        With objFSO.OpenTextFile(strPath, ForReading)
            For i = 0 To 3
                If Not .AtEndOfStream Then
                    strDataSetting(i,) = Split(.ReadLine, ";")
                End If
            Next i
        End With
    End If
 
End Sub

so, my array would look something like

strDataSetting
i\j  0    1    2    3    4    5
0    a    b    c    d    e    f 
1    a    b    c    d    e    f
2    a    b    c    d    e    f
3    a    b    c    d    e    f

at the end of the day, if the file looks like this:

a;b;c;d;e;f
a;b;c;d;e;f
a;b;c;d;e;f
a;b;c;d;e;f


Thank you in advance,
Kpark.

Any suggestions are welcome!

PS: If anybody is wondering why I might be using a 2-dimensional array is because I need to make sure the file is valid.
That means the file must consist of at least 4 lines but I had no way of checking it without reading the whole file first then looping to find the number of vbNewLine.
So, in this, I'm trying to store the data while I am reading each line of the file which should give better runtime.

 

[pgc01]

Hi

If, like in this case, you have a dynamic array, you cannot set the dimension bounds beforehand. In this case you are generating the array for each line using Split() and so you'll get a jagged array.

Try:

Sub Test()
Dim objFSO As New FileSystemObject, objFile As Object
Dim i As Long, strDataSetting(0 To 3) As Variant, strPath As String
 
strPath = "c:\tmp\Test.txt"
 
If objFSO.FileExists(strPath) Then
    With objFSO.OpenTextFile(strPath, ForReading)
        For i = 0 To 3
            If Not .AtEndOfStream Then
                strDataSetting(i) = Split(.ReadLine, ";")
            End If
        Next i
        .Close
    End With
End If
 
' display the second character in the third line
MsgBox strDataSetting(2)(1)
 
End Sub

I used a text file with:

a;b;c;d;e;f
g;h;i;j;k;l
m;n;o;p;q;r
s;t;u;v;w;x

 

[kpark91]

Hello, thank you for the reply.

the code is giving a compile error stating "Wrong number of dimensions"
at

MsgBox strDataSetting(2)(1)

 

[pgc01]

Something must be wrong with your declaration of strDataSetting.

Please copy the code I posted and change only the pathname of the file.

 

[kpark91]

It's working perfectly.

Thank you!!

 

[kpark91]

The code does not seem to be working in UTF text files but only in ANSI

 

[kpark91]

Found out why.

With objFSO.OpenTextFile(strPath, ForReading, False, TristateTrue)

is the correct way of opening UTF text files.

 

[pgc01]

I'm glad you've got it working ok. Cheers.