如何解析字符串（vba）

Humbertogo · 发表于 2006-8-14 06:05:26

我有一个字符串(“G4；$ $ . 1000 }[312.98 { \ h 0.71 x；\ G4$$2.54")
我打算
读取所有以$$
开头的值，例如$$.1000
$$2.54

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

Swift · 发表于 2006-8-14 07:56:39

你在哪个版本的VB(A)中做这个？
如果您在VB 6中工作，您可以使用拆分功能。如果你不是第6版，我可以挖一些东西出来

DaveW · 发表于 2006-8-14 08:23:35

就像斯威夫特说的

Fatty · 发表于 2006-8-14 09:36:40

我认为在这段代码中使用类似的东西更容易，
但不确定

copy

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