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

madio

''===================================================================
# e; s1 P$ g" ^) _9 R2 d7 D7 K''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
* U1 R9 j7 s3 i( e; D& }$ i! \0 _4 }'' xhony@163.com
1 U1 h3 r5 ?- q! Q1 D8 X- N8 B& w'' version 1.0
' v$ z3 Q6 ?: y# E''===================================================================
( H9 G. O( b  @/ r7 W; j* T* f: x<%  
" R, _4 ]7 R- ]6 m2 \! C

& T+ D+ O3 Q8 J<>dim fso,f1
: f' W5 u0 T) w4 mConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
5 [5 C+ _6 }% f/ r''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
, Z) a$ Z7 ~3 v9 ]''打开要读取的文件
- b9 x  B5 U# M( E9 e+ f, T2 W, wdim conn,rst</P>
, F" N- ~; ?  g: F9 T<>set conn=server.createobject("adodb.connection")
6 J0 o, ^, g( o- T0 S''建立数据库连接，执行操作
* h5 Z% j% c" y/ o) |! A$ {set rst=server.createobject("adodb.recordset")</P>
' ~5 y4 Y) l, x7 {<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
$ h& V( M' W0 |5 Z% N<>dim fread</P>
! _  O7 L8 W4 D4 Z; K$ G! f<>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
0 i. y( J; C* L" W6 D+ [* Oloop</P>
8 ~7 W! q8 D$ z1 B: \- s7 l<>f1.close
% X3 \3 l$ n0 r% b# n/ Hconn.close
9 |- l" X2 w, @; A''''all over
%&gt;
* ~; y: G7 _9 L2 p</P>