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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
'' version 1.0
) k! I1 K0 R5 k: o, @''===================================================================
* s. f, }. G  ~1 H  `  L* r0 X<%  
' G6 J& {+ l! \" r# }, b, B4 i
. l3 ]: p& ^& W* }6 p# \
<>dim fso,f1
9 H" o- D$ f1 i2 n. c, f6 eConst ForReading = 1</P>
5 b$ h* o1 x/ A2 L" G" c<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
) C1 i/ M$ \8 A; {- C' `; aset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
, {, j/ o* ~1 E- Q$ G''打开要读取的文件
! U' Q, `: |. Y. ^5 H7 O# gdim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
set 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>
9 D+ K( s8 K" a5 j- ~<>do while not f1.atEndOfStream
) Y5 h, }! o& o. x''用do... loop循环体插入数据
& ~6 l9 g# J; |" l3 Xfread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
% C5 U; K- V5 R; t5 jrst.open
4 d! e: T0 O% w) f# o4 n  iloop</P>
<>f1.close
conn.close
+ q: S- ?5 f: w$ D" g0 \" B''''all over
# O+ Y4 A' R, ]; j%&gt;
9 d& d2 v! C1 f3 Y& t% V" s</P>