VB判断一个字符是否存在

任意 判断 一个指定字符的是否存在

比如

dim ppp

ppp="19_66"

PPP是任意字符 也可以等于 "asdasd_621"

只要判断 "_" 字符存在就把前把的所有字符都去掉

得到值等于 后面的字符

会的人直接给出可用代码 急用!

Private Sub Command1_Click()
s = "ggyy_1234"
i = InStr(1, s, "_") ' i就是_的精确位置
If i > 0 Then ' 表示找到了_
s = Right(s, Len(s) - i + 1) ' 截取_开始后的所有字符
End If
Print s
End Sub