vb中怎么获取一个字符串中想要的值？

来源：百度知道 编辑：UC知道 时间：2024/06/23 08:54:14
如 &abcderfgsdsd* 这个字符串 我想获取&到*中间的数据，*后面还有是很多数据，请问要怎么实现，我的意思就是遇到&就开始获取数据，到*，就结束。赋值给变量
还想请问一下，怎么判断一个字符串里面有没有*符号？

Dim r As String, s As String
r = "&abcderfgsdsd*"
s = Mid(r, InStr(r, "&") + 1, InStr(r, "*") - InStr(r, "&") - 1)
print s

用instr 找到&和*的位置,用mid取的字符串

先用instr函数找到&和*两个符号的位置，然后使用midstr取子串就OK。

Private Sub Form_Load()
s = "&abcderfgsdsd*fghf&dh*&"
Dim re
Set re = CreateObject("VBScript.RegExp")
re.IgnoreCase = True
re.Global = True
re.Pattern = "&(.*?)\*"
For Each i In re.Execute(s)
MsgBox i.SubMatches(0)
Next
End Sub