VB读取文本文件的某一行.doc

《VB读取文本文件的某一行.doc》由会员上传分享，免费在线阅读，更多相关内容在教育资源-天天文库。

1、Functionlines(txtpathAsString,ByValstartlineAsInteger,linenumAsInteger)AsString'显示txtpath文件的从startline行开始的linenum行的内容lines=""DimfiletxtAsString,xAsVariant,iAsIntegerfiletxt=String(FileLen(txtpath),"")OpentxtpathForBinaryAs1Get#1,,filetxtClose1x=Split(filetxt,vbCrLf)msgboxubound(x)

2、+1'行数Ifstartline>UBound(x)ThenMsgBox"行溢出",64,"err!":ExitFunctionIfstartline<=UBound(x)ThenIfstartline+linenum<=UBound(x)ThenFori=startlineTostartline+linenum-1lines=lines&x(i)&""NextElseFori=startlineToUBound(x)lines=lines&x(i)&""NextEndIf:EndIfEndFunction