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

如何解析字符串（vba）

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

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

我认为在这段代码中使用类似的东西更容易，
但不确定
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 "" 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 发表于 2006-8-14 09:58:19

谢啦

mark 发表于 2006-8-28 09:54:09

乍一看，通过使用 VBScript 中的正则表达式，可以轻松克服此问题。
请参阅此主题以获取更多信息。
[ ]
页: [1]
查看完整版本: 如何解析字符串（vba）