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

madio

''===================================================================
5 M( O. r) S" B- X% ~, e''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……
'' xhony@163.com
' h9 |9 v+ g6 H, Z, g9 F'' version 1.0
''===================================================================
- I7 t( r* e* |/ \* A<%  
  ]- z; \/ M  P; U: a- B7 ?1 C

<>dim fso,f1
( A. t& D3 U1 z% O* V1 d( I( IConst ForReading = 1</P>
<>set fso=createobject("Scripting.FileSystemObject")
''使用fso对象读取信息。
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
$ I- N7 v4 g: ]! Q' A''打开要读取的文件
dim conn,rst</P>
$ w2 {; O( M) `7 G) B- F- Q2 m<>set conn=server.createobject("adodb.connection")
''建立数据库连接，执行操作
3 L' t) p6 D2 U% A/ X, \set rst=server.createobject("adodb.recordset")</P>
& x* F: v, P( H2 V3 J6 n/ k0 y<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
% s2 U' P9 x" {; z<>rst.activeconnection=conn</P>
<>dim fread</P>
) x: Q  R, P0 r3 b! @<>do while not f1.atEndOfStream
''用do... loop循环体插入数据
1 H2 ]' c2 n5 c; S* U1 a! hfread=f1.readline</P>
! N* }: M7 B' a3 g9 V<>line=split(fread,":::")</P>
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
rst.open
loop</P>
6 U' @0 Z& M/ O$ C<>f1.close
conn.close
" ?# l- z1 f2 j  w. v1 ^''''all over
/ _5 f# u3 R  T4 E2 B: F6 v# Y%&gt;
</P>