View previous topic :: View next topic |
Author |
Message |
Rotmistr
Joined: 07 Oct 2010 Posts: 7 Location: UA
|
(Separately) Posted: Wed Oct 27, 2010 15:25 Post subject: |
|
|
Batya
Дает ошибку и останавливается на слове с двоеточием.
Добавил в исключения двоеточие - не помогло Code: | CharArr = Split(Chr(10) & " " & Chr(13) & " \ / : * ? "" < > . ,") | [/code][/list] |
|
Back to top |
|
 |
Batya

Joined: 15 Dec 2004 Posts: 2224 Location: Москва, Россия
|
(Separately) Posted: Wed Oct 27, 2010 15:36 Post subject: |
|
|
Rotmistr wrote: | Дает ошибку и останавливается на слове с двоеточием. |
А может что-то ещё?
Покажи (если ничего секретного в тексте нет) полное содержимое отладочного сообщения. (Ctrl+C в окне сообщения копирует текст в буфер обмена.) _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
 |
Rotmistr
Joined: 07 Oct 2010 Posts: 7 Location: UA
|
(Separately) Posted: Wed Oct 27, 2010 15:57 Post subject: |
|
|
Batya
Да секретного - то ничего нет
Извиняюсь. На строке текста №6690
---------------------------
Разрезание файлов на строки
---------------------------
Возникла ошибка № 76:
Путь не найден
---------------------------
ОК
---------------------------
Code: | постановлении Сибревкома подчеркивалось в 1922 году, что «В
особенности важным является быстрое развитие кустарных |
строки №6690 и №6691
А в тексте 12460 строк  |
|
Back to top |
|
 |
Batya

Joined: 15 Dec 2004 Posts: 2224 Location: Москва, Россия
|
(Separately) Posted: Wed Oct 27, 2010 16:37 Post subject: |
|
|
Rotmistr
Я имел в виду не текст ошибки, а текст, начинающийся на "Попытка сформировать файл". Хочу видеть, какое имя файла пытается сформироваться. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
 |
Rotmistr
Joined: 07 Oct 2010 Posts: 7 Location: UA
|
(Separately) Posted: Wed Oct 27, 2010 16:37 Post subject: |
|
|
Batya
Все. Вроде нашел.
В Code: | 'Символ для замены недопустимого символа
Const ReplaceChar = " " |
я поставил "а". Исправил на пробел - ошибка исчезла.
Только файлы перемешивает безбожно. ТС миллисекунды не считает.  |
|
Back to top |
|
 |
Batya

Joined: 15 Dec 2004 Posts: 2224 Location: Москва, Россия
|
(Separately) Posted: Wed Oct 27, 2010 16:57 Post subject: |
|
|
Rotmistr wrote: | Только файлы перемешивает безбожно. ТС миллисекунды не считает. |
Можно добавить паузу между созданием файлов.
Перед строкой Code: | FSO.CreateTextFile(lNewPath, True).Write lT | добавь следующий код:
Здесь 1000 - миллисекунды, т.е. в данном случае - 1 секунда. _________________ Нет, я не сплю. Я просто медленно моргаю. |
|
Back to top |
|
 |
Rotmistr
Joined: 07 Oct 2010 Posts: 7 Location: UA
|
(Separately) Posted: Wed Oct 27, 2010 17:19 Post subject: |
|
|
Batya
Благодарю! Работает! Медленно, но верно.  |
|
Back to top |
|
 |
|