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

madio

''===================================================================
8 X4 @& _. C- j, f8 c''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
% I* r2 w2 v+ z'' version 1.0
! o" ?2 }8 Q6 i''===================================================================
  F0 [: z& a" W- V/ F<%  

% `: A, T( O" a+ f
) P  ?/ a) ~5 P2 ~# P4 w5 y* \<>dim fso,f1
9 j0 ?  q7 \$ Y* K' ]! BConst ForReading = 1</P>
2 m) H5 i( G! `8 t$ y, d& i: W7 X<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
; l- |1 l1 h; Y- i( Dset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
2 P) L" J+ H  @" W, i; v''打开要读取的文件
dim conn,rst</P>
, M/ K( G/ W8 `' _( K0 m& N<>set conn=server.createobject("adodb.connection")
8 Z+ ~9 w" b( Y6 v6 V''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
. f5 `& P$ M/ m1 L' r- c. m7 d  N<>rst.activeconnection=conn</P>
<>dim fread</P>
7 j, s* e% Z4 a4 N<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
# l, t; l5 c" {% D! R; gfread=f1.readline</P>
<>line=split(fread,":::")</P>
0 i& _4 r. W9 \6 o; ~+ N<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
<>f1.close
conn.close
''''all over
%&gt;
/ F+ ?% ^7 G  H3 T</P>