最善良的怪兽:VB中LISTBOX内容保存到文本

来源:百度文库 编辑:高校问答 时间:2024/04/30 13:16:47
Dim fn As Integer, I As Integer
fn = FreeFile '这是我自己设置的路径
Open parfiles For Output As fn
For I = 0 To List1.ListCount - 1
Print #fn, List1.list(I)
Next
Close fn

求除此之外的保存方法 因为这种保存会在末尾生成一个回车换行 也可能是LIST问题 这个问题就像一个刺 不拔不快哎 希望各位高手提供一内似的保存方法~
我知道了 是
Open parfiles For Output As 1
Print #1, Text9.Text
Close 1
的问题
不管你最后一个字符是什么 都会加上一个空的行 因为文本的初始状态就是在一个空的行里面 怎么解决呢?

把它读到一个字符串里,把最后一个字符截去,就可以去掉最后的换行符号了,然后把这个字符串写入文件。