Пожалуйста, помогите простеньким кодом!

[FirstUser]

Нужно открыть текстовый файл, и удалить лишние пробелы.
Т.е. заменить последовательности пробелов на 1 пробел.

Ничего готового не нашел. Сам уже 2-ой день ковыряюсь - без толку.

Спасибо!!!

[alibek]

Если файл не очень большой (в пределах 100 Кб), то самый простой код:

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

Dim FN As Integer, str As String, L As Long
FN = FreeFile
Open "C:\yourfile.txt" For Binary As #FN
L = LOF(FN)
str=Space$(L)
Get #FN, , str
Close #FN
L = 0
Do Until L = Len(str)
  str = Replace(str, "  ", " ")
  L = Len(str)
Loop
FN = FreeFile
Open "C:\yourfile.txt" For Output As #FN
Print #FN, str
Close #FN


[FirstUser]

К сожалению не работает...

Как я понял, не все что работает в VB, работает в VBScript
А именно для него мне код и нужен

Файл большой. 5-100Mb.

Я его забираю DTS-ом с ФТП в SQL server. Но для импорта нужно убрать лишние пробелы. SQL server предлагает это сделать каким-нибудь скриптовым языком.

Я пытался с помошью FileSystemObject, но что то нифига не получается...

Проблема разовая и срочная. По книжкам бы с удовольствием полазил, но я в программинге 0 (даже null), поэтому время это займет много...

Помогите чайнику!