VB中Trim函数的问题，请高手指教！！！

来源：百度知道 编辑：UC知道 时间：2024/05/19 15:14:25
我想在一个richbox中查询出“用户名”后面的8个字符，如何通过Trim函数实现呢，下面这个是将“用户名”后面所有的字符都显示出来，我想显示后面的8位，请高手指教！！！！！
Text1.Text = Trim(Split(Split(RichTextBox1.Text, "用户名= ")(1), vbCr)(0))
我的RICHBOX中的内容很多其中有一行是： 用户名= aa 电话号码= 123456789
我想在这一行中提取aa 怎么实现？？？？

用right(str,n)函数,从右边取n位

Text1.Text=right（RichTextBox1,8）
要多学学函数啊，你写的太累赘了

提取aa :
你得先确认aa的起始位置和结束位置
要么就是固定的位置
要么就是在第一个“=”和“电”之间的

'那我们先来找“=”的位置
Lstr="用户名= aa 电话号码= 123456789 "
print InStr(Lstr,"=")
'显示结果是4

'接着找“电”的位置
print InStr(Lstr, "电")
'显示结果是9

'然后用MID函数
a=Mid(Lstr,InStr(Lstr, "=") + 1, InStr(Lstr, "电") - InStr(Lstr, "=") - 1)
print a
'显示结果 aa

'最后去空格
print trim(a)
'显示结果aa

text1.text=right(trim("用户名="),8)