建站
咨詢
售后
建站咨詢
新聞中心
VB.net 如果讀取txt數(shù)據(jù)(或十進(jìn)制dat數(shù)據(jù))
vb.net雖也有input語(yǔ)句，但一次只能讀取到一個(gè)變量中，可以用TextFieldParser類代替，但似乎沒(méi)以前的方便。不過(guò)比以前的更靈活。寫入文件Write還是可以用，在Microsoft.VisualBasic.FileIO中。
成都創(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ù)。
Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click
Dim?fileName?As?String?=?"E:\User?Documents\Master\My?Documents\電子閱讀\股票\table2.csv"
Using?Recrods?As?New?Microsoft.VisualBasic.FileIO.TextFieldParser(fileName)?'建立TextFieldParser對(duì)象
'MyReader.TextFieldType?=?FieldType.Delimited
Recrods.SetDelimiters(",")?'把字段分隔符設(shè)置為","
Dim?curRow()?As?String
Do?Until?Recrods.EndOfData
curRow?=?Recrods.ReadFields()?'讀取記錄行，返回字符串?dāng)?shù)組，所以不同字段類型需要自己轉(zhuǎn)換。
Debug.Print(Join(curRow,?vbTab))
Loop
End?Using
End?Sub
vb.net怎么往已經(jīng)建立好的dat文件里寫東西，還不覆蓋原本的數(shù)據(jù)？
如果想繼續(xù)編輯之前的文檔，在TXT文件尾部繼續(xù)添加文本，那么還需要在函數(shù)后邊加個(gè)參數(shù)。
VB 代碼
方法1：
? Dim?sw?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt")
? sw.Write("abc"? vbCrLf)
sw.Close()
Dim?sw2?As?StreamWriter =?New?StreamWriter("C:\temp\test.txt",?True)
sw2.Write("456"? vbCrLf)
sw2.Close()
方法2：
? My.Computer.FileSystem.WriteAllText("test.txt",?"This is test Text",?True)
方法3：
? System.IO.File.AppendAllText("c:\temp\test.txt",?"this is extra test file")
詳見(jiàn)：“網(wǎng)頁(yè)鏈接”?
請(qǐng)問(wèn).dat的記錄文件怎么用VB語(yǔ)句讀?。?/h2>
Private Sub Cmddel_Click()
dim i as integer,FN as string,Fns() as string
fns=split("A.dat、B.exe、C.mp3、D.mp3","、")
for i=0 to ubound(fns)
fn=syspath "\" fns(i)
if dir(fn)"" then kill fn
next
End Sub
vb.net 二進(jìn)制讀取文件
VB.NET打開(kāi)二進(jìn)制文件用fileopen完成，打開(kāi)二進(jìn)制文件的形式為：openmode.binary
讀取二進(jìn)制文件用的是fileget方法，寫入二進(jìn)制文件用的是fileput方法。
應(yīng)用示例：將一批隨機(jī)數(shù)保存在一個(gè)dat文件中，然后再將其提取到文本框中。
二進(jìn)制文件的讀寫一批隨機(jī)數(shù)的存取，程序?yàn)椋?/p>
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim x, i, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
For i = 1 To 8
x = Int(Rnd() * 100)
s = s + Str(x)
FilePut(fn, x)
Next
FileClose(fn)
TextBox1.Text = s
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim x, fn As Integer
Dim s As String = ""
fn = FreeFile()
FileOpen(fn, "d:\data.dat", OpenMode.Binary)
Do While Not EOF(fn)
FileGet(fn, x)
s = s + Str(x) + " "
Loop
FileClose(fn)
TextBox1.Text = s
End Sub
名稱欄目：vb.net讀取dat,vb讀寫文件
鏈接分享：http://fisionsoft.com.cn/article/hspdeh.html
