很简单:
用mid函数
a="egabcdefghijklmn"
b=mid(a,8,6)
d是第8个字符,从d后取6个,就是mid(a,8,6),再有,你说取6个,应该是efghi,不是defghij(这是7个字符了)
Open 文件 For binary As #1
tmp=input(lof(1),1)
close#1
s=split(tmp,"|")
text1=s(ubound(s))
Private Sub Command1_Click()
a = Left(Text1Text, 3)
b = Right(Text1Text, 3)
End Sub
自己看看正则表达式就行了。
我只给个Demo,剩下的你自己领悟
Module Module1Sub Main()
Dim reg = New SystemTextRegularExpressionsRegex("参数\d+:\s+([^\s])[\s<]+")
For Each a As SystemTextRegularExpressionsMatch In regMatches("1</span> 参数1: D50R5 参数2: 150 参数3: 1 参数4: 55859 参数5: 900 参数6: 4000 参数7: 04/03<br>")
ConsoleWriteLine(aGroups(1))
Next
Dim reg2 = New SystemTextRegularExpressionsRegex("加工总时间:(\d{1,2}:\d{1,2}:\d{1,2})")
ConsoleWriteLine(reg2Match("加工总时间:1:23:47<br> ")Groups(1))
ConsoleWriteLine("按任意键退出")
ConsoleReadKey()
End Sub
End Module
以上就是关于vb中,希望在字符串中读取某特定字符的后几位,该用什么函数全部的内容,包括:vb中,希望在字符串中读取某特定字符的后几位,该用什么函数、vb txt文本读取最后一行指定字符、VB中如何获取字符串取最前面的3个字符和最后3个字符等相关内容解答,如果想了解更多相关内容,可以关注我们,你们的支持是我们更新的动力!
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)