Question

怎样在用vb输出txt文件时候自动去除空白行的空格 ，我现在在输出txt的时候，有很多行都是空格，本来只有K

怎样在用vb输出txt文件时候自动去除空白行的空格 ，我现在在输出txt的时候，有很多行都是空格，本来只有几十K的文件编程几十兆了，速度很慢，而且看起来头疼。要怎么搞才能去除空白行的空格，贴上代码：高手直接在这个上面修改一下吧。代码如下：
Open "c:\程序.txt" For Append As #1
For a = 1 To 1500
For b = 1 To 1500
Print #1, Cells(a, b),
Next b
Print #1,
Next a
Close #1
End Sub

Answer 1

Open "c:\程序.txt" For Append As #1
For a = 1 To UsedRange.Rows.Count
For b = 1 To UsedRange.Columns.Count
If Trim(Cells(a, b)) <> "" Then Print #1, Trim(Cells(a, b)),
Next b
Print #1
Next a
Close #1
End Sub

追问

我改了一下1 to UsedRange.Rows.Count 这里为一个具体的数字，然后输出。输出结果已经符合我的要求了，不过在excel上面有一部分我是隐藏掉的，但是在输出txt的时候把隐藏掉的部分也输出了，这个能去掉吗？还有在excel里面的单元格里面我是设了小数点后是四位的，但是到txt里面小数点后变成非常多位了。这个能改不?

Answer 2

只是去掉空格不去掉行的话改成这样
Print #1, replace(Cells(a, b)," ","")

追问

行也要去掉，现在有数据的行后面也有很多空格，能不能把他们一起去掉？我测试了一下你的代码，行的空格是去掉了，行没删除，而且把第一行后面的内容也干掉了。

追答

如果是去掉所有空格和空行就这样写
if replace(Cells(a, b)," ","")"" then Print #1, replace(Cells(a, b)," ","")

如果去掉所有的空行，有数据的行只去掉末尾的空格就这样写
if trim(Cells(a, b))"" then Print #1, rtrim(Cells(a, b))

追问

能帮我写完整的代码吗？我不怎么会用vb。

追答

就把你的这句 Print #1, Cells(a, b), 换成我的那句就可以了

追问

嗯，测试成功。文件一下子变小了，还有一个问题，我有的行数据是几个单元格拼起来的。能不能比如说10列之内的单元格还是正常输出，其余的空格都删掉？因为现在输出的数据格式变成一个单元格一行了。万分感谢你的回答！

追答

你意思我不太明白。是说 cell(0,b) 到cell(9,b)里边的空格不删除吗？空行还要删除吗？还有是哪几格合成一行呢？

追问

追答

改成这样试试
dim aa as string
Open "c:\程序.txt" For Append As #1
For a = 1 To 1500
aa=""
For b = 1 To 1500
aa=aa & " " cells(a,b)
Next b
if trim(aa)"" then Print #1, trim(aa)
Next a
Close #1
End Sub

追问

这一行貌似有错误？

追答

估计是手抖了，双个号后边再加个 &。还有a是行,b是列，如果反了就改成cells(b,a)就可以了

Answer 3

你的意思是替换空格
代码我就不修改了
你可以这样写
a = Replace(替换文本, " ", "")
这样就OK了

追问

哎，我不怎么懂vb，能麻烦一下写代码吗?光有想法没有实现的手段还是不行呢

追答

郁闷
你不是把"c:\程序.txt“文件读入了

之后把储存变量的填入替换文本就行了
哦，对了 储存变量=Replace(储存变量, " ", "")