Question

VBS Replace函数 替代空格的问题

VBS脚本语言 我的一个txt文档里面，通过VBs我想要把所有的空格都给删除掉，自学想了个用replace的办法

tmpk = Replace(report," ",vbNullString) '我的本意是用值为 0 的字符串代替空格。不过好像不行 就高手指点一下。
或者有什么其它办法能够把txt文档中的空格都删除掉。

Answer 1

tmpk = Replace(report," ","") 这样试试 记得把tmpk变量内容 写回原文本文件

追问

我自己写了个把变量写回原文本文件的段落，对但是感觉太麻烦了，不知道高手有没有什么简便的方法？

Open report For Input As #1
L = LOF(1)
AllData$ = Input$(L,1)
tmpk = Replace(AllData$," ","")
Close #1

Open report For Output As #1
Print #1,tmpk
Close #1