Question

获取网页源代码中的指定内容

http://www.tmu.edu.cn/s/7/t/102/p/1/c/1815/d/1820/list.htm 加载这个网页
已经在text2的文本框中得到源代码， 下面是部分代码
<TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext 0.5pt solid; BACKGROUND-COLOR: transparent; HEIGHT: 12.75pt; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl25 height=17>
<P align=center><FONT size=3 face=楷体_GB2312>张学军</FONT></P></TD>
<TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl25>
<P align=center><FONT size=3 face=楷体_GB2312>免疫学</FONT></P></TD>
<TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl24>
<P align=center><FONT size=3 face=楷体_GB2312>巨噬细胞的信号传导</FONT></P></TD>
<TD style="BORDER-BOTTOM: windowtext 0.5pt solid; BORDER-LEFT: windowtext; BACKGROUND-COLOR: transparent; BORDER-TOP: windowtext; BORDER-RIGHT: windowtext 0.5pt solid" class=xl25>
<P align=center><FONT size=3 face=楷体_GB2312>022-23542520</FONT></P></TD></TR>
<TR style="HEIGHT: 12.75pt" height=17>
如何在text3中获得 张学军 免疫学 巨噬细胞的信号传导 022-23542520

Answer 1

这个JS没有方法名称。所以不好确定要找的是哪个JS，假如有多个alert，那就不好找了。
如果就一个的话，那么直接获取网页的innerHTML，然后用substring和indexof("alert")获取就行。
求采纳为满意回答。

追问

url = "http、、htm"
code = GetYM(url, "GB2312")
a = InStr(code, 楷体_GB2312)
a = InStr(a + 1, code, ">")
b = InStr(a + 1, code, "<")
s = s & Mid(code, a + 1, b - a - 1) & " "
用这几句话，该如何修改