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

madio

''===================================================================
1 C8 W* F9 G# X' j9 r''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
3 q/ v+ k* t, ['' xhony@163.com
'' version 1.0
''===================================================================
) T' y0 ]( y* s/ s8 k3 N<%  

, B- ^# S) A' s" k
<>dim fso,f1
. Z" @! ^9 @, R% c  n; M' @Const ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
- E; @0 \  o7 V& E, iset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
6 {0 y! B/ u2 t, R) t- Q''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
" Q$ R9 z/ T* r1 K- o5 `; ]set rst=server.createobject("adodb.recordset")</P>
6 @$ ~2 X7 ?2 M% F, _, u0 r: P<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
+ K6 T6 C# R4 z7 ?* i) w, [) U<>dim fread</P>
# Q3 a/ }! e# j+ D5 l( F<>do while not f1.atEndOfStream
4 k2 }! ~( q( b/ u  j''用do... loop循环体插入数据
fread=f1.readline</P>
; i5 l' |# T* Z2 a* L<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
& X; ^! x0 R% mloop</P>
<>f1.close
# w0 {2 K$ f: J4 _conn.close
''''all over
%&gt;
! J# v* o. A6 ]9 m</P>