I am using the code:
Dim a As String
Dim p, q, r As Integer
Open "c:\-= warez =-\SourceCode.html" For Input As #1
While Not EOF(1)
Line Input #1, a$
If Left(a$, 39) = "<font face=" & Chr(34) & "Arial, Helvetica" & Chr(34) & " size=" & Chr(34) & "2" & Chr(34) & ">" Then
p = InStr(a$, "%")
If p Then
q = InStr(10, a$, ">")
r = InStr(10, a$, "<")
percentage = Mid(a$, q + 1, r - q - 1)
End If
End If
Wend
Close
Text1.Text = percentage
End Sub
instead of opening a file, how can i make this code read a rixh text box and do the same procedure?
------------------
[email protected]
http://www.hackvp.com
Quote:
Ask not what you can do for your country, but what can your country do for you
