Вопрос : доработайте Кодего vbs для уменьшения множественных непрерывных космосов до один космос

Следующий Кодий форматирует архив текста к CSV. Можно его доработать так, что любые группы в составе непрерывные космосы врезанные в полях будут уменьшены до один космос? objFSO

Set
(т.е. «как вы» к «как вы») =
leSystemObject»)/>myFile = «c:\macros\aces\claim13.tx
Set t» objFile = objFSO.OpenTextFile (myFile, 1)
Do до уравновешивания
WScript.Echo
line=objFile.ReadLine objFile.AtEndOfStream (среднего (линия, 1.2)) &», «& уравновешивание (среднее (линия, 3.2)) &», «& уравновешивание (среднее (линия, 5.200))

Function Trim0
Loop пока о (s, 1) = «0» И
"" <> s s = правое (s, Len-1)
Wend
Trim0 =
End Function s class=

Ответ : доработайте Кодего vbs для уменьшения множественных непрерывных космосов до один космос

Я сделал бы что-то как:

    Сделайте пока InStr (str, «") > 0
        str = заменяет ть (str, ««,» ")
    Петля

Крис

1: 2: 3: 4: 5: 6: 7: 8: 9: 10: 11: 12: 13:

Установите objFSO = CreateObject («Scripting.FileSystemObject») myFile = «c:\macros\aces\claim13.txt» Установленное objFile = objFSO.OpenTextFile (myFile, 1) Не сделать до objFile.AtEndOfStream line=objFile.ReadLine Trimspace WScript.Echo (линия) Петля Trimspace функции (str как шнур) как шнур Сделайте пока InStr (str, « ") > 0 str = заменяет ть (str, « «,» ") Петля trimspace = str Функция конца