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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
2 f& C$ J5 V( y% b  O'' version 1.0
''===================================================================
2 O* P  j& P2 J3 x<%  


! X* K! ]3 x5 l% M' A<>dim fso,f1
Const ForReading = 1</P>
2 r3 h9 {* E/ W( [/ U<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
# R6 K+ {0 _. Y; @4 Kset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
% z. ~2 a' h- G' k: E' V& p''打开要读取的文件
5 }1 k+ b: s+ j; c. Sdim conn,rst</P>
% |- Q5 Z7 i8 B+ y+ l<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
' @: S! S% T$ h+ bset rst=server.createobject("adodb.recordset")</P>
, W6 v# `1 d- x1 v  F5 e4 O" M<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
<>dim fread</P>
<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
fread=f1.readline</P>
<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
' }3 t( V8 y# hloop</P>
' ~2 n7 @7 P4 R9 L# u0 I<>f1.close
conn.close
4 \1 }1 N) _. s$ y''''all over
%&gt;
' h) X6 ?: n$ V$ q5 `2 E</P>