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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
! ]+ n/ Z0 g1 @7 R; ?'' xhony@163.com
% ?- P( v+ {; i! _  E! j'' version 1.0
0 i9 ~. l; P5 `0 p/ S2 A( c' n''===================================================================
. C6 z" e( i; h& Y0 P0 H<%  
: U7 }; D1 P# e  d+ I9 ^
2 d8 h1 K- x. R! y. x- `
/ G0 T3 n2 y/ c- N<>dim fso,f1
' e, n% J! `9 h6 vConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
% H: E% c3 U& L" u) l8 O/ U% L  N''使用fso对象读取信息。
. r+ j' m) z5 `# U/ O. Z2 lset f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
''打开要读取的文件
* N3 h% T3 }# @2 c1 _. Jdim conn,rst</P>
# k; P" L: D4 m) B# t3 {* S0 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>
; Z5 E3 a- U0 H" r<>do while not f1.atEndOfStream
5 j$ O( R7 W  C7 T8 g# d, h+ w''用do... loop循环体插入数据
6 ^: l1 B) z! N5 s, z6 kfread=f1.readline</P>
<>line=split(fread,":::")</P>
6 ~& \1 ^  n2 Z2 P) w, _<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
) w+ d/ O8 Q$ J, d4 s0 A7 u/ gloop</P>
+ q3 w9 l" G2 N! e7 Q/ }<>f1.close
conn.close
''''all over
, x' h; ?5 V  h$ n0 b( v%&gt;
5 k3 h/ l0 n+ }6 D$ V- C</P>