1,453
社区成员
发帖
与我相关
我的任务
分享vb listbox如何导出到txt
我有个LISTBOX如何把里面的全部数据导出到我选择的txt文件里面.我导入是这样做的,那导出应该怎样呢.
Dim d As String
CommonDialog2.Filter = "所有文件(*.*)|*.*"
CommonDialog2.ShowOpen
d = CommonDialog2.FileName
Open d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
List1.AddItem temp
Loop
Close #1
以上是导入的如何才能改成全部导出,列表里面的所有.
Dim d As String
CommonDialog2.Filter = "所有文件(*.*)|*.*"
CommonDialog2.ShowOpen
d = CommonDialog2.FileName
Open d For Input As #1
Do While Not EOF(1)
Line Input #1, temp
List1.AddItem temp
Loop
Close #1
以上是导入的如何才能改成全部导出,列表里面的所有.
...全文
请发表友善的回复…
发表回复
lodna 2011-08-09
- 打赏
- 举报
这个非常简单详细请www.lodna.org 获得帮助
no000on 2011-01-18
- 打赏
- 举报
看看结果如何
dxlz 2010-05-23
- 打赏
- 举报
谢谢.
chinaboyzyq 2010-05-23
- 打赏
- 举报
Private Sub Command1_Click()
Open "c:\temmp.txt" For Output As #1
Dim i As Integer
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
List1.AddItem "item" & i
Next
End Sub
Open "c:\temmp.txt" For Output As #1
Dim i As Integer
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i)
Next
Close #1
End Sub
Private Sub Form_Load()
Dim i As Integer
For i = 0 To 9
List1.AddItem "item" & i
Next
End Sub
dxlz 2010-05-23
- 打赏
- 举报
重写到一个新建的TXT里面.能具体点么?
chinaboyzyq 2010-05-23
- 打赏
- 举报
追加，还是重写。
追加用 append
重写用 output
追加用 append
重写用 output
