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

madio

''===================================================================
( K- w+ l: b0 F''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
/ m$ u& y. E0 V+ L; Q+ S& }/ Q5 P$ v'' xhony@163.com
'' version 1.0
''===================================================================
3 _8 A/ ^- M0 r8 H( l& Q<%  


<>dim fso,f1
Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
% n5 i2 y3 s7 R/ P  ?7 L' }6 aset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
. d/ ~' O3 I2 N" Z''打开要读取的文件
' @  f1 I8 A; H2 Ydim conn,rst</P>
4 j% [* Q3 \  h: N* A! h% O<>set conn=server.createobject("adodb.connection")
8 K% {5 p& y3 e1 E7 O( U7 Q''建立数据库连接，执行操作
+ a& p& z+ r: ^set rst=server.createobject("adodb.recordset")</P>
; C: Z3 _) M: l  I6 A  F' G<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
9 N* R7 j8 [, u2 g<>dim fread</P>
<>do while not f1.atEndOfStream
7 G# ^+ O9 A9 {5 |. k; e''用do... loop循环体插入数据
fread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
$ y) {% k5 ~' D! g4 m& @* Crst.open
4 G: \: P) B6 jloop</P>
: `, ^' b$ _# `' A! F; Z0 V<>f1.close
conn.close
4 v+ A9 |- f; N# v/ j: i''''all over
1 l2 j7 m9 G9 f* v( g%&gt;
</P>