新手求助VB编程如何将数组中数据写入到.txt文件中?
比如有一个数组a()内有5个数12345,我想将它写入到0.txt文件中,格式为:12345应该如何编写???现在需要的就是VB的程序,请VB高手帮忙了!!!!...
比如有一个数组a()内有5个数1 2 3 4 5,我想将它写入到0.txt文件中,格式为:
1
2
3
4
5
应该如何编写???
现在需要的就是VB的程序,请VB高手帮忙了!!!! 展开
1
2
3
4
5
应该如何编写???
现在需要的就是VB的程序,请VB高手帮忙了!!!! 展开
2个回答
展开全部
Dim a(5) As Double
Private Sub Command1_Click()
strfile = ""
CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
CommonDialog1.ShowSave
If CommonDialog1.CancelError = True Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Output As #1
For i = 0 To 4
strfile = strfile & a(i) & vbCrLf
Next i
Print #1, strfile
Close
MsgBox "Export Sucessfully!"
Shell "notepad.exe " & CommonDialog1.FileName, vbNormalFocus
End Sub
Private Sub Form_Load()
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4
a(4) = 5
End Sub
=================
添加一个commomdialog控件,这里对数组的初始化由你自己去写,这里只是参考
Private Sub Command1_Click()
strfile = ""
CommonDialog1.Filter = "文本文件(*.txt)|*.txt"
CommonDialog1.ShowSave
If CommonDialog1.CancelError = True Then Exit Sub
If CommonDialog1.FileName = "" Then Exit Sub
Open CommonDialog1.FileName For Output As #1
For i = 0 To 4
strfile = strfile & a(i) & vbCrLf
Next i
Print #1, strfile
Close
MsgBox "Export Sucessfully!"
Shell "notepad.exe " & CommonDialog1.FileName, vbNormalFocus
End Sub
Private Sub Form_Load()
a(0) = 1
a(1) = 2
a(2) = 3
a(3) = 4
a(4) = 5
End Sub
=================
添加一个commomdialog控件,这里对数组的初始化由你自己去写,这里只是参考
本回答被提问者采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
用文件操作写入吧 vb不太清楚哦 看看msdn吧
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询