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

madio

''===================================================================
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
  w, ~0 `8 L! H3 ?; }! P'' xhony@163.com
0 a. T* {) {4 u8 e'' version 1.0
''===================================================================
$ R3 {( E+ Z4 D2 h3 m' Z7 r+ A<%  
" K, y; ]7 t4 ?! y' c

<>dim fso,f1
5 v5 g3 j0 y2 K) TConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
- Q, \7 ?& R7 Z2 @$ }''打开要读取的文件
dim conn,rst</P>
<>set conn=server.createobject("adodb.connection")
: ?# E2 q2 ~7 O4 ?$ V# z4 [6 \''建立数据库连接，执行操作
set rst=server.createobject("adodb.recordset")</P>
" R* o" ]/ g  U/ V<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
<>rst.activeconnection=conn</P>
( P: ?1 B+ e3 T9 \$ K<>dim fread</P>
( k0 W1 E; Y" r; ]& B* O<>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 ^, U7 I  c. U& @( \% lloop</P>
3 L, W# G! y0 Y$ I6 v<>f1.close
conn.close
''''all over
6 i7 J; r1 N( A7 C%&gt;
</P>