中国DOS联盟

3.txt 的内容如下：
0 中继群入局话务测量 1 小时 2006-12-14 00:00 简约风格 0 js 否 准确 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 0 247 247 0 0 0 100.00 % 0.00 % 0.00 % 0.00 % 0.00 % 0.00 0.00 0.00 0.00 0.00 0.00 0 %
0 中继群入局话务测量 1 小时 2006-12-14 00:00 简约风格 1 nh 否 准确 762 707 132 111 85 20 0 0 4 287 11 1 0 0 0 0 0 1 0 0 0 0 0 0 347 0 0 960 960 0 0 0 100.00 % 0.00 % 17.32 % 14.57 % 55.64 % 18.14 18.14 0.02 16.35 16.19 83.51 26 %

字段还真多啊-_-|||

真是高人,这复杂的代码也能写出来.学习!

怎么才学会DOS？

揍个热闹

on error resume next

set fso=createobject("scripting.filesystemobject")

set file=fso.opentextfile("1.txt",1)

do while file.AtEndOfStream <> True

a=file.readline

do until instr(a,"  ")=0

a=replace (a,"  "," ")

loop

b=b & replace(a," ","|")& vbcrlf

loop

file.close

set file=fso.createtextfile("222.txt")

file.write b

file.close

msgbox "文件处理完毕,请查看222.txt文件",48+4096,"操作成功"