請(qǐng)教在VB.net中如何將數(shù)據(jù)寫入txt文件、再從txt文件讀出？

軟糖來告訴你吧。

創(chuàng)新互聯(lián)公司服務(wù)項(xiàng)目包括鹿寨網(wǎng)站建設(shè)、鹿寨網(wǎng)站制作、鹿寨網(wǎng)頁制作以及鹿寨網(wǎng)絡(luò)營銷策劃等。多年來，我們專注于互聯(lián)網(wǎng)行業(yè)，利用自身積累的技術(shù)優(yōu)勢(shì)、行業(yè)經(jīng)驗(yàn)、深度合作伙伴關(guān)系等，向廣大中小型企業(yè)、政府機(jī)構(gòu)等提供互聯(lián)網(wǎng)行業(yè)的解決方案，鹿寨網(wǎng)站推廣取得了明顯的社會(huì)效益與經(jīng)濟(jì)效益。目前，我們服務(wù)的客戶以成都為中心已經(jīng)輻射到鹿寨省份的部分城市，未來相信會(huì)繼續(xù)擴(kuò)大服務(wù)區(qū)域并繼續(xù)獲得客戶的支持與信任！

VB.net中讀寫文件主要使用System.IO命名空間。

① 使用 File.ReadAllText 讀取

Dim s As String = System.IO.File.ReadAllText("C:\a.txt")

② 使用 StreamReader 讀取，注意編碼格式和寫入的編碼保持一致。

Dim sr As StreamReader = New StreamReader("C:\a.txt", System.Text.Encoding.UTF8)

Dim s As String = sr.ReadToEnd()

sr.Close()

③ 使用 File.WriteAllText 寫入，會(huì)覆蓋同名的文件。

Dim 要寫的內(nèi)容 As String = ""

File.WriteAllText(文件路徑, 要寫的內(nèi)容, System.Text.Encoding.UTF8)

④ 使用 StreamWriter 寫入。

Dim sw As System.IO.StreamWriter = New System.IO.StreamWriter("C:\a.txt", False, System.Text.Encoding.UTF8)

sw.WriteLine(TextTB.Text)

sw.Close()

⑤ 使用 StreamWriter 追加寫入。

將上面代碼的第二個(gè)參數(shù)False改為True。

◆ 滿意請(qǐng)采納，謝謝 ◆

vbnet如何判斷目錄下增加了文件

首先我們得判斷文件/目錄是否存在然后獲取文件信息（創(chuàng)建時(shí)間）。有文件的獲取時(shí)間了，就可以知道這個(gè)文件的創(chuàng)建時(shí)間，就能判斷目錄的文件是什么時(shí)候增加的，那么離自己最近的時(shí)間創(chuàng)建的的文件就是目錄的增加文件了。

判斷文件/目錄是否存在

Try ? ? ? ? ? ?' 先判斷文件是否存在。 ? ? ? ? ? ?If Not File.Exists(TextBox4.Text) Then

File.CreateText(TextBox4.Text) '單純創(chuàng)建文件一般不常用，正常情況下是創(chuàng)建文件然后進(jìn)行讀寫操作

'System.IO.File.Create(TextBox4.Text) ? ? ? ? ? ?End If

Catch ex As Exception

MessageBox.Show(ex.Message)

Exit Sub

End Try

獲取文件信息（創(chuàng)建時(shí)間）?FileDateTime(fii(i).FullName)? ? ?File.GetCreationTime(path)

System.IO.File.Create(Path)'創(chuàng)建文件

System.IO.File.CreateText(Path)'創(chuàng)建文件

System.IO.File.Copy(Path,targetPath) ? ? ?'復(fù)制到新位置,不允許覆蓋現(xiàn)有文件 ? ? ? ?也可以'FileCopy(TextBox4.Text, "C:" "\" file_name(UBound(file_name))) System.IO.File.Move(SourceFileName, DestFileName)

System.IO.File.Delete(Path)

'追加 System.IO.File.AppendText'替換

System.IO.File.Replace

VB.NET 打開Excel追加一行數(shù)據(jù)

VB.NET2008代碼：

Dim xlapp1 As Excel.Application

Dim xlworksheet As Excel.Worksheet

Dim xlworkbk As Excel.Workbook

xlapp1 = New Excel.Application

xlworkbk = xlapp1.Workbooks.Open("Excel文件名")

xlworksheet = xlworkbk.Worksheets("Sheet名")

xlworksheet.Cells.Item(行編號(hào), 列編號(hào)).value ="需要輸入的數(shù)據(jù)"

xlworkbk.Close()

另外，xlworksheet.UsedRange.Rows.Count是最大行數(shù)，可以用這個(gè)算行編號(hào)。

注意，需要引用Microsoft Excel Object Library（在COM的那個(gè)選項(xiàng)卡里）。