Построчное разрезание TXT-файла

[Rotmistr]

Batya

Дает ошибку и останавливается на слове с двоеточием.

Добавил в исключения двоеточие - не помогло

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

 CharArr = Split(Chr(10) & " " & Chr(13) & " \ / : * ? "" < > . ,")

[/code][/list]

[Batya]

Дает ошибку и останавливается на слове с двоеточием.

А может что-то ещё?
Покажи (если ничего секретного в тексте нет) полное содержимое отладочного сообщения. (Ctrl+C в окне сообщения копирует текст в буфер обмена.)

[Rotmistr]

Batya
Да секретного - то ничего нет

Извиняюсь. На строке текста №6690

• ---------------------------
  Разрезание файлов на строки
  ---------------------------
  Возникла ошибка № 76:
  
  Путь не найден
  ---------------------------
  ОК
  ---------------------------

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

постановлении Сибревкома подчеркивалось в 1922 году, что «В
особенности важным является быстрое развитие кустарных

строки №6690 и №6691

А в тексте 12460 строк

[Batya]

Rotmistr
Я имел в виду не текст ошибки, а текст, начинающийся на "Попытка сформировать файл". Хочу видеть, какое имя файла пытается сформироваться.

[Rotmistr]

Batya

Все. Вроде нашел.
В

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

'Символ для замены недопустимого символа 
Const ReplaceChar = " "

я поставил "а". Исправил на пробел - ошибка исчезла.
Только файлы перемешивает безбожно. ТС миллисекунды не считает.

[Batya]

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

Можно добавить паузу между созданием файлов.
Перед строкой

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

    FSO.CreateTextFile(lNewPath, True).Write lT

добавь следующий код:

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

    WScript.Sleep 1000

Здесь 1000 - миллисекунды, т.е. в данном случае - 1 секунда.

[Rotmistr]

Batya

Благодарю! Работает! Медленно, но верно.