如何保存list中的数据(送50分)

Question

我的list1.list中有：王号：32
李华：30
陈进：33
........这些数据我想在按了command1后出现1个另存为窗口可以将list里面的内容保存起来（不知道保存后是什么格式的文件）, 按了command2后出现打开文件窗口，可以打开刚刚保存的那个文件然后list1.list中显示的是刚刚那保存起来的内容。

Answer 1

存成文本格式就行，每条后面跟个回车，读的时候一行一行读，读一行向LIST中加一行

Answer 2

command1_click
 Dim i As Integer, j As Integer
Dim a() As String
i = List1.ListCount
ReDim a(i - 1)
For j = 0 To i - 1
 a(j) = List1.List(j)
Next j
Open "d:\c.txt" For Output As #1
 For j = 0 To i - 1
  Print #1, a(j)
 Next j
Close #1
end subcommand2_click()
 Dim tmp As String
Open "d:\c.txt" For Input As #1
 Do While (Not EOF(1))
 Line Input #1, tmp
 List1.AddItem tmp
Loop
close #1
end subcommand3_click()
list1.clear
end sub

Answer 3

保存成TXT格式的文件 别人可以直接打开修改，我希望保存的文件不能直接打开修改的，而且保存的地方在"DownLoad"文件夹中，应为软件要发给别人用所以我发的时候把这文件夹一起发过去 所以不确定他会把这文件夹放哪，但不关放哪，保存的地方就是这里面

Answer 4

文件格式设计思路：
    第一种（文本方式）：通过 List1.ListCount、list1.list()得到各条数据，用for将他们存到一个STRING变量中，注意，要设计好分隔符，常用的用chr(0)、vbcrlf等，存入文件中（open file for Output as #1）。
    第二种(随机方式)：设计一个自定义类型。如
       Type UserType
          ItemCount as long              '向  
          Data() as string               '动态数组
       end type
     将List1.ListCount存入ItemCount，根据ItemCount重置数组：redim data(ItemCount)。用for写入数据。存入文件中（open file for Random as #1）。至于能不能直接打开，你定一个新的扩展名就是了。

Answer 5

Private Sub Command1_Click()
Dim i As Integer
  Open "C:\Downloads\List.Dat" For Output As #1
  For i = 0 To List1.ListCount - 1
     Print #1, List1.List(i)
  Next i
  Close #1
End SubPrivate Sub Command2_Click()
Dim tmp As String  Open "C:\Downloads\List.Dat" For Input As #1
  Do Until EOF(1)
    Line Input #1, tmp
    List1.AddItem tmp
  Loop
  Close #1
End Sub

Answer 6

楼上的 你的方法可以 但是保存的文件名字是LIST  能把设置成保存的名字是list中的第1行内容呢？

Answer 7

然后Command2点击后出现打开窗口这样可以选择要用的文件了

Answer 8

保存名字的问题解决了 
现在问题就是command2中点击后出先个打开窗口这样可以选择要选择的文件了。