数学建模社区-数学中国

标题: [转帖]从文本文件中读取信息并存储入数据库 [打印本页]
作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================
! c' w: Z5 ]0 n''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……3 A) l6 C. w5 I% Y5 ^
'' xhony@163.com
) j! y6 w+ k: A+ \! `3 Y8 S'' version 1.0) V4 `* Y2 k/ l( g4 N
''===================================================================0 o! ~& y7 a9 G& S9 c# ~0 p2 S* Y
<%  5 |9 _/ U" |5 B/ {1 y
* h' u# \0 @: D/ Z

+ Q; d, q( ?# D" j<>dim fso,f1" Y/ y+ N  Z$ E# d6 L) F1 K6 ~, u) v
Const ForReading = 1</P>
4 b/ K' R& U  I6 p& z* s* A; @9 c<>set fso=createobject("Scripting.FileSystemObject")
, P" L2 N( t6 {: O4 [" D8 r" ?''使用fso对象读取信息。7 i6 s; S) t. V
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
9 o' ^' v$ u1 V+ E4 R''打开要读取的文件1 z8 u( {! O3 [: r0 A; F5 p
dim conn,rst</P>3 m: N! m9 K% L' a2 }/ t
<>set conn=server.createobject("adodb.connection")
1 M" x5 u& h- Y5 c4 S# U''建立数据库连接，执行操作
8 G7 N& D* D% {* ]set rst=server.createobject("adodb.recordset")</P>
( t6 p8 j& Q5 ?) W( q9 z, r<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>
' v  ^; D; P- {8 L9 i9 P  ~8 i<>rst.activeconnection=conn</P>
. W0 n1 |5 y0 ]9 `' ?<>dim fread</P>
& Z& ~* E# x! v% J# }) L+ i$ }<>do while not f1.atEndOfStream
  d8 M+ u0 @1 M''用do... loop循环体插入数据& L" x6 U0 s" J+ `
fread=f1.readline</P>
2 K# R0 T' i7 q" s7 z, B<>line=split(fread,":::")</P>' `; D' P. S1 H- u) I, E
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
  @. `1 Y9 {+ }% j0 ?( Frst.open+ W$ v% P# d, w, J9 C2 u
loop</P>
8 Z+ u+ i; X( ]) V3 z<>f1.close
4 H; m& |3 R' L0 \. c; pconn.close
' \2 @& v& [2 u. S. K''''all over( V$ j( ~' f/ q8 j0 q; a/ F
%&gt;3 `5 \  }" P, j+ X/ O
</P>



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