数学建模社区-数学中国

标题: [转帖]从文本文件中读取信息并存储入数据库 [打印本页]
作者: madio    时间: 2004-11-9 17:07
标题: [转帖]从文本文件中读取信息并存储入数据库
''===================================================================/ ?' ^1 e7 I- j) Y; @! L+ T
''从文本文件中读取信息，取其中的一部分，并且将其插入到数据库中去……4 t$ i* _4 ?. a+ q4 e- t
'' xhony@163.com& B; V. S7 `$ R
'' version 1.0& ]( n. P" ^4 ]! `) M2 K
''===================================================================
6 y, c& K" H  d& F" W0 V4 v<%  
* T2 p: L" X4 m& j' I1 L1 C. T0 P" R1 R

, }4 T/ k1 R, p" E: S<>dim fso,f1! Y/ B" i2 U' K7 s' n) r  v
Const ForReading = 1</P>  w  e" X5 O& d7 c% b
<>set fso=createobject("Scripting.FileSystemObject")
( E" m: a8 E" {) k* a''使用fso对象读取信息。( p% L5 [$ W' I8 e  t
set f1=fso.OpenTextFile("E:\doit\info2.txt", ForReading)
, w+ O- n  H" j''打开要读取的文件
2 Q. A/ A" {1 d" C$ _/ @# A. Idim conn,rst</P>
# O4 E7 [0 i& u3 d. Y9 N& \<>set conn=server.createobject("adodb.connection")) l" e# x* H0 d! G5 y. Q
''建立数据库连接，执行操作2 r; p2 c  u4 q2 n7 c) h
set rst=server.createobject("adodb.recordset")</P>1 J1 O! v7 h8 V5 e# d0 z; `
<>conn.open "Driver={Microsoft Access Driver (*.mdb)};DBQ="&amp;Server.mappath("db1.mdb")</P>; P$ N  w+ H$ W; ]" A
<>rst.activeconnection=conn</P>3 g! X4 a; R5 Y3 U6 s; z1 T
<>dim fread</P>
# w, i1 W$ a8 c2 z3 k<>do while not f1.atEndOfStream 2 L% @2 K% c3 {
''用do... loop循环体插入数据
! f( }  u" m7 q4 Afread=f1.readline</P>/ i) ?  B. J* h% o! B  ]# g2 _
<>line=split(fread,":::")</P>9 b; b* j6 K; H( f* O; ^, P# J2 j
<>rst.source="insert into barcode1(barcode1) values ("&amp;trim(line(0))&amp;")"
  o) p# s: L( q2 N+ R! j- @7 v2 Arst.open
5 Q# g5 s3 ?3 h8 f- D$ Qloop</P># d9 V; @/ h  s( O/ s
<>f1.close. {# X2 x/ v8 |4 j# Z7 E4 x  {
conn.close" t1 ^/ Z: n6 a3 L: O# E) G! X$ }
''''all over
6 `3 X9 z5 h; R, R' s%&gt;% {+ @2 w& Q& e; I# Z- q
</P>



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