[megaloman]

.vbs скрипт

Код:

MyDir = "Z:\Box_In"
MyMask = "^.*\..*$"

Set Reg = CreateObject("VBScript.RegExp")
Reg.IgnoreCase = True
Reg.Pattern = MyMask

With CreateObject("Scripting.FileSystemObject")
    Set Files = .GetFolder(MyDir).Files

    For Each File In Files
        Filename = File.Path
        If Reg.Test(Filename) Then
            
            Set fIn = .OpenTextFile(Filename, 1, False)
            On Error Resume Next
            Err.Number = 0
            InTxt = fIn.ReadAll
            
            If Err.Number = 0 Then
                fIn.Close
                InTxt = Replace(InTxt, " ", "")
                Mas = Split(InTxt, vbCrLf)
                
                iMax = -1
                For i = UBound(Mas) To LBound(Mas) Step -1
                    If Len(Mas(i)) <> 0 Then
                        iMax = i
                        Exit For
                    End If
                Next
                Set fIn = .CreateTextFile(Filename, True)
                fIn.Close
                
                Set fIn = .OpenTextFile(Filename, 8, False)
                If iMax >= 0 Then
                    For i = LBound(Mas) To iMax
                        If Len(Mas(i)) <> 0 Then
                            If i <> iMax Then
                                fIn.WriteLine Mas(i)
                            Else
                                fIn.Write Mas(i)
                            End If
                        End If
                    Next
                End If
                fIn.Close
            Else
                fIn.Close
            End If
            On Error GoTo 0
        End If
    Next
End With

MsgBox "Done"

[greg zakharov]

просто некоторые и переводы строки относят к пробелам.

Кто например? Может вы путаете BRE [:space:] с пробелами?

Код:

sed -i.bak "s/[[:space:]]/\n/g" *.txt

Только вот тогда нужно иметь в виду, что POSIX [:space:] на самом деле BRE представление ASCII [ \t\r\n\v\f] (или в краткой записи - \s). В переводе на матерный русский это означает, что в том же ASCII пробел кодируется 32 чаром, а управляющая последовательность \n - 10.

[serg515]

Кто например? Может вы путаете BRE [:space:] с пробелами? К »

например..
есть такой программный продукт zennoposter, там фичя,удаление пробелов.
так вот там удаление происходит, вместе с переводом строк.

[Опиум]

Может проще уже консольную утилиту написать?

Код:

type вашфайл.txt | мояутилита.exe >идеальный_файл.txt

[serg515]

что не устроило в vbs- скрипте? Там вроде бы учтены все пожелания и не надо никаких добавочных средств. »

ваш скрипт сработал нормально.спс.