1,485
社区成员
发帖
与我相关
我的任务
分享
dim sBuff as string,sLBuff() as string,sTmp() as string
dim I as long
open "xx.txt" for binary as #1
sbuff=space(lof(1))
get #1,,sbuff
close #1
slbuff()=split(sbuff,vbcrlf)
for i=0 to ubound(slbuff)
slbuff(I)=trim(slbuff(I))
if slbuff(I)<>"" then
stmp()=split(slbuff(I)," ")
debug.print stmp(3),stmp(4)
end if
next