Dim strLine As String, strItem() As String
Open "c:\1.html" For Input As #1
Do Until EOF(1)
Line Input #1, strLine
strLine = Trim(strLine)
If InStr(strLine, "onClick=""showdetail(") Then
strItem = Split(strLine, "('")
strItem = Split(strItem(1), "')")
Debug.Print strItem(0) '這里是數字字串
End If
Loop
Close #1
uj5u.com熱心網友回復:
不明白你在問什么?轉載請註明出處,本文鏈接:https://www.uj5u.com/gongcheng/125042.html
標籤:VB基礎類
上一篇:下拉組合框的問題,求大神不吝賜教
下一篇:VB6.0找不到工程或庫
