VB 删除text1里中文前面所有英文字符

来源：百度知道 编辑：UC知道 时间：2024/06/06 13:41:27
假如text1里有:"WW: 123456789 英文用户名: ABCDEF"/其中123456789与ABCDEF的字符长度不确定
怎样让123456789显示在text2里.ABCDEF123456789显示在text3里,

Private Sub Command1_Click()
Text2.Text = Mid$(Text1.Text, 4, InStr(Text1.Text, " 英文用户名: ") - 3)
Text3.Text = Mid$(Text1.Text, InStr(Text1.Text, "英文用户名:") + Len("英文用户名:"))
End Sub

i=instr(1,text1,"英文用户名:")
text2 = left(text1,i-1)
text3 = mid(text1,i+6)

如果连WW:也不要那么text2改成
text2 = mid(text1,4,i-4)