stickleprojects Level: Moderator

 Registered: 09-09-2002 Posts: 1039
|
Re: VB -- HTML Source
yeah.. in the form..
private sub form_load
dim fin as integer
dim strHTML as string
fin = freefile
open "c:myhtml.html" for input as fin
strHTML = input (lof(fin),fin)
close fin
me.textbox1.text = strhtml
dim pos as long
pos = instr(1, strhtml,"<A")
if pos>0 then
msgbox "Found a dodgy hyperlink at the " & pos & " char in the html"
end if
end sub
|
hope this helps
Kieron
____________________________
Build it better, faster, quicker, easier.. then fix it (non-offical MS mission statement)
|