Question

我想知道 vb 如何获取字符串中某个字符之后的所有字符

Answer 1

1. 使用InStr 函数，返回 Variant (Long)，指定一字符串在另一字符串中最先出现的位置。

2. InStr 函数示例

   本示例使用 InStr 函数来查找某字符串在另一个字符串中首次出现的位置。

   Dim SearchString, SearchChar, MyPos
   SearchString ="XXpXXpXXPXXP"   ' 被搜索的字符串。
   SearchChar = "P"   ' 要查找字符串 "P"。
   
   ' 从第四个字符开始，以文本比较的方式找起。返回值为 6（小写 p）。
   ' 小写 p 和大写 P 在文本比较下是一样的。
   MyPos = Instr(4, SearchString, SearchChar, 1)  
   
   ' 从第一个字符开使，以二进制比较的方式找起。返回值为 9（大写 P）。
   ' 小写 p 和大写 P 在二进制比较下是不一样的。
   MyPos = Instr(1, SearchString, SearchChar, 0)
   
   ' 缺省的比对方式为二进制比较（最后一个参数可省略）。
   MyPos = Instr(SearchString, SearchChar)   ' 返回 9。
   MyPos = Instr(1, SearchString, "W")   ' 返回 0。
   

3. 使用Mid 函数，

4. 返回 Variant
   (String)，其中包含字符串中指定数量的字符。

5. Mid 函数示例

   本示例使用 Mid 语句来得到某个字符串中的几个字符。

   Dim MyString, FirstWord, LastWord, MidWords
   MyString = "Mid Function Demo"   建立一个字符串。
   FirstWord = Mid(MyString, 1, 3)   ' 返回 "Mid"。
   LastWord = Mid(MyString, 14, 4)   ' 返回 "Demo"。
   MidWords = Mid(MyString, 5)   ' 返回 "Funcion Demo"。

6. 结合两个函数使用，先获取某个字符在字符串位置，再用Mid函数获取该字符之后的所有字符，见上行例句。

Answer 2

s = "dfefe343krgkrgk:fdfgrgrg" '假定要获得冒号后的所有字符
s = Split(s, ":")(1)
或者
s = Mid(s, Instr(s, ":") + 1)