NekoNeko
asked on
parse text from a webpage
I want to parse some text from a webpage.
but how do i get vb to go online so it can get this page and the text on it?
i want the text to be in a textbox.
but how do i get vb to go online so it can get this page and the text on it?
i want the text to be in a textbox.
ASKER CERTIFIED SOLUTION
membership
This solution is only available to members.
To access this solution, you must be a member of Experts Exchange.
ASKER
oops.. sorry.. i didn't read it all. it's a webBrowser control.
ASKER
i tried the textbox one..
nothing shows up in the textbox.
nothing shows up in the textbox.
try this
go to project -> references and check off microsoft internet transfer control and hit ok. add a command button and a textbox to the form with scrollbars and multiline set to true:
Dim IEobj As New SHDocVw.InternetExplorer
Private Sub Command1_Click()
IEobj.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUS ER
IEobj.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUS ER
Text1.Text = Clipboard.GetText
End Sub
Private Sub Form_Load()
IEobj.Navigate "www.opengl.org"
IEobj.Visible = True
End Sub
go to project -> references and check off microsoft internet transfer control and hit ok. add a command button and a textbox to the form with scrollbars and multiline set to true:
Dim IEobj As New SHDocVw.InternetExplorer
Private Sub Command1_Click()
IEobj.ExecWB OLECMDID_SELECTALL, OLECMDEXECOPT_DONTPROMPTUS
IEobj.ExecWB OLECMDID_COPY, OLECMDEXECOPT_DONTPROMPTUS
Text1.Text = Clipboard.GetText
End Sub
Private Sub Form_Load()
IEobj.Navigate "www.opengl.org"
IEobj.Visible = True
End Sub
The inet control is your best bet. You just add the Microsoft Internet Transfer Control I think it's called.
inet control is buggy, it doesnt load all the text most of the time
ASKER
Edited text of question.
ASKER
Comment accepted as answer
what i showed you will launch ie, do a select all on the page and copy it then put it in a textbox. if thats what you are looking for.
ASKER
oh! sorry, i got your entry a bit late.
BUT YAY IT WORKS!
BUT YAY IT WORKS!
ASKER