高分求助！！txt文件去空格问题！

老版本可以是 6.5 万条; 2007 版可以是 1M 条

第7楼. 由 andyzgx1 于 2007-5-20 23:53:17 发表

导入SQL搞！

第8楼. 由 charleswu82 于 2007-5-21 1:16:05 发表

编写个程序，删除空格的ascii码就行了

第9楼. 由 adream99 于 2007-5-21 16:06:57 发表

自己写一个小程序就可以了。

每读入一行，就分析，然后写到写一个文件中

第10楼. 由 zzxiaoma 于 2007-5-21 17:57:49 发表

写到库里比较好能

第11楼. 由 ccs02287 于 2007-5-21 20:01:36 发表

帮顶！

第12楼. 由 chenxdb 于 2007-5-22 15:30:42 发表

"用VBS吧

"把下面的代码粘贴到记事本中，并另存为扩展名为:VBS的文档，并双击它就可以了

"注意：数据源文件与要保存文件的路径

Dim fso

Set fso = CreateObject("Scripting.FileSystemObject")

s = "C:\TEMP\test.txt" "数据源路径

d = "C:\TEMP\TEST2.txt" "数据存放路径

Dim s1

Dim s2

Set s1 = fso.OpenTextFile(s)

Set s2 = fso.OpenTextFile(d, 2, True)

i=0

Dim line

While Not s1.AtEndOfLine

line = Left(Replace(s1.ReadLine, " ", "") & " ", 17)

s2.WriteLine (line)

i=i+1

Wend

s1.Close

s2.Close

MsgBox "完成,共有 " & i & " 条记录转换完成,文件存放在" & d