打开一个超文本文件(.htm),建议用WebBrowser1引用micosoft internet control WebBrowser1.Navigate "f:\a.htm"
读入文件即可 Open "c:\new.htm" For Input As #1 Do While Not EOF(1) Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr(13) + Chr(10) Loop Close #1 Text1.Text = whole$
谢谢两位: to mikehuyi: 我用您的方法,得到的是htm页面的代码,而不是页面的内容,我想得到的是叶面内容,请您在帮助看看,谢谢!!! Private Sub Command1_Click() Open "c:\nnn\神秘之狐.htm" For Input As #1 Do While Not EOF(1) Line Input #1, aspect$ whole$ = whole$ + aspect$ + Chr(13) + Chr(10) Loop Close #1 RichTextBox1.Text = whole$ End Sub
有一个笨办法,用micosoft internet control,打开文件,传递焦点给它,然后sendkeys ,然后读取剪贴版,就可以了,哈哈
WebBrowser1.Navigate "f:\a.htm"
Open "c:\new.htm" For Input As #1
Do While Not EOF(1)
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr(13) + Chr(10)
Loop
Close #1
Text1.Text = whole$
谢谢两位:
to mikehuyi:
我用您的方法,得到的是htm页面的代码,而不是页面的内容,我想得到的是叶面内容,请您在帮助看看,谢谢!!!
Private Sub Command1_Click()
Open "c:\nnn\神秘之狐.htm" For Input As #1
Do While Not EOF(1)
Line Input #1, aspect$
whole$ = whole$ + aspect$ + Chr(13) + Chr(10)
Loop
Close #1
RichTextBox1.Text = whole$
End Sub