Re: String
11.04.2003 18:01:45
ChrisL
Hallo JanHabe mich mal an der Aufgabe versucht, allerdings habe ich die Leerzeichen nicht berücksichtigt. Müsste dazu auch noch tiefer grübeln aber muss jetzt weg. (glaube im XP gibts sowas wie Replace(String, " ", "") oder ähnlich. Wenigstens ein Anfang...
Option Explicit
Private Sub CommandButton1_Click()
Dim SuchString As String, XWert As String, YWert As String, ZWert As String
Dim PositionKlammer As Byte, PositionKomma As Byte
SuchString = "vertex:struct(x:0.568800000mm,y:0.652800000mm,z:23.652300000mm)"
'Werte zwischen Klammern ausschneiden
PositionKlammer = InStr(SuchString, "(")
SuchString = Mid(SuchString, PositionKlammer + 1, Len(SuchString) - PositionKlammer - 1)
'X Wert ermitteln
PositionKomma = InStr(SuchString, ",")
XWert = Mid(SuchString, 3, PositionKomma - 3)
SuchString = Mid(SuchString, PositionKomma + 1, Len(SuchString) - PositionKomma)
'Y Wert ermitteln
PositionKomma = InStr(SuchString, ",")
YWert = Mid(SuchString, 3, PositionKomma - 3)
SuchString = Mid(SuchString, PositionKomma + 1, Len(SuchString) - PositionKomma)
'Z Wert ermitteln
ZWert = Mid(SuchString, 3, Len(SuchString) - 3)
MsgBox XWert
MsgBox YWert
MsgBox ZWert
End Sub
Gruss
Chris