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

madio

''===================================================================
) g4 E) I) u8 Z$ W1 J7 ^. a''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
+ j/ d1 V9 l# g' i, B'' xhony@163.com
& h: J- ~5 F5 S8 s( i; \! z'' version 1.0
3 h8 b! A3 U2 Y% s$ Y! W''===================================================================
# f0 v) }+ T6 f$ z6 Y<%  

* M4 f. j& E0 _% v1 Y9 Z
<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
, `& N" g% H2 V" S8 dset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
, P1 M) F! ?* p7 n' [dim conn,rst</P>
/ \' e6 T9 a8 S" h7 L# X<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
/ x6 l* |! I3 o3 }$ R4 J/ Jset rst=server.createobject("adodb.recordset")</P>
) Z0 D, o7 g) a0 Y8 N<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
+ g) s- X$ ]9 K' Y# _4 [7 C( D<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
  i! g& o5 c; t1 R5 X" Gfread=f1.readline</P>
- t1 Q  K% [/ }0 O3 t<>line=split(fread,":::")</P>
, e0 b$ f3 q; q9 ]4 S; P, f; n<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
7 o& T5 h0 ?! Y2 U1 orst.open
loop</P>
# c3 n5 u) y- C3 u- p% F<>f1.close
; ]  e9 O3 V' r: O' z/ Qconn.close
''''all over
8 u% ?7 O- ~% v& P- h3 D%&gt;
" h" T  t) v0 [1 ~  `/ U1 T</P>