Parse into array

[johndoe_]

Hi!

I've got this as a string:

200201  +0.600000000000000E+02
200202  +0.290000000000000E+02
200203  +0.430000000000000E+02
200204  +0.760000000000000E+02
200205  +0.590000000000000E+02
200206  +0.660000000000000E+02
200207  +0.500000000000000E+02
200208  +0.660000000000000E+02
200209  +0.750000000000000E+02
200210  +0.880000000000000E+02
200211  +0.720000000000000E+02

I want to put this into a 2dim array.
With [date] and then [value]
[0][0] = 200201,
[0][1] = +0.600000000000000E+02

and so on..

Thanks for help!

[mebhas]

'from the top of my head
'suppose u already have the result in a string variable called strResult
'the final 2 dim array will be called fResult
 
dim fResult() as String
dim tmpMainResult() as String
dim tmpBrokenResult() as String
 
dim tmpcnt as integer
 
tmpMainResult=split(strResult,vbcrlf)
redim fResult(ubound(tmpMainResult),1) as String
 
for tmpcnt=0 to ubound(tmpMainResult)
    tmpBrokenResult=split(tmpMainResult(tmpcnt)," ")
    fResult(tmpcnt,0)=tmpBrokenResult(0)
    fResult(tmpcnt,1)=tmpBrokenResult(1)
next tmpcnt

[bushmobile]

or you could use a custom type:

Private Type MYDATA
    dteDate As Date
    dblValue As Double
End Type
 
Private Sub Command1_Click()
    Dim arrData() As MYDATA, sTemp() As String, N As Long
    
    sTemp = Split(Text1.Text, vbCrLf)
    ReDim arrData(UBound(sTemp))
    
    For N = 0 To UBound(sTemp)
        arrData(N).dteDate = Mid$(sTemp(N), 1, 2) & "/" & _
                             Mid$(sTemp(N), 3, 2) & "/" & _
                             Mid$(sTemp(N), 5, 2)
        arrData(N).dblValue = CDbl(Mid$(sTemp(N), 8))
    Next N
End Sub