成都公积金初始密码:VB中LISTBOX读取文本的一个小问题

来源：百度文库编辑：高校问答时间：2024/04/30 14:36:31

Dim strtemp As String
Dim strt As Variant
List1.Clear
Open parfiles For Binary As #1
strtemp = Input$(LOF(1), 1)
Close #1
strt = Split(strtemp, Chr(10))
Dim I As Long
For I = LBound(strt) To UBound(strt)
If Trim(strt) <> "" Then
List1.AddItem strt(I)
End If
Next I

这里是Chr(10) 每次打开都会出现0-1个多余的换行
我把他换成CHR（13）每次打开都会出现2-3个多余的回车换行 ■ 这个样子的

请问有什么办法能让不出现换行和回车
就Chr(10)
有没有什么方式能在打开上面的代码的同时检索一下LISTBOX中的没有记录的（如空的字符记录和无字符的记录）然后删除那一行

这是数据库的插入数据的问题.

vbcrlf

VB中LISTBOX读取文本的一个小问题 VB中LISTBOX内容保存到文本的问题问一个VB中Listbox的问题 VB中LISTBOX内容保存到文本关于VC中listbox的小问题 vb中listbox的应用一个mfc中listbox的问题 VB中如何将ListBox的内容保存到文本中 vb的listbox控件 VB读取TXT文件的一个问题