在vb.net中如何生成一個(gè)txt文件，并且寫(xiě)入一個(gè)數(shù)組的值？

已測(cè)試，代碼如下：

成都創(chuàng)新互聯(lián)是一家專業(yè)的成都網(wǎng)站建設(shè)公司，我們專注成都網(wǎng)站設(shè)計(jì)、成都網(wǎng)站制作、外貿(mào)網(wǎng)站建設(shè)、網(wǎng)絡(luò)營(yíng)銷、企業(yè)網(wǎng)站建設(shè)，買友情鏈接，廣告投放平臺(tái)為企業(yè)客戶提供一站式建站解決方案，能帶給客戶新的互聯(lián)網(wǎng)理念。從網(wǎng)站結(jié)構(gòu)的規(guī)劃UI設(shè)計(jì)到用戶體驗(yàn)提高，創(chuàng)新互聯(lián)力求做到盡善盡美。

Imports?System.IO?'引入文本操作

Public?Class?Form1

Private?Sub?Button1_Click(ByVal?sender?As?System.Object,?ByVal?e?As?System.EventArgs)?Handles?Button1.Click

Dim?txt?As?String?=?Me.getTxt

SaveTxt(txt)

End?Sub

'取得存儲(chǔ)的文本

Private?Function?getTxt()?As?String

Dim?x(0?To?10)?As?Integer

For?i?As?Integer?=?0?To?x.Length?-?1

x(i)?=?CInt(100?*?Rnd())

Next

Dim?str?As?String?=?""

For?j?As?Integer?=?0?To?x.Length?-?1

str?+=?x(j).ToString??vbCrLf

Next

Return?str

End?Function

'存儲(chǔ)文本

Private?Sub?SaveTxt(ByVal?v?As?String)

Dim?fp?As?String?=?GetSavePath()

If?String.IsNullOrEmpty(fp)?=?False?Then

'StreamWriter

Dim?Swriter?As?New?StreamWriter(fp,?False)?'覆蓋或新建

Swriter.WriteLine(v)

Swriter.Close()

End?If

End?Sub

'取得存儲(chǔ)路徑

Private?WithEvents?sd?As?New?SaveFileDialog

Private?Function?GetSavePath()?As?String

sd.FileName?=?""

sd.AddExtension?=?True

sd.DefaultExt?=?"txt"

sd.Filter?=?"TXT文件(*.txt)|*.txt"

sd.ShowDialog()

Return?sd.FileName

End?Function

End?Class

測(cè)試截圖如下。

VB.NET怎樣實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件

用System.IO.StreamReader類可以讀各類文本文件，用System.IO.StreamWriter 類則可以寫(xiě)各類文本文件，從而實(shí)現(xiàn)導(dǎo)入導(dǎo)出文本文件功能。這兩個(gè)類均支持各類編碼格式（默認(rèn)的是Unicode和UTF-8）。

【vb.net】怎么把text里面的內(nèi)容生成一個(gè)txt文件

Dim SaveFileDialog1 As New SaveFileDialog()

'創(chuàng)建一個(gè)保存對(duì)話框

SaveFileDialog1.Filter = "txt files (*.txt)|*.txt"

'設(shè)置

擴(kuò)展名

If SaveFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then

'如果確定保存

My.Computer.

FileSystem

.WriteAllText(SaveFileDialog1.Filename, Textbox1.Text,False)

'保存文本,False表示不追加文本，直接覆蓋其內(nèi)容

End If

vb.net中如何讓循環(huán)每個(gè)值輸出到txt，并在txt中讓每行產(chǎn)生的循環(huán)值前加入固定的代碼

把sw.writeline放在循環(huán)體里面就好了，至于每行加號(hào)碼，字符串連接就行

請(qǐng)教在VB.net中如何將數(shù)據(jù)寫(xiě)入txt文件、再?gòu)膖xt文件讀出？

軟糖來(lái)告訴你吧。

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

① 使用 File.ReadAllText 讀取

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

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

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

Dim s As String = sr.ReadToEnd()

sr.Close()

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

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

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

④ 使用 StreamWriter 寫(xiě)入。

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 追加寫(xiě)入。

將上面代碼的第二個(gè)參數(shù)False改為T(mén)rue。

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

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

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

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)容并輸出到立即窗口。

文章標(biāo)題：vb.net導(dǎo)出txt的簡(jiǎn)單介紹
文章網(wǎng)址：http://www.chinadenli.net/article8/dseddop.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供、網(wǎng)站內(nèi)鏈、軟件開(kāi)發(fā)、搜索引擎優(yōu)化、外貿(mào)網(wǎng)站建設(shè)、靜態(tài)網(wǎng)站

廣告

聲明：本網(wǎng)站發(fā)布的內(nèi)容（圖片、視頻和文字）以用戶投稿、用戶轉(zhuǎn)載內(nèi)容為主，如果涉及侵權(quán)請(qǐng)盡快告知，我們將會(huì)在第一時(shí)間刪除。文章觀點(diǎn)不代表本網(wǎng)站立場(chǎng)，如需處理請(qǐng)聯(lián)系客服。電話：028-86922220；郵箱：631063699@qq.com。內(nèi)容未經(jīng)允許不得轉(zhuǎn)載，或轉(zhuǎn)載時(shí)需注明來(lái)源： 創(chuàng)新互聯(lián)