VB.net中的保存txt不完整

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

創(chuàng)新互聯(lián)主要為客戶提供服務(wù)項(xiàng)目涵蓋了網(wǎng)頁視覺設(shè)計(jì)、VI標(biāo)志設(shè)計(jì)、成都營銷網(wǎng)站建設(shè)、網(wǎng)站程序開發(fā)、HTML5響應(yīng)式成都網(wǎng)站建設(shè)、手機(jī)網(wǎng)站開發(fā)、微商城、網(wǎng)站托管及網(wǎng)站維護(hù)、WEB系統(tǒng)開發(fā)、域名注冊、國內(nèi)外服務(wù)器租用、視頻、平面設(shè)計(jì)、SEO優(yōu)化排名。設(shè)計(jì)、前端、后端三個(gè)建站步驟的完善服務(wù)體系。一人跟蹤測試的建站服務(wù)標(biāo)準(zhǔn)。已經(jīng)為玻璃鋼雕塑行業(yè)客戶提供了網(wǎng)站設(shè)計(jì)服務(wù)。

FileOpen(1,?"c:\34.txt",?OpenMode.Output,?OpenAccess.Write)

PrintLine(1,?TextBox1.Text)

FileClose(1)

End?Sub

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

FileOpen(1,?"c:\34.txt",?OpenMode.Input,?OpenAccess.Read)

Dim?text?As?String?=?""

Do?Until?EOF(1)

text?+=?LineInput(1)??vbCrLf

Loop

TextBox2.Text?=?text

FileClose(1)

End?Sub

還是有點(diǎn)不同，vb6的print等同于這里printLine, print 類似于vb6的write,而且不換行。

至于你錯(cuò)在哪里我不知道了，反正我的代碼測試了一下沒問題。

窗體上有兩個(gè)多行文本框，兩個(gè)按鈕（寫入和讀取）

補(bǔ)充：我想出一個(gè)原因，可能你沒有關(guān)閉文件吧。寫入的部分內(nèi)容還在內(nèi)存緩沖區(qū)，還沒完全寫入磁盤。

怎樣把vb.net中出入的數(shù)據(jù)存儲為txt格式的文件

我原來寫的一個(gè)方法

Private Sub StrToFile(ByVal cExpression As String, ByVal cFileName As String, ByVal lAdditive As Boolean)

If File.Exists(cFileName) And Not lAdditive Then

File.Delete(cFileName)

End If

Dim oFs As FileStream = New FileStream(cFileName, FileMode.OpenOrCreate, FileAccess.ReadWrite)

Dim oWriter As StreamWriter = New StreamWriter(oFs)

Dim C2_STR_FILE As Boolean = True

oWriter.BaseStream.Seek(0, SeekOrigin.End)

oWriter.Write(vbCrLf)

oWriter.Write(cExpression)

oWriter.Flush()

oWriter.Close()

oFs.Close()

End Sub

用VB.net寫TXT文件，能不能分階段保存為多個(gè)文件？

當(dāng)然能了

你可以將你的內(nèi)容按行分別存儲在數(shù)組變量中

a="全部內(nèi)容"

b=split(a,vbcrlf)

b(0) 即第一行 保存文件1

b(1) 即第二行 保存文件2

b(2)-b(x) 就是剩下內(nèi)容

vb.net 中 datagridview的數(shù)據(jù)如何保存到 txt

Dim i As Integer

Dim j As Integer

Dim myFile As New System.IO.StreamWriter("c:\Test.txt")

Dim strTemp As String = ""

For j = 0 To frmQuery.DataGridView1.RowCount - 1

strTemp = ""

For i = 0 To frmQuery.DataGridView1.Columns.Count - 1

strTemp = "'" frmQuery.DataGridView1(i, j).Value "'" ","

Next

myFile.WriteLine(strTemp)

Next

myFile.Close()

格式為表格每行保存為文本文件的一行，字段之間以逗號分隔。

求VB.NET寫的自動(dòng)保存txt文檔的代碼

直接給你保存和讀取TXT的VB.NET的函數(shù)代碼，你只要在觸發(fā)事件中調(diào)用就可以了，注意換行，有的是顯示不下去才顯示兩行的，還有strFilePath代表文件路徑，TempENG代表文件編碼格式如：UTF-8或者GB2312，strText 代表內(nèi)容字符串。

#Region "讀取TXT"

Public Function ReadTxt(ByVal strFilePath As String, ByVal TempENG As String) As String

Dim mySr As System.IO.StreamReader

Dim strS As String

Dim n%

strS = ""

mySr = New System.IO.StreamReader(strFilePath, System.Text.Encoding.GetEncoding(TempENG))

Do

Dim line$ = mySr.ReadLine()

strS = strS line vbCrLf

n = n + 1

Loop Until mySr.EndOfStream = True

mySr.Close()

Return strS

End Function

#End Region

#Region "保存TXT"

Public Function SaveTxt(ByVal strFilePath As String, ByVal strText As String, ByVal TempENG As String) As Boolean

Try

If Dir(strFilePath) "" Then File.Delete(strFilePath)

Dim mySw As System.IO.StreamWriter

Dim strLine() As String

mySw = New System.IO.StreamWriter(strFilePath, True, System.Text.Encoding.GetEncoding(TempENG))

strLine = Split(strText, vbCrLf)

For i As Integer = 0 To UBound(strLine)

mySw.WriteLine(strLine(i))

Next

mySw.Close()

Return True

Catch ex As Exception

Return False

End Try

End Function

#End Region

50分 vb.net 如何保存文本框內(nèi)容到txt文件

窗體上建立BUTTON1和TEXTBOX1

代碼如下

100%正確，剛剛寫的，調(diào)試好了

Imports System.io

Public Class form1

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

Dim fs As New FileStream("d:\文本.txt", FileMode.Create, FileAccess.Write)

Dim r As New StreamWriter(fs)

Dim I As Integer

r.Write(TextBox1.Lines(I))

r.Flush()

r.Close()

End Sub

End Class

路徑自己修改

（你的給分是我回答的動(dòng)力）

文章題目：關(guān)于vb.net保存txt的信息
轉(zhuǎn)載來于：http://chinadenli.net/article43/dseijes.html

成都網(wǎng)站建設(shè)公司_創(chuàng)新互聯(lián)，為您提供動(dòng)態(tài)網(wǎng)站、Google、品牌網(wǎng)站設(shè)計(jì)、電子商務(wù)、外貿(mào)建站、品牌網(wǎng)站建設(shè)

廣告

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