Danke....
Naja, wer die eingebauten Funktionen (split) kennt ist klar im Vorteil.
Ich wusste bis jetzt nix von einer Funktion Split - ich hab mir eine selber geschrieben, die immer den String von bis rausholt.
Die Funktioniert ja auch unter VB supa, nur dass der Unterschied zu VBA so groß wär hätt ich nicht gedacht.
Das einzige is halt auch, meine Strings sind ein bissi länger (15-20 zeichen
)
Außerdem: Warum machst du das File wie bei VBS über das Scripting-Object auf?
Das is der Code der das File einliest.... (Trennzeichen ist ein vbLf)
Code:
Open "h:\prpe\matrix" For Input As #1
Line Input #1, strwerte
Close #1
Trim (strwerte)
intdimension = intX - 1
position = InStr(strwerte, vbLf)
For intY = 1 To intdimension
For intX = 1 To intdimension
If intY = 1 And intX = 1 Then
Matrix(intY, intX) = Mid(strwerte, 1, position - 1)
Else
If intY = intdimension And intX = intdimension Then
Matrix(intX, intY) = Mid(strwerte, position, Len(strwerte) - position)
Else
position2 = position
position = InStr(position + 1, strwerte, vbLf)
Matrix(intX, intY) = Mid(strwerte, position2, position - position2)
End If
End If
Next
Next
Der Code ist net 100%ig von mir, da ich nur teilweise da mitarbeite.