open "c:\1.txt" for input as #1
dim s as string
do
line input #1,s
if len(s) then
list1.additem s
end if
loop while not eof(1)
close #1
dim s as string
do
line input #1,s
if len(s) then
list1.additem s
end if
loop while not eof(1)
close #1
调试欢乐多
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货