[转帖]从文本文件中读取信息并存储入数据库

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
: F4 p, f6 b) n4 T'' xhony@163.com
5 K$ m2 c& `' _2 `0 x'' version 1.0
5 Y5 F2 g! T. W# O- X8 F''===================================================================
/ L. D  E; c# ]  K! O<%  


; S# }2 ]8 w# [% u! B<>dim fso,f1
2 U- X0 o( P- Q6 F3 Y2 eConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
1 b" O/ x6 G8 p: a' |''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
. E. g, }) @3 G; D* E! ~''打开要读取的文件
dim conn,rst</P>
& \: x4 t5 S3 U! X5 Y<>set conn=server.createobject("adodb.connection")
2 K4 T# A; e$ ^/ N/ P4 Q7 g4 i''建立数据库连接，执行操作
/ ~5 P3 X; m3 j+ A5 m0 Mset rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
/ F. x* H. `9 H/ J) m# x* t1 c& m" vfread=f1.readline</P>
: m" I& y& Y1 ?8 t' m, n<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
$ `5 b3 x; ]' e+ u8 |5 Nrst.open
loop</P>
: M  K! b) v2 s# j# o; x; v' ?<>f1.close
conn.close
''''all over
%&gt;
</P>