關(guān)于vb.net生成txt的信息

VB.net實例

1 生成txt文件。

企業(yè)建站必須是能夠以充分展現(xiàn)企業(yè)形象為主要目的，是企業(yè)文化與產(chǎn)品對外擴展宣傳的重要窗口，一個合格的網(wǎng)站不僅僅能為公司帶來巨大的互聯(lián)網(wǎng)上的收集和信息發(fā)布平臺，創(chuàng)新互聯(lián)面向各種領(lǐng)域：成都酒樓設(shè)計等網(wǎng)站設(shè)計、網(wǎng)絡(luò)營銷推廣解決方案、網(wǎng)站設(shè)計等建站排名服務(wù)。

DimSaveFileDialog1AsNewSaveFileDialog()?'創(chuàng)建一個保存對話框

SaveFileDialog1.Filter?="txt?files?(*.txt)|*.txt"?'設(shè)置擴展名

IfSaveFileDialog1.ShowDialog()?=?System.Windows.Forms.DialogResult.OKThen?'如果確定保存

My.Computer.FileSystem.WriteAllText(SaveFileDialog1.Filename,?Textbox1.Text,False)?'保存文本,False表示不追加文本，直接覆蓋其內(nèi)容

EndIf

原文鏈接：

vb.net如何批量生成一堆TXT文件？

function writetxt (filename as string,currenttxt as string) filename ="c:\" filename ".txt" 'filename要生成的文件名 currenttxt當前寫入的文件內(nèi)容. open filename for output As #1 print #1, currenttxt close #1 end functiong sub xxx ... '定義rs為recorder,并生成記錄集, ... rs.movefirst while not rs.eof call writetxt rs.filds("文章標題").value ,rs.filds("文章").value rs.movenext loop '關(guān)閉記錄集等 end sub

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

Dim SaveFileDialog1 As New SaveFileDialog()

'創(chuàng)建一個保存對話框

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

'設(shè)置

擴展名

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創(chuàng)建一個txt文本，在debug文件夾里

設(shè)計一個窗口，添加一個名為textBox1的System.Windows.Forms.TextBox，

添加一個名為button1的System.Windows.Forms.Button。

為button1的單擊事件添加如下處理函數(shù)：

Sub Button1Click(sender As Object, e As EventArgs)

'f是你的文本文件的文件名

Const f As String="t.txt"

Dim sw As System.IO.StreamWriter=Nothing

Try

If Not System.IO.File.Exists(f) Then

sw=System.IO.File.CreateText(f)

Else

sw=New System.IO.StreamWriter(f,True)

End If

sw.WriteLine(textBox1.Text)

Finally

If sw IsNot Nothing Then

sw.close()

End If

End Try

End Sub

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

已測試，代碼如下：

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

'取得存儲的文本

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

'存儲文本

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

'取得存儲路徑

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

測試截圖如下。

新聞名稱：關(guān)于vb.net生成txt的信息
URL網(wǎng)址：http://muchs.cn/article24/hgsece.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供小程序開發(fā)、服務(wù)器托管、軟件開發(fā)、網(wǎng)站維護、網(wǎng)站排名、面包屑導(dǎo)航

廣告

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