用正則表達(dá)式吧，首先導(dǎo)入命名空間System.Text.RegularExpressions，用Webbrowser載入頁(yè)面，使用vb.net的代碼如下：
創(chuàng)新互聯(lián)公司是一家集網(wǎng)站建設(shè),龍口企業(yè)網(wǎng)站建設(shè),龍口品牌網(wǎng)站建設(shè),網(wǎng)站定制,龍口網(wǎng)站建設(shè)報(bào)價(jià),網(wǎng)絡(luò)營(yíng)銷(xiāo),網(wǎng)絡(luò)優(yōu)化,龍口網(wǎng)站推廣為一體的創(chuàng)新建站企業(yè)，幫助傳統(tǒng)企業(yè)提升企業(yè)形象加強(qiáng)企業(yè)競(jìng)爭(zhēng)力?？沙浞譂M(mǎn)足這一群體相比中小企業(yè)更為豐富、高端、多元的互聯(lián)網(wǎng)需求。同時(shí)我們時(shí)刻保持專(zhuān)業(yè)、時(shí)尚、前沿，時(shí)刻以成就客戶(hù)成長(zhǎng)自我，堅(jiān)持不斷學(xué)習(xí)、思考、沉淀、凈化自己，讓我們?yōu)楦嗟钠髽I(yè)打造出實(shí)用型網(wǎng)站。
Dim iTable As String = WebBrowser1.Document.Body.InnerHtml
Dim str_xm1 As String = Regex.Match(Regex.Matches(iTable, "td.*?/td").Item(6).Value, ".*?").Value
這樣str_xm1就是你要的內(nèi)容。
具體代碼如下：
public static string FilterScript(string content)
{
if(content==null || content=="")
{
return content;
}
string regexstr=@"(?i)script([^])*(\w|\W)*/script([^])*";//@"script.*/script";
content=Regex.Replace(content,regexstr,string.Empty,RegexOptions.IgnoreCase);
content=Regex.Replace(content,"script([^])*",string.Empty,RegexOptions.IgnoreCase);
return Regex.Replace(content,"/script",string.Empty,RegexOptions.IgnoreCase);
}
接受頁(yè)面： 用Request.QueryString["canshu"].toString（）； 這樣就接受到textbox里的值了。 然后根據(jù)這個(gè)值到數(shù)據(jù)庫(kù)里查詢(xún)就行了。
我的是2007版本，其它類(lèi)似
1.在工程中引用Microsoft Excel 12.0 Object Library
2、在通用對(duì)象的聲明過(guò)程中定義EXCEL對(duì)象：
Dim xlApp As Excel.Application
Dim xlBook As Excel.WorkBook
Dim xlSheet As Excel.Worksheet
3、在程序中操作VB.NET EXCEL常用命令：
Set xlApp = CreateObject("Excel.Application") '創(chuàng)建EXCEL對(duì)象
Set xlBook = xlApp.Workbooks.Open("文件名") '打開(kāi)已經(jīng)存在的EXCEL工件簿文件
xlApp.Visible = True '設(shè)置EXCEL對(duì)象可見(jiàn)（或不可見(jiàn)）
Set xlSheet = xlBook.Worksheets("表名") '設(shè)置活動(dòng)工作表
xlSheet.Cells(row, col) =值 '給單元格（row,col）賦值
xlSheet.PrintOut '打印工作表
xlBook.Close (True) '關(guān)閉工作簿
xlApp.Quit '結(jié)束EXCEL對(duì)象
Set xlApp = Nothing '釋放xlApp對(duì)象
xlBook.RunAutoMacros (xlAutoOpen) '運(yùn)行EXCEL啟動(dòng)宏 xlBook.RunAutoMacros (xlAutoClose) '運(yùn)行EXCEL關(guān)閉宏
還有很多，這個(gè)要自己慢慢摸索
html
head
titleTest/title
script?language="VBScript"?type="text/vbscript"
!--??????'按鈕事件
sub?Test1_onClick()
msgbox?document.getelementsbytagname("table")(0).innerText
end?sub
sub?Test2_onClick()?'提取每單元文本
dim?Text
'獲取表格中的行集
set?trs=document.getelementsbytagname("table")(0).getelementsbytagname("tr")
for?each?tr?in?trs??'遍歷每行
for?each?td?in?tr.getelementsbytagname("td")?'遍歷每行中的每單元
text?=?text??td.innerText??vbtab??'每單元用制表符分隔
next
text?=text??vbcrlf??'換行
next
msgbox?text
end?sub
--
/script
/head
body
table?cellspacing="0"?cellpadding="0"?class="list1"
tbody
tr?class="listtou"
td?width="10%"日期/td
td?width="10%"姓名/td
td?width="10%"備注/td
/tr
/tbody
tr
td?width="10%"2014-01-15?10:40:52/td
td?width="10%"張山/td
td?width="10%"32/td
/tr
tr
td?width="10%"2014-01-16?10:40:52/td
td?width="10%"李四/td
td?width="10%"29/td
/tr
/table
div
input?type="button"?name="Test1"?value="測(cè)試1"?
input?type="button"?name="Test2"?value=?"測(cè)試2"
/div
/body
/html
'主要是對(duì)htmlDocument對(duì)像的操作，我發(fā)現(xiàn)htmlDocument對(duì)象可以通過(guò)body.InnerHtml載入html文本也能解析，這樣比webBrowser1方便，因?yàn)槭峭降摹?/p>
'你試試用webClient的downloadString下載網(wǎng)頁(yè)文本，然后賦給htmlDocument對(duì)象下的body.InnerHtml。
'上面只是代碼例子，只供參考。用ie打開(kāi)，某些瀏覽器可能不支持。
Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String
'啟動(dòng)一次具體的數(shù)據(jù)采集工作,返回采集到的HTML內(nèi)容:要求必須輸入帶://的全地址數(shù)據(jù)
On Error Resume Next
Dim Str_WebContent As String = "請(qǐng)輸入查找網(wǎng)站地址."
Dim wb As WebClient = New WebClient() '//創(chuàng)建一個(gè)WebClient實(shí)例
If mWebsiteUrl.IndexOf("://") 0 Then
'//獲取或設(shè)置用于對(duì)向 Internet 資源的請(qǐng)求進(jìn)行身份驗(yàn)證的網(wǎng)絡(luò)憑據(jù)。（可有可無(wú)）
wb.Credentials = CredentialCache.DefaultCredentials
'//從資源下載數(shù)據(jù)并返回字節(jié)數(shù)組。（加@是因?yàn)榫W(wǎng)址中間有"/"符號(hào)）
Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)
'//轉(zhuǎn)換字符
If mWebsiteType Then
Str_WebContent = Encoding.Default.GetString(pagedata)
Else
Str_WebContent = Encoding.UTF8.GetString(pagedata)
End If
End If
Return Str_WebContent '提取出來(lái)新聞內(nèi)容,刪除Body前后的多余內(nèi)容,同時(shí)補(bǔ)充上該 Body標(biāo)記,形成完整的內(nèi)容 Str_WebContent '
End Function
重慶分公司
重慶分公司
