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

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

本帖最后由 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, "*")
   msgbox  b(1)

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

Split真的很少人用的。我之前也写一很长。

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

阿莫论坛20周年了！感谢大家的支持与爱护！！

浏览过的版块