Private Sub Command1_Click()
For i = Text1 To Text2
List1.AddItem (i)
Next

End Sub

Private Sub Command2_Click()
Open App.Path & "\list.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Write #1, List1.List(i)
Next
Close #1
End Sub

俺保存list里面的内容为啥有两个双引号的""
怎么样去掉里面的双引号"",俺只想保存数字，不要双引号""

为啥不一次写入呢？

dim S as string
dim I as long

Open App.Path & "\list.txt" For Output As #1
For i = 0 To List1.ListCount - 1
s=s & List1.List(i) & vbcrlf '提取到字符串
Next
Write #1, s  '一次写入，我一般喜欢用二进制方式写入，现在没打开VB，也就没测试，你看看。
Close #1

Private Sub Command1_Click()
For i = Val(Text1.Text) To Val(Text2.Text)
List1.AddItem (i)
Next

End Sub

Private Sub Command2_Click()
Open App.Path & "\list.txt" For Output As #1
For i = 0 To List1.ListCount - 1
Print #1, List1.List(i) '针对字符串，Write会自动加双引号
Next
Close #1
End Sub

谢谢。。

终于没有双引号了，谢谢版主，

[ 本帖最后由 ymhy12345 于 2014-4-22 21:02 编辑 ]