锐客网

  1. 首页 > 生活百科 > it技术 > >

包含vb.net保存到txt的词条

IT技术保存

VB.NET 单击按钮后，弹出保存文件对话框，把ListBox的内容保存到.txt中，每个item占一行SaveFileDialog1.Filter = "文本文档|*.txt"
If SaveFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
FileOpen(1, SaveFileDialog1.FileName, IO.FileMode.Open, OpenAccess.Write)
For i As Integer = 0 To ListBox1.Items.Count - 1
Print(1, ListBox1.Items(i).ToString)
Next
FileClose(1)
End If
怎样把vb.net中出入的数据存储为txt格式的文件vb.net保存到txt我原来写vb.net保存到txt的一个方法
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文档的代码直接给你保存和读取TXT的VB.NET的函数代码 ， 你只要在触发事件中调用就可以了，注意换行，有的是显示不下去才显示两行的，还有strFilePath代表文件路径，TempENG代表文件编码格式如：UTF-8或者GB2312，strText 代表内容字符串 。
#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 = strSlinevbCrLf
n = n1
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 如何保存文本框内容到txt文件窗体上建立BUTTON1和TEXTBOX1
代码如下
100%正确，刚刚写的，调试好了
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
路径自己修改
（你的给分是我回答的动力）
vb.net 中 datagridview的数据如何保存到 txtDim 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 = ""
【包含vb.net保存到txt的词条】For i = 0 To frmQuery.DataGridView1.Columns.Count - 1
strTemp = "'"frmQuery.DataGridView1(i, j).Value"'"","
Next
myFile.WriteLine(strTemp)
Next
myFile.Close()
格式为表格每行保存为文本文件的一行，字段之间以逗号分隔 。
vb.net保存到txt的介绍就聊到这里吧，感谢你花时间阅读本站内容，更多关于、vb.net保存到txt的信息别忘了在本站进行查找喔 。

    推荐阅读


    上一篇：代码实现跨oracle查询，oracle跨库查询语句

    下一篇：钢铁侠飞行英雄游戏，钢铁侠飞行服