正文
vb.net保存数据格式的简单介绍
小程序:扫一扫查出行
【扫一扫了解最新限行尾号】
复制小程序
【扫一扫了解最新限行尾号】
复制小程序
vb.net 用savefiledialog保存的文件是乱码
没错,RTB的savefile保存下来的是rtf格式文件,你用word或写字板打开就不是
乱码
了,记事本不行。
用savedfiledialog的filter控制的只是显示哪些类型的文件,而不能控制实际写入的是什么格式。你让他显示的是txt,但其实写入的还是rtf。
要写入纯文本,用savefile方法的另一个重载:
richTextBox1.SaveFile(tt,
RichTextBoxStreamType.PlainText)
vb.net储存文本数据方法
Private Sub Command1_Click()
'写文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '句柄
Dim strWrite As String '要写入的文本内容
strFileName = App.Path "\a.txt"
''''''''App.Path "\a.txt"相对路径
''"c:\w.txt"绝对路径
lngHandle = FreeFile() '取得句柄
'准备要写入的内容
strWrite = Text1.Text '或者 strWrite = "这些文字将被写入文件。"
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
''''''append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入
''''''print#1,text1.text ''''''如果print换成write则写进txt中后自动加双引号
Open strFileName For Output As lngHandle '打开文件
Print #lngHandle, strWrite '写入文本
Close lngHandle '关闭文件
End Sub
Private Sub Command2_Click()
'读文件示例
Dim strFileName As String '文件名
Dim lngHandle As Long '文件句柄
Dim strAll As String '所读取的文本文件的所有内容
Dim strLine As String '在循环中存放每行的内容
strFileName = App.Path "\a.txt"
'获得文件的句柄
lngHandle = FreeFile()
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
Open strFileName For Input As lngHandle
'循环直到文件尾
Do While Not EOF(lngHandle)
'每次读取一行存放在strLine变量中
Line Input #lngHandle, strLine
'每次读取都把所读到的内容连接到strAll变量,由于Line Input去掉了换行符,所以这里补上
strAllstrAll = strAll strLine vbCrLf
Loop
'显示得到的全部分内容
MsgBox strAll
End Sub
Private Sub Command1_Click()
Open App.Path "\a.txt" For Output As #1
Print #1, Text1.Text '这里可以是数据本身也可以是目标控件的属性
Close #1 '关闭打开的文件
End Sub
'For后面的参数表示以何种方式打开文件,Input是读取,Output是覆盖写入,Append是追加写入
append是每次在文件末尾写入,不删除其它已经存在的文件.如果换成output则删除其它文件后再写入 print#1,text1.text 如果print换成write则写进txt中后自动加双引号,以上就是数据保存为VB.NET TXT文件的代码。
vb.net 中 datagridview的数据如何保存到 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怎样保存文件
保存文件的步骤为:
关闭流,特别是写入流
关闭并保存文件
示例代码如下:
Imports System.Windows.Forms
Imports System.IO
Imports System.Text
Sub SaveFileDemo()
'打开文件。如果文件不存在则创建新的文件
Dim myFile As New IO.FileStream("d:\data.txt", _
FileMode.OpenOrCreate, _
FileAccess.Write)
'在文件末尾添加一行
Dim tw As New StreamWriter(myFile)
myFile.Seek(0, SeekOrigin.End)
tw.WriteLine("白刃格斗英雄连英模部队方队亮相阅兵")
'关闭流
tw.Close()
'关闭文件并保存文件
myFile.Close()
End Sub
VB.NET 本地保存数据
VB可以用任何格式保存文件数据不仅仅是注册表\XML\INI
甚至于未知的格式。我教你命令:
open "C:\setup.safe" for output as #1
print #1,"object"
close #1
其中setup.safe就是一个文件,后缀为.safe,当然可以改成.dat包括其他任何后缀.
object就是你要写入setup.safe的内容.
怎样把vb.net中出入的数据存储为txt格式的文件
vb.net保存数据格式我原来写vb.net保存数据格式的一个方法
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保存数据格式的介绍就聊到这里吧,感谢你花时间阅读本站内容,更多关于、vb.net保存数据格式的信息别忘了在本站进行查找喔。