读书人

读取TXT文件解决办法

发布时间: 2012-03-31 13:13:26 作者: rapoo

读取TXT文件
这是一个月数据:文件,现在想把他们导入到数据库中,该如何实现?谢谢
数据格式如下:
第一段是:基本信息和日期
其后P0表示气压,一个月数据,以=结束,后面数据格式类似
54555 355312000 00104 00119 2012 02
P0
0281 0311 0314 0348 0349 0224
0366 0380 0341 0333 0380 0329
0313 0285 0234 0240 0337 0220
0250 0266 0248 0248 0280 0240
0231 0224 0184 0184 0257 0177
0181 0172 0167 0228 0228 0160
0268 0293 0275 0295 0295 0227
0286 0285 0252 0263 0304 0247
0267 0275 0257 0258 0285 0251
0267 0283 0271 0289 0289 0257
0294 0296 0271 0280 0298 0262
0290 0286 0252 0248 0294 0246
0233 0234 0224 0231 0250 0217
0223 0237 0218 0241 0241 0214
0276 0280 0254 0263 0282 0241
0268 0277 0251 0276 0288 0249
0286 0301 0283 0322 0322 0276
0322 0333 0298 0294 0339 0286
0292 0287 0253 0249 0301 0242
0250 0246 0220 0223 0259 0215
0206 0196 0186 0185 0223 0183
0187 0156 0113 0126 0190 0108
0159 0212 0223 0230 0231 0126
0217 0210 0192 0208 0241 0185
0236 0264 0258 0281 0284 0208
0292 0291 0273 0285 0300 0265
0295 0290 0254 0255 0296 0249
0233 0233 0220 0230 0254 0210
0227 0228 0207 0201 0235 0198=
T0
-055 -064 -011 -051 0004 -069
-079 -077 -020 -052 -017 -088
-079 -076 0036 -007 0037 -096
-045 -035 0052 0033 0055 -049
0033 0025 0064 0032 0075 0020
0020 0026 0059 -013 0078 -013
-043 -069 -035 -067 -013 -073
-078 -054 0005 -023 0012 -091
-058 -046 0037 0005 0039 -067
-039 -013 0056 -001 0061 -043
-044 -044 0069 0004 0071 -062
-025 0003 0052 0024 0062 -030
0023 0025 0034 0031 0044 0018
0017 0013 0068 0022 0074 -001
0002 -018 0040 0015 0042 -024
-015 -012 0045 -007 0048 -023
-040 -035 0022 -039 0026 -047
-064 -041 0014 -017 0025 -079
-050 -040 0064 0021 0067 -065
-023 -010 0071 0033 0080 -029
0042 0052 0052 0049 0058 0026
0044 0045 0055 0056 0062 0041
0043 -012 0042 -008 0057 -016
-029 -027 0033 0002 0051 -038
-013 -005 0034 -020 0038 -020
-027 -024 0044 0012 0049 -030
-027 -016 0034 0014 0042 -051
0004 0016 0053 0024 0059 -007
0007 0018 0069 0050 0078 -005=
??????


[解决办法]
如果都是同样的格式,直接编个程序读到数据库不就好了
path="x.txt"
filePath=server.mappath(path)
set txt=fs.opentextfile(filePath,1,true)
do while not txt.atendofstream
line=txt.readline '一行行的读
arr=split(line," ")

loop

读书人网 >VB

热点推荐