|
v7: чтение тхт файла, непонятные символы в строке |
☑ |
0
zladenuw
15.11.11
✎
14:34
|
всем привет. читаю тхт файл кодировка utf-8. при чтение строки добавляются такие символы .Стр = "п»ї201110273282294099 ....
Если в тхт меняю на ansi проблема пропадает. разве utf-8 7.7 не читает ?
|
|
1
SnarkHunter
15.11.11
✎
14:35
|
С добрым утром!
|
|
2
filh
15.11.11
✎
14:36
|
(0) Читает
|
|
3
andrewks
15.11.11
✎
14:37
|
открой для себя adodb
|
|
4
1Сергей
15.11.11
✎
14:37
|
Объект "Текст" не читает
|
|
5
ДенисЧ
15.11.11
✎
14:38
|
штатно - не читает.
Нештатно - от адо до системных скриптов...
|
|
6
alkov
15.11.11
✎
14:38
|
BOM?
|
|
7
andrewks
15.11.11
✎
14:39
|
(6) и чо?
|
|
8
Goggy
15.11.11
✎
14:40
|
Ребят вы хоть друг друга пните, кто из вас дезинформатор то :)
|
|
9
alkov
15.11.11
✎
14:41
|
(7) и всё :)
|
|
10
andrewks
15.11.11
✎
14:42
|
(9) хренушки
(0) на пример использования
//*******************************************
Процедура Сформировать()
Попытка
SF=СоздатьОбъект("ADODB.Stream");
SF.CharSet="windows-1251";
DF=СоздатьОбъект("ADODB.Stream");
DF.CharSet="utf-8";
Исключение
Сообщить("Не удалось создать объект ADODB.Stream","!");
Возврат;
КонецПопытки;
Папка1="";
Папка2="";
Если ФС.ВыбратьКаталог(Папка1,"Выберите исходную папку")<>1 Тогда
Возврат;
КонецЕсли;
Если ФС.ВыбратьКаталог(Папка2,"Выберите папку назначения")<>1 Тогда
Возврат;
КонецЕсли;
ИмяФайла1=ФС.НайтиПервыйФайл(Папка1+"\*.fodt");
Пока (ПустаяСтрока(ИмяФайла1)=0) Цикл
Сообщить("Обработка файла: "+ИмяФайла1);
SF.Open();
DF.Open();
SF.LoadFromFile(Папка1+"\"+ИмяФайла1);
SF.CopyTo(DF);
DF.SaveToFile(Папка2+"\"+ИмяФайла1,2);
SF.Close();
DF.Close();
ИмяФайла1=ФС.НайтиСледующийФайл();
КонецЦикла;
КонецПроцедуры
|
|
11
filh
15.11.11
✎
14:43
|
(8) а тут телепатируем помаленьку
|
|
12
zladenuw
15.11.11
✎
14:45
|
спс за помощь. и за код (10). я чтение адо делал для 8. в 7.7 то размер тхт для нее большой, то эта хрень. алгоритм чтение и обработки был до меня написан. вот придется переписывать все :(.
|
|