VB.net中的保存txt不完整

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

在太白等地區(qū)，都構(gòu)建了全面的區(qū)域性戰(zhàn)略布局，加強發(fā)展的系統(tǒng)性、市場前瞻性、產(chǎn)品創(chuàng)新能力，以專注、極致的服務(wù)理念，為客戶提供成都做網(wǎng)站、成都網(wǎng)站制作 網(wǎng)站設(shè)計制作按需網(wǎng)站開發(fā),公司網(wǎng)站建設(shè),企業(yè)網(wǎng)站建設(shè),成都品牌網(wǎng)站建設(shè),網(wǎng)絡(luò)營銷推廣,外貿(mào)網(wǎng)站制作,太白網(wǎng)站建設(shè)費用合理。

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

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

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

窗體上有兩個多行文本框，兩個按鈕（寫入和讀?。?/p>

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

vb.net 中怎么用SaveFileDialog將TXT文件保存為能分隔的表格數(shù)據(jù)

Public Sub abc() Dim filename, inputstring As String Dim i As Integer Dim data i = 1 filename = "d:\WYKS.txt" '本列TXT文件放在D盤中 Open filename For Input Access Read As #1 Do While Not EOF(1) Line Input #1, inputstring '讀TXT文件一行 data = inputstring If i 1 Then Cells(i - 1, 1) = Mid(data, 11, 6) '截取從第11個字符后6個字符 Cells(i - 1, 2) = Mid(data, 19, 8) '截取從第19個字符后8個字符 Cells(i - 1, 3) = Mid(data, 29, 6) '截取從第29個字符后6個字符 Cells(i - 1, 4) = Mid(data, 37, 8) '截取從第37個字符后8個字符 End If i = i + 1 Loop Close #1 End Sub

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()

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