Question

VB如何截取指定字符后面的N个字符

举例：“你的验证码是155788554请速到网上填写“，截取”验证码是“后面的那些数字，当然也有可能是字母，位数不固定，手动输入，请教各位了

Answer 1

1、Trim(C)：去掉字符串C两端的空格。

2、Left(C,n)：截取C最左边的n个字符。

3、Right(C,n)：截取C最右边的n个字符。

4、Mid(C,m,n)：截取C中从第m个字符开始的n个字符。

5、Len(C)：返回C包含的字符数，汉字空格都算一个字符。

6、Lcase(C)：将C中的大写字母转化成小写字母。

7、Ucase(C)：将C中的小写字母转化成大写字母。

Answer 2

P=Mid(X,n,m)　　由X的第n个字符读起，读取后面的m个字符。这个一个函数 要实现你说的还要P=InStr(X,Y)从X第一个字符起找出Y出现的位置 现在是写代码 ，不过你还是了解一下相关代码运用dim a as string'a为"你的验证码是155788554请速到网上填写"的字符串'这里给a 赋值dim p,q as Integer '记录相关出现的位置dim o as string '你要的结果记录在这个变量里p=InStr(a,"是")q=instr(a,"请")o=mid(a,p+1,q-1) 你可以把他做成函数，还有不懂的问我，啊！打字真累啊！

Answer 3

用个实例来说把，用的比较传统的方法

首先得有一个字符串str=“abcdefghijk”

然后你指定的字符是"e"

最后你要取"e"后面的4个字符      ---->用肉眼判断也就是"fghi"

程序：

dim str as String     'str用来储存你的字符串
dim mystr as String   'mystr用来春村你指定的字符
dim ct as Integer     'ct用来存储指定字符的坐标
dim strlen as Integer  'strlen用来储存字符串的长度
dim outstr as String   '用于储存结果


str="abcdefghijk"
mystr="e"
strlen=Len(str)   '获得str的字符数
ct=0
outstr=""

For i=1 to strlen
    
    if Mid(str,i,1)=mystr then   '当遍历的字符等于你指定的字符时
    ct=i        '获得指定字符在你字符串中的坐标
    Goto 1000   '跳出该循环到指定标记
    End if   

Next i

1000   '当上面的GOTO 1000执行时程序转到这一行

For i=ct+1 to ct+4  '表示坐标后4位字符 (c+4可以写成其他的，按需要也可用变量)

    outstr=outstr & Mid(str,i,1)  '开始取你要的结果
    
Next i

print outstr   '输出这个字符

 

对于你的题目就是找到"是"之后,  for i=ct+1 to strlen 就可以了(取到末尾)

Answer 4

1. 首先利用方法InStr， 提取指定字符的位置 t

2. 利用字符本身的Substring提取需要的第N个字符

如下，提取a字符串中“B”后面的第2个字符   

    Dim a As String = "ABCDEFG"

        Dim t As Integer = InStr("ABCDEFG", "B")-1

        Dim N As Integer = 2

        Dim b As String = a.Substring(t + N, 1)

instr(返回一个整数，该整数指定一个字符串中另一个字符串的第一个匹配项的起始位置。)

Substring 从此实例检索子字符串；Substring(Int32, Int32) 从此实例检索子字符串。子字符串从指定的字符位置开始且具有指定的长度。

Answer 5

dim a,b a="1+2=3" b=mid(a,instr(a,"=")+1)messagebox(b)