数学建模社区-数学中国

标题: [转帖]从文本文件中读取信息并存储入数据库 [打印本页]

作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================
  Q7 q: ]+ T, j3 N8 N- f# J0 d' Y3 N''从文本文件中读取信息,取其中的一部分,并且将其插入到数据库中去……
" E: L: [$ K" ]'' xhony@163.com
0 Y1 u8 a9 D7 i& ]& B: R'' version 1.0
% D; j* ~+ s! [5 ?/ t''===================================================================
/ M" G/ u" ]7 U2 [<%  
  z% E# o5 n- ]4 E
; p5 a& n4 l) C! N( n+ |, F' g( @8 e
<>dim fso,f1' T) v' i+ ^: J- [
Const ForReading = 1</P>0 g) i& v- q# Y- x$ t' ]+ u0 S7 a
<>set fso=createobject("Scripting.FileSystemObject")
. q* R( [  D, @2 K4 Q, q''使用fso对象读取信息。7 l7 _2 ]' n# }, k4 k
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
: o. z3 ]9 P8 q/ m% j''打开要读取的文件
- ?; M5 [. j; k, Jdim conn,rst</P># M5 q; c4 J6 N* M6 e
<>set conn=server.createobject("adodb.connection")
9 ^" X! l8 |% X8 L; L) O''建立数据库连接,执行操作9 L, a5 d* E9 ?/ w6 W
set rst=server.createobject("adodb.recordset")</P>% x+ k. m* ~1 B5 i
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
3 {9 M# T- K9 Y$ a<>rst.activeconnection=conn</P>
3 {- Z. D: Z$ M- \$ Q) `) c<>dim fread</P>
7 L  W! C; |0 P; {% d, P<>do while not f1.atEndOfStream ! e5 J2 O* i. r8 A1 V4 {; J
''用do... loop循环体插入数据+ a2 C: ?, G$ C' p6 D
fread=f1.readline</P>4 R7 X" J# I$ a4 Y
<>line=split(fread,":::")</P>
# M3 V, {/ _7 X  @1 k+ ~<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
' Y0 ~4 W2 z2 ], B, a4 q8 grst.open/ n4 N& o' Q2 I& ~  H$ K
loop</P>! A5 f% b+ W, _( c; m  [; J
<>f1.close
- s: N% i5 @, O' [/ A7 }conn.close
! {& p* w/ m) g4 o& T''''all over
4 X& t5 _9 j2 |! P$ D0 \%&gt;! l+ b) u- a4 }$ P+ Q) A
</P>




欢迎光临 数学建模社区-数学中国 (http://www.madio.net/) Powered by Discuz! X2.5