建站
咨詢(xún)
售后
建站咨詢(xún)
新聞中心
求VB.NET讀取網(wǎng)頁(yè)內(nèi)容寫(xiě)法
Imports System.Net
秦淮ssl適用于網(wǎng)站、小程序/APP、API接口等需要進(jìn)行數(shù)據(jù)傳輸應(yīng)用場(chǎng)景，ssl證書(shū)未來(lái)市場(chǎng)廣闊！成為創(chuàng)新互聯(lián)建站的ssl證書(shū)銷(xiāo)售渠道，可以享受市場(chǎng)價(jià)格4-6折優(yōu)惠！如果有意向歡迎電話(huà)聯(lián)系或者加微信：13518219792（備注：SSL證書(shū)合作）期待與您的合作！
Imports System.IO
Imports System.Text.RegularExpressions
Public Class Form1
Private Sub button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
Dim stream As IO.Stream = WebRequest.Create(UrlAdress).GetResponse().GetResponseStream()
'注意urladress為你上面的網(wǎng)頁(yè)地址。
Dim sr As StreamReader = New StreamReader(stream, System.Text.Encoding.UTF8)
Label1.Text = Regex.Match(sr.ReadToEnd, "回答采納率").ToString
'sr。readtoend讀取網(wǎng)頁(yè)流到末尾，即使用正則表達(dá)式從網(wǎng)頁(yè)流中提取“回答采納率”，賦值給Label1.Text ‘沒(méi)有則為空
sr.Dispose() '關(guān)閉流
End Sub'要提取什么東西用正則表達(dá)式最好
End Class
請(qǐng)問(wèn)vb.net如何獲取網(wǎng)頁(yè)表格中的數(shù)據(jù)
用正則表達(dá)式吧，首先導(dǎo)入命名空間System.Text.RegularExpressions，用Webbrowser載入頁(yè)面，使用vb.net的代碼如下：
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)容。
VB.NET 如何獲取網(wǎng)頁(yè)中的數(shù)據(jù)
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
vb.net獲取excel頁(yè)面高度
1 打開(kāi)Excel dim myexcelas new Excel.Application() myexcel.visible=true
2 添加新的工作簿myexcel.Workbooks.add()
3 設(shè)定第二個(gè)工作表為活動(dòng)工作表myexcel.worksheets(2).Acivate()
4 打開(kāi)指定的Excel文件myexcel.workbooks.open(“c:\my.xls”)
5 顯示Excel窗口myexcel.visible=true
6 更改Excel的標(biāo)題欄myexcel.caption=“歡迎,歡迎!”
7 為Excel的單元格賦值myexcel.cells(1,4).value=100 此語(yǔ)句使Excel當(dāng)前工作表的第一行第四列,即D1單元格等于100, 也可以這樣寫(xiě): myexcel.Range(“D1”).value=100
8 設(shè)置指定列的寬度(單位:字符個(gè)數(shù))myexcel.ActiveSheet.colums(1).columnwidth=20 設(shè)定當(dāng)前工作表第1列的寬度為20
9 設(shè)置指定行的高(單位:磅)myexcel.ActiveSheet.rows(1).rowHeight=1/0.035 1磅 =0.035厘米設(shè)置第1行的高度為1CM
10 插入分頁(yè)符 myexcel.Activesheet.rows(20).pagebreak=1在第20行前插入分頁(yè)符
11 刪除分頁(yè)符myexcel.Activesheet.columns(20).pagebreak=0 在第20列前刪除分頁(yè)符
12 指定邊框線(xiàn)的寬度myexcel.Activesheet.range(“B3:D3”).borders(1).weight=3 其中borders參數(shù)指定單元格邊框的位置:1:左 2:右 3:頂 4:底 5:斜\ 6:斜/
13 指定邊框線(xiàn)條的類(lèi)型 myexcel.Activesheet.range(“B1:D3”).borders(2).linestyle=1此語(yǔ)句將當(dāng)前工作表的B1:D3單元格的右邊框設(shè)置為實(shí)線(xiàn) linestyle參數(shù): 1:細(xì)實(shí)線(xiàn) 2:細(xì)虛線(xiàn) 3:點(diǎn)虛線(xiàn) 4:雙細(xì)實(shí)線(xiàn)
14 設(shè)置頁(yè)腳myexcel.activesheet.pagesetup.centerfooter=“第p頁(yè)” 注意:設(shè)置頁(yè)眉頁(yè)腳時(shí)要保證計(jì)算機(jī)上裝有打印機(jī),否則出錯(cuò)!
15 設(shè)置頁(yè)眉myexcel.activesheet.pagesetup.centerfooter=“第p頁(yè)”
16 設(shè)置頁(yè)眉到頂斷距離為2cmmyexcel.Activesheet.pagesetup.Headermargin=2/0.035
17 設(shè)置頁(yè)腳到底端距離為2cmmyexcel.Activesheet.pagesetup.Footermargin=2/0.035
18 設(shè)置頂邊邊距為2cmmyexcel.Activesheet.pagesetup.topmargin=2/0.035
19 設(shè)置底邊邊距為2cmmyexcel.Activesheet.pagesetup.Bottommargin=2/0.035
20 設(shè)置左邊邊距為2cmmyexcel.Activesheet.pagesetup.Leftmargin=2/0.035
21 設(shè)置右邊邊距為2cmmyexcel.Activesheet.pagesetup.Rightmargin=2/0.035
22 設(shè)置頁(yè)面水平居中myexcel.activesheet.pagesetup.CenterHorizontally=true
23 設(shè)置頁(yè)面垂直居中myexcel.activesheet.pagesetup.Centervertically=true
24 設(shè)置頁(yè)面紙張大小 (1,窄行8.511 ;39 ,寬行1411) myexcel.activesheet.pagesetup.papersize=1
25 打印單元格網(wǎng)格線(xiàn) myexcel.activesheet.pagesetup.PrintGridlines=true
26 復(fù)制整個(gè)工作表 myexcel.activesheet.Usedrange.Copy
27 復(fù)制指定區(qū)域 myexcel.activesheet.range(“a1:b5”).Copy
28 粘貼 myexcel.worksheets(“sheet2”).range(“A1”).PasteSpecial
29 在第2行前插入一行 myexcel.activesheet.rows(2).Insert
30 在第2列前插入一列 myexcel.Activesheet.Columns(2).Insert
31 合并 C4:D4 單元格 myexcel.Activesheet.Range(“C4:D4”).Merge()
32 自動(dòng)調(diào)整第2列列寬 myexcel.activesheet.Columns(2).AutoFit
33 設(shè)置字體myexcel.Activesheet.cells(2,1).font.name=“黑體”
34 設(shè)置字體大小myexcel.Activesheet.cells(2,1).font.size=25
35 設(shè)置字體為斜體 myexcel.Activesheet.cells(2,1).font.Italic=true
36 設(shè)置字體為粗體 myexcel.Activesheet.cells(2,1).font.Bold=true
37 清除單元格內(nèi)容myexcel.activesheet.cells(2,1).ClearContents
38 打印預(yù)覽工作表myexcel.Activesheet.PrintPreview
39 打印工作表 myexcel.Activesheet.Printout
40 工作表另存為myexcel.ActiveWorkbook.saveas(“C:\book2.xls”)
41 放棄存盤(pán) myexcel.ActiveWorkbook.saved=false
42 關(guān)閉工作簿 myexcel.Workbooks.close
43 退出 Excel myexcel.quit
44 紙張橫向：myexcel.activesheet.PageSetup.OrientaTion=2（1縱向）
45 單元格居中：cells(2,1).HorizontalAlignment=Excel.XlHAlign.xlHAlignCenter 水平方向cells(2,1).VerticalAlignment=Excel.XlVAlign.xlVAlignCenter 垂直方向
打開(kāi)CSDN APP，看更多技術(shù)內(nèi)容
VB調(diào)用Excel軟件實(shí)現(xiàn)打印預(yù)覽功能
摘要:VB源碼,報(bào)表打印,打印預(yù)覽VB調(diào)用Excel軟件實(shí)現(xiàn)打印預(yù)覽功能，可以插入折線(xiàn)圖，VB打印預(yù)覽功能示例源碼，分享給大家參考。
用vb操作EXCEL打印報(bào)表
最近使用vb來(lái)打印報(bào)表,打印出來(lái)的EXCEL一直無(wú)法上傳到ftp 反復(fù)多次問(wèn)題都沒(méi)解決, 200 PORT command successful. Consider using PASV. 問(wèn)題出在這,由于win10的防火墻的原因,關(guān)閉防火墻后問(wèn)題得到解決. 轉(zhuǎn)載于:...
繼續(xù)訪問(wèn)
VB操作excel 格式設(shè)置及打印頁(yè)面設(shè)置（精簡(jiǎn)）
langue：VB Set ExcelApp = CreateObject("Excel.Application") ’創(chuàng)建資源，建立連接 Set ExcelBook = ExcelApp.Workbooks.Open(“d:\pipo\index.htm") Set ExcelSheet = ExcelBook.Worksheet...
繼續(xù)訪問(wèn)
vb.net excel操作：填充人事檔案表并打印
節(jié)選自：《Visual Basic.Net 循序漸進(jìn)》【例 21.7】【項(xiàng)目：code21-007】填充人事檔案表并打印。 本例使用到的Excel文件為：職員信息登記表.xlsx，如下圖所示： 圖21-10 職員信息登記表 窗體設(shè)計(jì)如下圖所示（注意：為了演示方便，已經(jīng)填充了數(shù)據(jù)）： 圖21-11 窗體設(shè)計(jì) 在本例中還需要掌握的知識(shí)： 1、插入圖片到指定位置 Worksheet.Shapes.AddPicture(Filename, LinkToFile, SaveWithDocumen
繼續(xù)訪問(wèn)
vb.net操作Excel常用命令
轉(zhuǎn)載: 首先,須在項(xiàng)目里引用: 添加引用-Com-Microsoft Excel 9.0 Object Library （這是EXCEL2000） 1 打開(kāi)Excel： dim myexcel as new Excel.Application() myexcel.visib...
繼續(xù)訪問(wèn)
vb.net 如何實(shí)現(xiàn)報(bào)表打印_Excel如何實(shí)現(xiàn)分類(lèi)別打印？創(chuàng)建組輕松實(shí)現(xiàn)
有朋友咨詢(xún)個(gè)關(guān)于Excel打印數(shù)據(jù)問(wèn)題，他的需求是這樣的：下表中是某公司人員信息表，現(xiàn)在領(lǐng)導(dǎo)要求將表格分部門(mén)打印出來(lái)，每位員工核對(duì)個(gè)人信息并簽字。需求很明確，就是將相同部門(mén)的人員打印到一張紙上。打印很簡(jiǎn)單，難點(diǎn)在于如何按每個(gè)部門(mén)去打印？如果部門(mén)較少的話(huà)可以將不同部門(mén)復(fù)制到不同插頁(yè)中，再進(jìn)行打印；但是如果部門(mén)較多的話(huà)，這種辦法實(shí)在不可取；有小伙伴表示可以利用VBA技術(shù)將部門(mén)拆分到各個(gè)插頁(yè)，在進(jìn)行打印...
繼續(xù)訪問(wèn)
最新發(fā)布 vb.net 教程 11-1 打印組件 3 PageSetupDialog
版權(quán)聲明：本文為博主原創(chuàng)文章，轉(zhuǎn)載請(qǐng)?jiān)陲@著位置標(biāo)明本文出處以及作者網(wǎng)名，未經(jīng)作者允許不得用于商業(yè)目的。 本節(jié)談?wù)劻硗庖粋€(gè)有關(guān)打印的對(duì)話(huà)框：PageSetupDialog，頁(yè)面設(shè)置對(duì)話(huà)框 實(shí)際我們是通過(guò)這個(gè)對(duì)話(huà)框獲得PageSetting，關(guān)于PageSetting在上一節(jié)有部分介紹，請(qǐng)參看 vb.net 教程 11-1 打印組件 PrintDialog 2 注意的是，使用PageSetupDialog需要綁定一個(gè)PrintDocument，在PageSetupDialog的Document屬性處
繼續(xù)訪問(wèn)
VB.NET使用EXCEL常見(jiàn)操作
首先,須在項(xiàng)目里引用: 添加引用Microsoft.Office.Interop.Excel Imports Excel = Microsoft.Office.Interop.Excel 1 打開(kāi)Excel： Dim myexcel as new Excel.Application() myexcel.visible=true 2 添加新的工作簿： myexcel.Workbooks.ad
繼續(xù)訪問(wèn)
【VB Excel】VB 操作Excel基本步驟
VB操作EXCEL,實(shí)現(xiàn)數(shù)據(jù)讀取 1、定義Excel操作變量 Dim objExcelFile As Excel.Application Dim objWorkBook As Excel.Workbook Dim objImportSheet As Excel.Worksheet 2、打開(kāi)Excel進(jìn)程，并打開(kāi)目標(biāo)Exc...
繼續(xù)訪問(wèn)
vba代碼編程800例_如何設(shè)置Excel打印格式，學(xué)會(huì)這個(gè)VBA對(duì)象就可以隨心所欲
NO.1 Excel如何設(shè)置打印格式使用vba可以做打印格式處理，如何做一個(gè)漂亮的打印頁(yè)面，不外乎要設(shè)置打印表格的邊框、版式、頁(yè)眉、頁(yè)角等等。那么怎樣設(shè)置這些格式呢？NO.2 PageSetup對(duì)象vba編程用到Pagesetup對(duì)象，對(duì)表格打印進(jìn)行設(shè)置。PageSetup對(duì)象有許多屬性，下面圖片里列出了大部分常用的屬性，可以對(duì)照進(jìn)行設(shè)置。具體方法下面舉個(gè)例子來(lái)展示一下最終效果。PageSetup...
繼續(xù)訪問(wèn)
vb.net操作excel文件
[轉(zhuǎn)自] vb.net操作excel文件 要求將數(shù)據(jù)顯示在Excel表中，并且要設(shè)好數(shù)據(jù)格式。雖說(shuō)如此，真正實(shí)現(xiàn)了自己的功能，還是費(fèi)了不少時(shí)間。相信還是有很多與我相似的人需要實(shí)現(xiàn)這種功能。那就做個(gè)小結(jié)吧。不妥之處，請(qǐng)指正哦。 1.添加引用–com—microsoft excel 11.0 object library 2在需要訪問(wèn)excel的過(guò)程中定義 dim exapp as excel.a
繼續(xù)訪問(wèn)
VB.net使用PrintForm打印窗體
在VS2010中內(nèi)置了了一個(gè)PowerPacks的擴(kuò)展包,果然很好用啊,可以直接打印窗體內(nèi)容 先從"工具箱"中拖一個(gè)PrintForm到設(shè)計(jì)好的窗體中 然后在窗體里加了個(gè)打印的按鈕,對(duì)應(yīng)代碼如下 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.
繼續(xù)訪問(wèn)
熱門(mén)推薦 開(kāi)源:.NET環(huán)境下有關(guān)打印頁(yè)面設(shè)置、打印機(jī)設(shè)置、打印預(yù)覽對(duì)話(huà)框的實(shí)現(xiàn)與應(yīng)用(2)
!--google_ad_client = "pub-0022674553583619";google_ad_width = 728;google_ad_height = 90;google_ad_format = "728x90_as";google_ad_type = "text_image";google_ad_channel ="";google_color_
繼續(xù)訪問(wèn)
vb.net 設(shè)置打印紙張與頁(yè)邊距_機(jī)關(guān)公文格式設(shè)置規(guī)范(最新整理版)
本方法根據(jù)《黨政機(jī)關(guān)公文格式國(guó)家標(biāo)準(zhǔn)》(GB/T9704-2012)制定。具體內(nèi)容如下：一、辦公軟件要求適用于微軟OFFICE—WORD文字處理軟件。二、頁(yè)面設(shè)置1.選擇“文件”——“頁(yè)面設(shè)置”選擇“頁(yè)邊距”附簽，上：3.7厘米，下：3.5厘米，左：2.8厘米，右：2.6厘米。2.選擇“紙張”附簽，“紙張大小”設(shè)成“A4”。3.選擇“版式”附簽，將“頁(yè)眉和頁(yè)腳”設(shè)置成“奇偶頁(yè)不同”,在該...
繼續(xù)訪問(wèn)
VB.NET EXCEL 操作
當(dāng)前名稱(chēng)：vb.net獲取頁(yè)面數(shù)據(jù),vb從網(wǎng)頁(yè)獲取數(shù)據(jù)
分享路徑：http://www.ef60e0e.cn/article/hsigoo.html
