VB 截取字符串的内容

Question

窗口text1有 abcABC
我想让text2截取abc显示在text2.text上
text3截取ABC显示在text3.text上
请高手解决下！~

Answer 1

符串截取技术(探讨用InStrRev函数配合Right/Left函数截取字符串)

VB的Right函数、Left函数提供了从左或从右在已知字符串中截取指定数量的未知字符串的功能，不过要获取某个特定字符前面或者后面的字符串，情形就不一样了，比如我们要在字符串"E:\MyFavourite\001\xxx.xxx"中截取最后一个"\"后面的字符串亦即文件名，单单用上述几个函数是难以实现的，因为文件名的字节数难以确定。这时函数InStrRev就派上用场了。InStrRev返回一个字符串在另一个字符串出现的位置，充分利用它可以轻而易举地截取所要的内容。
下面举个实例来加以说明，希望大家可以从中得到启示。本例仅需要一个TextBox控件。

PrivateSubForm_Load()
'声明已知字符串的字节数、"\"所在位置的变量
DimnAsInteger‚mAsInteger
'声明字符串变量
DimiAsString‚jAsString
j="E:\Music\MyFavourite\001\Spring.mp3"'已知字符串初值
i="\"'要查找的指定字符
Forn=1ToLen(j)'这里用了Len函数来计算已知字符串的字节数
m=InStrRev(j‚i‚-1)'"\"所在的位置(其中的-1是默认的)
Nextn
'显示最后一个"\"后面的字符串
Text1.Text=Right(j‚Len(j)-m)
EndSub

运行程序，文本框中的是不是明明白白地躺着"Spring.mp3"？试着改一改j变量，得到的结果是不是预期的？->

Answer 2

Private Sub Command1_Click()
Dim i As String
Dim x As Integer
Dim y As Integer
i = CStr(Text1.Text)
x = InStr(i, "abc")
y = InStr(i, "ABC")
Text2.Text = Mid(i, x, 3)
Text3.Text = Mid(i, y, 3)
End Sub本回答被提问者采纳

Answer 3

我昨天才开始看VB，3楼的是对的，
text2.text=left(text1.text,3) 可以写成TEXT2=LEFT（TEXT1，3）。
TEXT#的缺省属性就是TEXT。

Answer 4

text2.text=left(text1.text,3)
text3.text=right(text1.text,3)