VB编程将文本文件，一个字一行，导入listbox

导入之后效果

2025-02-27 00:52:31

推荐回答（2个）

回答1：

先读取文件到内存变量AT里：

dim a as string
dim at as string
Open "c:\1.txt" For Input As #1 ‘c:\1.txt是你文件位置
Do While Not EOF(1) '如果没读到最后一行则循环
Line Input #1, a
at = at & a
Loop
Close #1
at = replace(at,vbcrlf,"") '去掉换行

然后添加到list里：
List1.Clear
for i = 1 to len(at)
List1.AddItem Mid(at, i, 1)
next i

回答2：

五笔，哈哈哈

用一个循环和mid函数就可以了

VB编程 将文本文件，一个字一行，导入listbox

VB编程将文本文件，一个字一行，导入listbox