Topic: How do I parse a string (vba)

[Humbertogo]

I have an string("G4;$$.1000}[312.98{\H0.71x;\G4;$$2.54")

what i intend to do is
read all values that starting with $$
for example
$$.1000
$$2.54

[Swift]

What version of VB(A) are you doing this in?

If your working in VB 6 you can you the split function. If your not in version 6 I can dig some stuff up

[DaveW]

Like Swift says.

Swift, according to his other posts he's using VB6 and ACAD Mechanical.

[Fatty]

I think easier yet to use something similar on this code,
not sure though

Code: [Select]

Sub ParseBB()
Dim a, b, s, h, t As String
Dim pos As Long
Dim ar() As String
s = "G4;$$.1000}[312.98{\H0.71x;\G4;$$2.54"
a = "$$"
ar = Split(s, a)
s = ar(1)
 
While Left(s, 1) Like "[0-9]" Or Left(s, 1) Like "."
      a = a & Left(s, 1)
      s = Right(s, Len(s) - 1)
Wend

s = ar(2)
b = "$$"
While Left(s, 1) <> ""
b = b & Left(s, 1)
s = Right(s, Len(s) - 1)
Wend
MsgBox "A : " & a & vbNewLine & _
       "B : " & b

End Sub

~'J'~

[Humbertogo]

Thanks

[Mark]

At first glance this problem could be easily overcome by using the Regular Expressions found in VBScript.

Please refer to this thread for more.
[ http://www.theswamp.org/index.php?topic=11933.0 ]