list 保存内容问题？

ymhy12345 发布于 2014-04-22 17:44， 501 次点击

程序代码：

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

只有本站会员才能查看附件，请登录

4 回复

夜的影子2014-04-22 20:03

为啥不一次写入呢？

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

owenlu19812014-04-22 20:55

程序代码：

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

ymhy123452014-04-22 20:56

回复 2 楼夜的影子

谢谢。。

ymhy123452014-04-22 20:59

回复 3 楼 owenlu1981

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

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