如何用VB查询字母后的数字

来源：百度知道 编辑：UC知道 时间：2024/06/24 15:26:25
查询TXT文本中的一串字母后面的连续数字字符
窗体上有一个text1用来输入查询的字母串,text2用来输出结果.
按下command1后,text2显示结果
如c:\1.txt的内容:
ioqweuiodsfdjk2123dsfdiou42353
qsjfktox27496shrit
sihps12jdn97jd
qown10238jjjjj

查询jk则text2显示2123
查询tox则text2显示27496
查询sihps则text2显示12
查询wn则text2显示10238
请问要怎么写啊,请写出代码,谢谢!

Dim txtstr As String

Private Sub Command1_Click()
fdstr = Replace(Text1.Text, " ", "")
b = InStr(txtstr, fdstr) + Len(fdstr)
i = 1
Do While IsNumeric(Mid(txtstr, b + i, 1))
i = i + 1
Loop
Text2.Text = Mid(txtstr, b, i)
End Sub

Private Sub Form_Load()
Dim fn As Integer
fn = FreeFile
Open "c:\1.txt" For Input As fn
Do While Not EOF(fn)
Line Input #fn, temp
txtstr = txtstr & temp
Loop
txtstr = Replace(txtstr, " ", "")

End Sub