Dim strLine As String, strItem () As String 

"C: \ 1. HTML" Open For Input As # 1 
Do Until EOF (1) 
The Line Input # 1, strLine 
StrLine=Trim (strLine) 
If InStr (strLine, "onClick=" "showdetail (") Then 
StrItem=Split (strLine, "(" ") 
StrItem=Split (strItem (1), "')") 
The Debug. Print strItem (0) 'here is a digital string 
End the If 
Loop 
Close # 1 

CodePudding user response: