plumlee 发表于 2013-4-6 22:37:20

VB怎样取得两个*号之间的字符串？

本帖最后由 plumlee 于 2013-4-7 03:02 编辑

大家好，我是初哥。请教以下的例样中，我怎样才能取得*号之间的字符串，谢谢!!

A64700748166976902100-06-24+06P9A0673300680000004C0300183839070530530539A7500053
0000^^*K8152xxxxxx00268**

SkyGz 发表于 2013-4-6 22:48:11

Dim s, ss As String
ss = "A76700452127583901500-04-17+01P9A0673600680000004F0300199451170210210219A77000210000^^*K815260000268**"
s = Mid$(ss, InStr(ss, "*") + 1, Len(ss))
s = Mid$(s, 1, InStr(s, "*") - 1)

MsgBox s

plumlee 发表于 2013-4-7 03:00:54

谢谢楼上的“W” 哥
但我找到更方便的方法了!!

Split 这个函数才方便啊
          Dim b() As String
          b = Split(ss, "*")
       msgboxb(1)

plumlee 发表于 2013-4-7 03:01:37

Split真的很少人用的。我之前也写一很长。
页: [1]
查看完整版本: VB怎样取得两个*号之间的字符串？