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

Sub getColumn(ar,filename)
        Set file = FSO.OpenTextFile("a.txt",1)
rem set line1=true
        Do While file.AtEndOfStream <> True
                n = Split(file.ReadLine)
rem if line1 = true then set line1=false else str = str & vbCrLf
                  str = str & n(0)
                  For Each a In ar
                        str = str & " " & n(a)
                  Next
        Loop
        file.Close
        Set file = FSO.CreateTextFile(filename,True)
        file.Write str
        file.Close
End Sub
复制代码

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
pause
复制代码