UC知道VB 查找怎么写
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:39:55
Text1里面是文件类容，查找的类容是这个样子的name="zhangshan"，我想以name为查找的关键字，把后面的名字显示在Text2中，然后继续查找后面带有name="..."的类容，在输出给text2，以此类推。
本人急用，希望有人解答，最好能有注释！本人感激不尽，放上50分以作感谢！
我可能没有说清楚题目，我用打比方的办法吧。
Inet1.URL = www.baidu.com
Text1.Text = Inet1.OpenURL
以上代码就能让text1里面的内容为百度首页的网页源文件类容。
接下来我需要查找Text1里面的href，和src下面的类容，因为href，和src有许多个，每查找到一个就把href，和src后面的类容（类容就是省略号里面的href="..."和src="..."），是href下的类容就显示在Text2里面，是src下的类容就显示在Text3里面。
Rainbow_Route, VB妮可 麻烦你们帮忙改成我后来要的样子吧！现在是80分，我到时候在追分，麻烦了～
本人急用，希望有人解答，最好能有注释！本人感激不尽，放上50分以作感谢！
我可能没有说清楚题目，我用打比方的办法吧。
Inet1.URL = www.baidu.com
Text1.Text = Inet1.OpenURL
以上代码就能让text1里面的内容为百度首页的网页源文件类容。
接下来我需要查找Text1里面的href，和src下面的类容，因为href，和src有许多个，每查找到一个就把href，和src后面的类容（类容就是省略号里面的href="..."和src="..."），是href下的类容就显示在Text2里面，是src下的类容就显示在Text3里面。
Rainbow_Route, VB妮可 麻烦你们帮忙改成我后来要的样子吧！现在是80分，我到时候在追分，麻烦了～
好象题目不太清楚..
是在TEXT1中输入文件名以后, 将查找到的文件路径返回到TEXT2吗?
查找的是 zhangshan.* 文件吗?
呵呵,原来是这样子,那补充一下吧:
Private Sub Command1_Click()
Dim i%, j%, s$, FindStr$
FindStr = "name="""
i = 1
Do While InStr(i, Text1, FindStr) <> 0
j = InStr(i, Text1, FindStr) + 6
i = InStr(j, Text1, Chr(34))
s = s & Mid(Text1, j, i - j) & vbCrLf
Loop
Text2 = s
End Sub
你的补充里面的找法,其实和上面一样啦.找了2次而已..
Private Sub Command2_Click()
Dim i%, j%, s$, FindStr$
FindStr = "href="""
i = 1
Do While InStr(i, Text1, FindStr) <> 0
j = InStr(i, Text1, FindStr) + 6
i = InStr(j, Text1, Chr(34))
s = s & Trim(Mid(Text1, j, i - j)) & vbCrLf
Loop
Text2 = s
s = ""
FindStr = "src="
i = 1
Do While InStr(i, Text1, FindStr) <> 0
j = InStr(i, Text1, FindStr) + 4
i = InStr