建站
咨詢
售后
建站咨詢
新聞中心
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,而且不換行。
至于你錯在哪里我不知道了，反正我的代碼測試了一下沒問題。
窗體上有兩個多行文本框，兩個按鈕（寫入和讀取）
補充：我想出一個原因，可能你沒有關(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()
格式為表格每行保存為文本文件的一行，字段之間以逗號分隔。
網(wǎng)站標(biāo)題：關(guān)于vb.net中保存txt的信息
文章位置：http://ef60e0e.cn/article/dosjdes.html
