Замена пробелов табами

[Decaz]

Помогите пожалуйста с кодом: нужно, чтобы программа заменяла все пробелы в текстовом документе на табы. Нигде найти не могу

[uhm]

Что тут можно не найти?!

1. Считать текст из файла в строку

2. Заменить с помощью Replace пробелы на табы

3. Записать текст обратно в файл.

Какой из трех пунктов вызывает затруднения?

[RayShade]

Ну, значит делаем раз - открываем файл и читаем его весь.

Код: Выделить всё

set fso=createobject("scripting.filesystemobject").getfile("c:\123.txt")
with fso.openastextstream(forreading)
alltext=.readall
.close
end with


Делаем два- заменяем все пробелы табами:

Код: Выделить всё

alltext=replace(alltext,chr(20),chr(9),1,-1,1)


И делаем три - пишем все обратно:

Код: Выделить всё

with fso.openastextstream(forwriting)
.write(alltext)
.close
end with

[Decaz]

Спасибо огромное!