Страница 4 из 4
Добавлено: Ср окт 27, 2010 15:25
Rotmistr
Batya
Дает ошибку и останавливается на слове с двоеточием.
Добавил в исключения двоеточие - не помогло
Код: Выделить всё
CharArr = Split(Chr(10) & " " & Chr(13) & " \ / : * ? "" < > . ,")
[/code][/list]
Добавлено: Ср окт 27, 2010 15:36
Batya
Rotmistr писал(а):Дает ошибку и останавливается на слове с двоеточием.
А может что-то ещё?
Покажи (если ничего секретного в тексте нет) полное содержимое отладочного сообщения. (Ctrl+C в окне сообщения копирует текст в буфер обмена.)
Добавлено: Ср окт 27, 2010 15:57
Rotmistr
Batya
Да секретного - то ничего нет
Извиняюсь. На строке текста №6690
- ---------------------------
Разрезание файлов на строки
---------------------------
Возникла ошибка № 76:
Путь не найден
---------------------------
ОК
---------------------------
Код: Выделить всё
постановлении Сибревкома подчеркивалось в 1922 году, что «В
особенности важным является быстрое развитие кустарных
строки №6690 и №6691
А в тексте 12460 строк
Добавлено: Ср окт 27, 2010 16:37
Batya
Rotmistr
Я имел в виду не текст ошибки, а текст, начинающийся на "Попытка сформировать файл". Хочу видеть, какое имя файла пытается сформироваться.
Добавлено: Ср окт 27, 2010 16:37
Rotmistr
Batya
Все. Вроде нашел.
В
Код: Выделить всё
'Символ для замены недопустимого символа
Const ReplaceChar = " "
я поставил "а". Исправил на пробел - ошибка исчезла.
Только файлы перемешивает безбожно. ТС миллисекунды не считает.
Добавлено: Ср окт 27, 2010 16:57
Batya
Rotmistr писал(а):Только файлы перемешивает безбожно. ТС миллисекунды не считает.
Можно добавить паузу между созданием файлов.
Перед строкой
Код: Выделить всё
FSO.CreateTextFile(lNewPath, True).Write lT
добавь следующий код:
Здесь 1000 - миллисекунды, т.е. в данном случае - 1 секунда.
Добавлено: Ср окт 27, 2010 17:19
Rotmistr
Batya
Благодарю! Работает! Медленно, но верно.
