vb截取txt中的字符串

Question

<a title="C++程序设计基础（一）" class="cur" id="videoindex1" href="/play_400003718_38117.shtml">1</a>
这一段HTML代码，我将它存在一个txt文档中，我想截取38117这个数字，请问该如何做？

Answer 1

Dim s() As String, s1() As String
Open "数据.txt" For Binary As #1
s = Split(Input(LOF(1), #1))
Close #1
s1 = Split(s(1), "，") '第一行为s(0)，第二行为s(1)，依此类推
Text1.Text = s1(0)
Text2.Text = s1(1)
Text3.Text = s1(2)
Text4.Text = s1(3)
Text5.Text = s1(4)