怎样把list 中的内容保存成为 *.txt文件
编号：QA002954
建立日期: 2000年5月18日 最后修改日期：2000年5月18日
所属类别：
pantao:
操作系统: win98
编程工具: vb 6.0
问题:
您好！ 我是一名 vb 爱好者，现在我遇到一个问题： 从数据库中把数据调入 listbox 中显示 ,list1中显示调入的数据，list2中是按我的要求选择的， 怎样把list 中的内容保存成为 *.txt文件？
我有一段代码，请高手帮我修改一下，我将非常感谢您的！
Private Sub Command_Click(Index As Integer)
Dim j As Integer
Select Case Index
Case 0
For j = List1.ListCount - 1 To 0 Step -1
List2.AddItem List1.List(j)
List1.RemoveItem j
Next
Case 1
For j = List1.ListCount - 1 To 0 Step -1
If List1.Selected(j) Then
List2.AddItem List1.List(j)
List1.RemoveItem j
End If
Next
Case 3
For j = List2.ListCount - 1 To 0 Step -1
If List2.Selected(j) Then
List1.AddItem List2.List(j)
List2.RemoveItem j
End If
Next
Case 2
For j = List2.ListCount - 1 To 0 Step -1
List1.AddItem List2.List(j)
List2.RemoveItem j
Next
End Select
End Sub
Private Sub Command2_Click()
save_Click
Form1.Show
Unload Me
End Sub
Private Sub save_Click()
CommonDialog1.Filter = "文本文件 （*.TXT）|*.txt" & "RTF文件 (*.RTF)|*.RTF"
CommonDialog1.FileName = FileName
'显示保存对话窗口
CommonDialog1.ShowSave
'如果没有文件
If Len(CommonDialog1.FileName) = 0 Then
Exit Sub
End If
'判断文件格式
If CommonDialog1.FilterIndex = 1 Then
'文本格式文件
list.additem.SaveFile CommonDialog1.FileName, rtfText
Else
'RTF格式文件
list.additem.SaveFile CommonDialog1.FileName, rtfRTF
End If
End Sub
水平: 刚入门
回答:
List本身没有SaveFile方法，如果你象保存为文本文件可以这样修改。
修改如下：
Private Sub save_Click()
CommonDialog1.Filter = "文本文件 （*.TXT）|*.txt"
CommonDialog1.FileName = FileName
'显示保存对话窗口
CommonDialog1.ShowSave
'如果没有文件
If Len(CommonDialog1.FileName) = 0 Then
Exit Sub
End If
'文本格式文件
Open CommonDialog1.FileName For Output As #1
For i = 0 To List.Count - 1
Print #1, List.List(i)
Close #1
End Sub
水平: 刚入门
此问题由李海回答。
| |
|
|
| |
|
|
