Taludtrækning fra input fil??

Det kan jeg - men venter og ser om ikke andre gider svare, da jeg har travlt! Er der ikke svar i løbet af i morgen, skal jeg nok give dig svaret, så fortvivl ikke ;o)

Her har du en kode der laver dette input

test.txt:

1,2425 -3,342 5,342 45,2342
343,343 334 23,3 -234,5

om til dette:

a: 1,2425
b: -3,342
c: 5,342
d: 45,2342
e: 343,343
f: 334
g: 23,3
h: -234,5


Koden tager hvert eneste "ord" i koden og skriver det til en rich textbox (indsat component), HVIS ordet er et tal. Ellers springer den videre til næste "ord":



Private Sub Form_Load()
Dim str As String

Open "c:\test.txt" For Input As #1
str = Input(FileLen("c:\test.txt"), 1)
Close #1

str = Replace(str, vbCrLf, " ")

x = -1
strwords = Split(str)
letters = Array("a", "b", "c", "d", "e", "f", "g", "h", "i", "j")

For i = 1 To UBound(strwords)

If IsNumeric(strwords(i)) Then
  x = x + 1
  RichTextBox1.Text = RichTextBox1.Text & letters(x) & ": " & strwords(i) & vbCrLf
End If
Next i

End Sub


Mvh
Martin