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里面的内容为啥有两个双引号的""
怎么样去掉里面的双引号"",俺只想保存数字，不要双引号""

谢谢。。

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

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