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

madio

''===================================================================
0 p- T' k3 u' o% t% m/ w- c''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
/ U- |, G7 h; F1 }' _2 H5 J'' version 1.0
% R% W/ U! P2 ^''===================================================================
7 V" K# g/ t2 D0 u) Z" Q$ K<%  
' w) e2 d) V9 v* a
  ^# Z$ _; k2 \, A( d
$ d0 b1 j* j7 e6 O: W3 P* [<>dim fso,f1
Const ForReading = 1</P>
- K1 |, B+ c% M6 d<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
$ y; `  [( j, [: V- z+ i6 i3 d5 L3 cset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
+ @; T) R4 n9 r3 v<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
1 @$ [% R2 t- N/ g' X<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
* Z9 l' n- s, Y  H. E8 @fread=f1.readline</P>
$ H0 U, P  F; N<>line=split(fread,":::")</P>
5 L) S6 A9 l; Y<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
) v" V& N( X. F1 A7 [# H2 D! ~<>f1.close
) _4 W) T- o; P$ Lconn.close
''''all over
4 R& `3 ~. h" t& h+ ]%&gt;
8 y1 z4 I9 M* P/ Y" f, O7 E</P>