adodb

[VBA]读取⽂件常⽤的⽅法

（）（⼤。。。

'

#serachbigfile(set)→itisfast

#SubsearchLineFromText()

tion

set

DimrsListAsCollection

DimtempStrAsString

SetCN=tion

SetrsList=NewCollection

"Provider=.4.0;"&_

"DataSource=D:work_forfree20160313_for_vba_open_bigfile;"&_

"ExtendedProperties='text;HDR=NO;CharacterSet=65001'"

'FMT=Delimited

SetRS=e("SELECT*REF1LIKE'%ERROR%'")

'(0);(1);(2)

tempStr=(0)

pStr

xt

Loop

SetRS=Nothing

SetCN=Nothing

EndSub

'

#read&writefile(set)→itisslowly

#'writefile

SubwriteFileFromList(outFileUrl,mylistAs,CharSet)

SetStm=CreateObject("adodb.")

=2

=3

t=CharSet

ForEachmyRowInmylist

extmyRow

Next

FileoutFileUrl,2

SetStm=Nothing

EndSub

'readfile

FunctionreadTextFile(fileUrl,myCharSet)AsCollection

DimrsArrAsVariant

DimtmpStrAsString

DimrsListAsCollection

SetrsList=NewCollection

SetStm=CreateObject("")

'datatype

=adTypeText'adTypeBinary

'Authority

'=1

t=myCharSet

omFile(fileUrl)

Dimtemp1AsVariant

temp1=xt(adReadAll)

rsArr=(vbLf)

ForEachiInrsArr

tmpStr=i

Str

Next

SetStm=Nothing

SetreadTextFile=rsList

EndFunction

Submymain()

CallreadTextFile("D:work_forfree20160313_for_vba_open_","UTF-8")

EndSub