【已解决】BAT或VBS如何去除文本结尾的空行？

思想之翼

去除文本结尾的空行
a.txt用VBS按列分解后，每个文本数据结尾（最底）有一空行，导入excel运行宏代码时会报错，如何修改这VBS代码，就可以去除最底的空行？抑或再写一批处理去除空行？

xxpinqz

http://www.bathome.net/thread-24430-1-1.html
是这里头的问题吧？
vbs不懂，第三方也不懂，
没见过猪，但也吃过猪肉，看多了还是知道vbCrLf代表换行回车。
所以应该就是str = str & vbCrLf这里没判断才会空行。加个是否最后一行的判断就可以
或者判断是否第一行；不懂写VBS代码，套用批处理的思路，下面REM的两句~~

1. 
   
2. Sub getColumn(ar,filename)
   
3.         Set file = FSO.OpenTextFile("a.txt",1)
   
4. rem set line1=true
   
5.         Do While file.AtEndOfStream <> True
   
6.                 n = Split(file.ReadLine)
   
7. rem if line1 = true then set line1=false else str = str & vbCrLf
   
8.                   str = str & n(0)
   
9.                   For Each a In ar
   
10.                         str = str & " " & n(a)
    
11.                   Next
    
12.         Loop
    
13.         file.Close
    
14.         Set file = FSO.CreateTextFile(filename,True)
    
15.         file.Write str
    
16.         file.Close
    
17. End Sub
    

复制代码

我来了

不就行末　多了几个空格么？
用textpro点１下菜单就搞定了。

terse

简单的修改 就是输出时 截取到字符到倒数第一个   Write left(str,len(str)-1)

思想之翼

谢谢各位的热心帮助！完美解决问题。

terse

楼主共享一下解决方法 也方便他人
笨办法 外部 GAWK 解决

1. gawk "func p(){for(i=2;i<=NF;i++)print $1,$i>>i-1".txt"}func f(){for(i=2;i<=NF;i++)printf $1" "$i>i-1".txt"}{if(getline s){p();$0=s;p()}else f()}" a.txt
   
2. pause

复制代码