Array in type

Try

Private Type MyType
    sometext As String
    a1 As String
    b1 As String
    c1 As String
    a2 As String
    b2 As String
    c2 As String
End Type

Dim abc(19) As MyType

Private Sub Form_Load()
inp = "someText,a1,b1,c1,a2,b2,c2,a3,b3,c3,moreText"

cnt = 0
s = Split(inp, ",")
    abc(cnt).sometext = s(0)
    abc(cnt).a1 = s(1)
    abc(cnt).b1 = s(2)
    abc(cnt).c1 = s(3)
    abc(cnt).a2 = s(4)
    abc(cnt).b2 = s(5)
    abc(cnt).c2 = s(6)

    MsgBox abc(cnt).sometext
    MsgBox abc(cnt).a1
    MsgBox abc(cnt).b1
    MsgBox abc(cnt).c1
    MsgBox abc(cnt).a2
    MsgBox abc(cnt).b2
    MsgBox abc(cnt).c2

End Sub

Your Dim abc(19) As MyType, implicates that there is also 19 times "sometext As String"

on top of that, instead of your example, this should be much faster

    s = Split(inp, ",")
    MsgBox abc(cnt).s(0)
    MsgBox abc(cnt).s(1)
    MsgBox abc(cnt).s(2)
    MsgBox abc(cnt).s(3)
    MsgBox abc(cnt).s(4)
    MsgBox abc(cnt).s(5)
    MsgBox abc(cnt).s(6)

What I look for (using your MsgBox example) is an typeArray, a repeating group of variables:

Type Xabc
  a as string
  b as string
  c as string
End Type

Type MyType
    someText as string
    abc as Xabc
    moreText as string
    xyz as Xabc
End Type

Mt as MyType

Dim Mt
Mt = Split(inp, ",")

MsgBox Mt.someText
For f = 1 to 15
    MsgBox Mt.abc(f).a
    MsgBox Mt.abc(f).b
    MsgBox Mt.abc(f).c
next f
MsgBox Mt.moreText

But this is NOT working in this example/definition, so how to solve ?

If the data is FIXED WIDTH it's possible.  For variable length, comma delimited data it's generally not possible and you simply have to manually assign each field to the appropriate structure member.

What if it is fixed? how to solve that in a structure with repeating filed-groups

For repeating field groups use this :

Private Type MyType
    someText As String
    a1 As String
    b1 As String
    c1 As String
    a2 As String
    b2 As String
    c2 As String
    a3 As String
    b3 As String
    c3 As String
    moreText As String
End Type

Dim Mt(15) As MyType, inp(15)

Private Sub Form_Load()
inp(1) = "someText,a1,b1,c1,a2,b2,c2,a3,b3,c3,moreText"
inp(2) = "SOMETEXT,A1,B1,C1,A2,B2,C2,A3,B3,C3,MORETEXT"

For cnt = 1 To 2
s = Split(inp(cnt), ",")

    Mt(cnt).someText = s(0)
    Mt(cnt).a1 = s(1)
    Mt(cnt).b1 = s(2)
    Mt(cnt).c1 = s(3)
    Mt(cnt).a2 = s(4)
    Mt(cnt).b2 = s(5)
    Mt(cnt).c2 = s(6)
    Mt(cnt).a3 = s(7)
    Mt(cnt).b3 = s(8)
    Mt(cnt).c3 = s(9)
    Mt(cnt).moreText = s(10)

    MsgBox Mt(cnt).someText
    MsgBox Mt(cnt).a1
    MsgBox Mt(cnt).b1
    MsgBox Mt(cnt).c1
    MsgBox Mt(cnt).a2
    MsgBox Mt(cnt).b2
    MsgBox Mt(cnt).c2
    MsgBox Mt(cnt).a3
    MsgBox Mt(cnt).b3
    MsgBox Mt(cnt).c3
    MsgBox Mt(cnt).moreText
Next
End Sub

Take a look at Random Access Files with UDTs in VB6:
http://www.vb6.us/tutorials/working-random-access-files-vb

Hi vb_elmar,

In that case I have an array with records, in stead of having an object with fields
the proicess is habdlin the file per record:

Do until eof(1)
     Input #1, in
     MyType = Split(in, ",")
    ProcessRec(MyType)
Loop

That is the idea

I attached a sample VB6 Project.

abc.csv :

someText;a1;b1;c1;a2;b2;c2;a3;b3;c3;moreText
SOMETEXT;A1;B1;C1;A2;B2;C2;A3;B3;C3;MORETEXT

Select allOpen in new window

-CSV stands for "Comma Separated Values". In this case
we should use ";" as splitting separator (see sample CSV file in "1csv.zip").

Private Type MyType
    someText As String
    a1 As String
    b1 As String
    c1 As String
    a2 As String
    b2 As String
    c2 As String
    a3 As String
    b3 As String
    c3 As String
    moreText As String
End Type

Dim Mt() As MyType, Cnt As Long

Private Sub ProcessRec(ByVal i As String)

Cnt = Cnt + 1
ReDim Preserve Mt(Cnt)
s = Split(i, ";")

    Mt(Cnt).someText = s(0)
    Mt(Cnt).a1 = s(1)
    Mt(Cnt).b1 = s(2)
    Mt(Cnt).c1 = s(3)
    Mt(Cnt).a2 = s(4)
    Mt(Cnt).b2 = s(5)
    Mt(Cnt).c2 = s(6)
    Mt(Cnt).a3 = s(7)
    Mt(Cnt).b3 = s(8)
    Mt(Cnt).c3 = s(9)
    Mt(Cnt).moreText = s(10)

    Print Mt(Cnt).someText
    Print Mt(Cnt).a1
    Print Mt(Cnt).b1
    Print Mt(Cnt).c1
    Print Mt(Cnt).a2
    Print Mt(Cnt).b2
    Print Mt(Cnt).c2
    Print Mt(Cnt).a3
    Print Mt(Cnt).b3
    Print Mt(Cnt).c3
    Print Mt(Cnt).moreText

End Sub

Private Sub Form_Load()
    Cnt = 0
    hf = FreeFile
    Open App.Path & "\abc.csv" For Input As #hf
    Do Until EOF(hf)
        Line Input #hf, i
        ProcessRec i
        Loop
    Close #hf
End Sub

Select allOpen in new window

1csv.zip

Hi vb_elmar,

Can you explain why I should reDim Mt if I need only one record to process?

What I need is:

Mt.abc(Cnt).a
Mt.abc(Cnt).b
Mt.abc(Cnt).c

If there's only one record to process no ReDim is needed and the code looks like this:

Private Type MyType
    someText As String
    a1 As String
    b1 As String
    c1 As String
    a2 As String
    b2 As String
    c2 As String
    a3 As String
    b3 As String
    c3 As String
    moreText As String
End Type

Dim Mt(0) As MyType, Cnt As Long

Private Sub ProcessRec(ByVal i As String)

s = Split(i, ";")

    Mt(Cnt).someText = s(0)
    Mt(Cnt).a1 = s(1)
    Mt(Cnt).b1 = s(2)
    Mt(Cnt).c1 = s(3)
    Mt(Cnt).a2 = s(4)
    Mt(Cnt).b2 = s(5)
    Mt(Cnt).c2 = s(6)
    Mt(Cnt).a3 = s(7)
    Mt(Cnt).b3 = s(8)
    Mt(Cnt).c3 = s(9)
    Mt(Cnt).moreText = s(10)

End Sub

Private Sub Form_Load()
    Cnt = 0
    hf = FreeFile
    Open App.Path & "\abc.csv" For Input As #hf
    Do Until EOF(hf)
        Line Input #hf, i
        ProcessRec i
        Loop
    Close #hf
End Sub

Select allOpen in new window

Hi,

Dim Mt As MyType  is enough, don't need an index

Still need an array within the type:
    Mt.someText = s(0)
    Mt.abc(1).a = s(1)
    Mt.abc(1).b = s(2)
    Mt.abc(1).c = s(3)
    Mt.abc(2).a = s(4)
    Mt.abc(2).b = s(5)
    Mt.abc(2).c = s(6)
    Mt.abc(3).a = s(7)
    Mt.abc(3).b = s(8)
    Mt.abc(3).c = s(9)
    Mt.moreText = s(10)

or if that is to complex:

    Mt.someText = s(0)
    Mt.a(1) = s(1)
    Mt.b(1) = s(2)
    Mt.c(1) = s(3)
    Mt.a(2) = s(4)
    Mt.b(2) = s(5)
    Mt.c(2) = s(6)
    Mt.a(3) = s(7)
    Mt.b(3) = s(8)
    Mt.c(3) = s(9)
    Mt.moreText = s(10)

COOL Dude

This is what I looked for, Now I have a XML like simulation of a CSV GREAT.