VB.net窗體設計中，如何讀取.txt文件中的數據？

1、新建一個標準的VB EXE工程，只有一個Form，Form上有兩個按鈕：Command1和Command2。

平山網站建設公司成都創新互聯,平山網站設計制作，有大型網站制作公司豐富經驗。已為平山上千多家提供企業網站建設服務。企業網站搭建\成都外貿網站建設公司要多少錢，請找那個售后服務好的平山做網站的公司定做！

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學生成績.txt"

intFile = FreeFile

Open strFile For Input As intFile

strData = StrConv(InputB(FileLen(strFile), intFile), vbUnicode)

Debug.Print strData

Close intFile

End Sub

3、按F8開始單步調試代碼，點擊Command1，進入單步調試功能，

4、多次按下F8或直接按下F5運行完成，就完成了讀取文本文件內容并輸出到立即窗口。

VB.NET 如何獲取網頁中的數據

Public Function webCaptureContent(ByVal mWebsiteUrl As String, ByVal mWebsiteType As Boolean) As String

'啟動一次具體的數據采集工作,返回采集到的HTML內容:要求必須輸入帶://的全地址數據

On Error Resume Next

Dim Str_WebContent As String = "請輸入查找網站地址."

Dim wb As WebClient = New WebClient() '//創建一個WebClient實例

If mWebsiteUrl.IndexOf("://") 0 Then

'//獲取或設置用于對向 Internet 資源的請求進行身份驗證的網絡憑據。（可有可無）

wb.Credentials = CredentialCache.DefaultCredentials

'//從資源下載數據并返回字節數組。（加@是因為網址中間有"/"符號）

Dim pagedata As Object = wb.DownloadData(mWebsiteUrl)

'//轉換字符

If mWebsiteType Then

Str_WebContent = Encoding.Default.GetString(pagedata)

Else

Str_WebContent = Encoding.UTF8.GetString(pagedata)

End If

End If

Return Str_WebContent '提取出來新聞內容,刪除Body前后的多余內容,同時補充上該 Body標記,形成完整的內容 Str_WebContent '

End Function

請問vb.net如何獲取網頁表格中的數據

用正則表達式吧，首先導入命名空間System.Text.RegularExpressions，用Webbrowser載入頁面，使用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就是你要的內容。

使用VB.NET讀取數據

孩子，如果你從你單擊事件上下手，就好辦了，先弄明白，點擊了什么，datagridview點擊，可以獲取單擊的值，好辦，用SQL語句去查詢單擊的這個值，把查到的結果再交給你要處理的地方，我常這么干。我從來不曉得什么表與表之間的關聯，或者關系表什么鬼東西，但是我也可以操作很多張表，把它們的結果集一起顯示出來。

Dim 表1 As New DataSet

Dim 對象1 As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter("select top * from表名 where 字段名 = '" DataGridView1.CurrentCell.Value "' ", 數據源)

對象1.Fill(表1, " 表名")

DataGridView2.DataSource = 表1.Tables(" 表名")

表1 = Nothing

對象1 = Nothing

如果寫成這樣，還嫌不夠，一定要按你的意思去寫，那我真的要瘋了。

這個例子，就是把表格1點擊的值查一個結果集，在表格2上顯示，不知有沒有你想要的表達式？

當前文章：vb.net爬取數據 vba爬取網頁的方法
文章轉載：http://vcdvsql.cn/article22/dopiecc.html

成都網站建設公司_創新互聯，為您提供網站內鏈、移動網站建設、云服務器、關鍵詞優化、靜態網站、營銷型網站建設

廣告

聲明：本網站發布的內容（圖片、視頻和文字）以用戶投稿、用戶轉載內容為主，如果涉及侵權請盡快告知，我們將會在第一時間刪除。文章觀點不代表本網站立場，如需處理請聯系客服。電話：028-86922220；郵箱：631063699@qq.com。內容未經允許不得轉載，或轉載時需注明來源： 創新互聯