VB.net窗體設(shè)計(jì)中，如何讀取.txt文件中的數(shù)據(jù)？

1、新建一個(gè)標(biāo)準(zhǔn)的VB EXE工程，只有一個(gè)Form，F(xiàn)orm上有兩個(gè)按鈕：Command1和Command2。

創(chuàng)新互聯(lián)專業(yè)為企業(yè)提供蘭坪網(wǎng)站建設(shè)、蘭坪做網(wǎng)站、蘭坪網(wǎng)站設(shè)計(jì)、蘭坪網(wǎng)站制作等企業(yè)網(wǎng)站建設(shè)、網(wǎng)頁(yè)設(shè)計(jì)與制作、蘭坪企業(yè)網(wǎng)站模板建站服務(wù)，10多年蘭坪做網(wǎng)站經(jīng)驗(yàn)，不只是建網(wǎng)站，更提供有價(jià)值的思路和整體網(wǎng)絡(luò)服務(wù)。

2、雙擊Command1添加如下代碼

Private Sub Command1_Click()

Dim strFile? ? ?As String

Dim intFile? ? ?As Integer

Dim strData? ? ?As String

strFile = "c:\學(xué)生成績(jī).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開(kāi)始單步調(diào)試代碼，點(diǎn)擊Command1，進(jìn)入單步調(diào)試功能，

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

VB.NET獲取硬盤(pán)信息的幾種方法

strResult += 磁盤(pán)類型: System.Convert.ToInt16(disk(DriveType).ToString())End IfMsgBox(strResult)NextEnd Sub總結(jié)：在VB.NET中，用API函數(shù)可以獲取硬盤(pán)信息。原來(lái)熟悉API函數(shù)VB6程序員，可以對(duì)API函數(shù)聲明進(jìn)行適當(dāng)?shù)母暮螅M(jìn)行調(diào)用。利用FSO（文件系統(tǒng)對(duì)象）的Scrrun.DLL，也可以獲得磁盤(pán)信息。在.net Framwork中，利用WMI可以獲取更多的關(guān)于機(jī)器硬件的詳細(xì)信息（參考System.Management命名空間）。

使用VB.NET讀取數(shù)據(jù)

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

Dim 表1 As New DataSet

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

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

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

表1 = Nothing

對(duì)象1 = Nothing

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

這個(gè)例子，就是把表格1點(diǎn)擊的值查一個(gè)結(jié)果集，在表格2上顯示，不知有沒(méi)有你想要的表達(dá)式？

使用vb.net讀取文件夾中所有文件的指定內(nèi)容

先按行讀出所有數(shù)據(jù)，然后找到需要的信息

IEnumerable?string??list=??File.ReadLines("test.txt",Encoding.Default?);

foreach?(string?s?in?list)

{

if?(s.Contains("圖名"))

{

textBox1.Text?+=?s+"\r\n";

}

if?(s.Contains("圖號(hào)"))

{

textBox1.Text?+=?s?+?"\r\n";

}

}

不好意思，用的C#，其實(shí)差不多了，自己改改就好了