正在阅读：用VB写歌词搜索程序用VB写歌词搜索程序

2004-02-14 09:34 出处：电脑爱好者作者：喻青峰责任编辑：linjixiong

　　　　　'把特征词“

”后面的代码（包括特征词自身）全部去掉
　　　　　网页代码$ = Left(网页代码$, 位置& - 1)
　　　　　'歌词就在剩下的代码中
　　　　　Do
　　　　　　　DoEvents
　　　　　　　位置& = InStr(1, 网页代码$, "<")
　　　　　　　If 位置& = 0 Then
　　　　　　　　　'如果找不到字符“<”则证明整个寻找已结束
　　　　　　　　　临时变量$ = 临时变量$ & " " & 网页代码$
　　　　　　　　　Exit Do
　　　　　　　Else
　　　　　　　　　'找到字符“<”把它前面的代码截取保存
　　　　　　　　　临时变量$ = 临时变量$ & " " & Left(网页代码$, 位置& - 1)
　　　　　　　　　'然后从“网页代码$ ”中清除已被截取部分和字符“<”
　　　　　　　　　网页代码$ = Right(网页代码$, Len(网页代码$) - 位置&)
　　　　　　　　　'再寻找字符“>”
　　　　　　　　　位置& = InStr(1, 网页代码$, ">")
　　　　　　　　　'找到字符“>”把它前面代码包括它自身全部清除
　　　　　　　　　网页代码$ = Right(网页代码$, Len(网页代码$) - 位置&)
　　　　　　　End If
　　　　　Loop
　　　　　'“临时变量$”中存放着歌词，把它们全部赋给“txt歌词”
　　　　　txt歌词 = 临时变量$
　　　End If
　 End If
End Sub