Имя: Пароль:
1C
1С v8
Кодировка текста utf.
0 zarcom
 
23.12.09
09:56
Файл создан объектом "Текст" (СоздатьОбъект("Текст")). Как у файла установить кодировку utf
1 zarcom
 
23.12.09
09:57
Файл создан объектом "Текст" (СоздатьОбъект("Текст")). Как у файла установить кодировку utf. Телепат бот помоги
2 Fragster
 
гуру
23.12.09
09:58
баян
3 zarcom
 
23.12.09
09:58
Файл создан объектом "Текст" (СоздатьОбъект("Текст")). Как у файла установить кодировку utf. ТелпатБот ответь
4 Fragster
 
гуру
23.12.09
09:58
дважды баян
5 zarcom
 
23.12.09
09:58
не понял
6 Sadovnikov
 
23.12.09
09:59
(0) Буковку Я нажми.
7 Fragster
 
гуру
23.12.09
09:59
8 Fragster
 
гуру
23.12.09
10:00
9 Fragster
 
гуру
23.12.09
10:00
да и вообще
10 Fragster
 
гуру
23.12.09
10:00
http://yandex.ru/yandsearch?text=forum.mista.ru utf-8&pag=u&surl=mista.ru&lr=2&2d9a6ffb6e7973014a918674f7b260f0
11 zarcom
 
23.12.09
10:25
с помощью какой dll можно просто передать кусок текста, а он вернет перекодированную строку?
12 KishMish
 
23.12.09
10:53
13 Fragster
 
гуру
23.12.09
13:57
(11) в поиске ищи, такое тоже через Adodb.Stream делается
14 zarcom
 
23.12.09
14:39
Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.Type    = 2;
           
Стрим.Mode    = 3;
           
Стрим.charset="utf-8";
           
Стрим.Open();
Стрим.WriteText(Текст);
Стрим.SaveToFile(Файл,2);
Стрим.Close();
15 zarcom
 
23.12.09
14:39
Выходит сообщение:
Плохой тип переменной
16 zarcom
 
23.12.09
14:40
Текст  =СоздатьОбъект("Текст");
17 zarcom
 
23.12.09
14:40
Помогите люди добрые
18 zarcom
 
23.12.09
14:41
Стрим.WriteText(Текст);
{ххх.ERT(1088)}: Плохой тип переменной
19 Fragster
 
гуру
23.12.09
14:42
Текст - это просто строка должна быть, никаких создатьобъектов не надо
20 Fragster
 
гуру
23.12.09
14:42
Стрим = СоздатьОбъект("Adodb.Stream");
Стрим.Type     = 2;
Стрим.Mode    = 3;
Стрим.charset="utf-8";
Стрим.Open();
Стрим.WriteText("апоЖ");
Стрим.SaveToFile(Файл,2);
Стрим.Close();
21 zarcom
 
23.12.09
14:43
У меня в переменной "Текст" много строк.
22 zarcom
 
23.12.09
14:43
WriteText это тоже самое что "ДобавитьСтроку" ?
23 smaharbA
 
23.12.09
14:44

КомандаСистемы("chcp 65001|> c:\utf8.txt Echo Вася Пупкин")
24 Fragster
 
гуру
23.12.09
14:44
(21) тебе не нужет объект типа текст, тебе нужна строковая переменная

Стрим = СоздатьОбъект("Adodb.Stream");
Стрим.Type     = 2;
Стрим.Mode    = 3;
Стрим.charset="utf-8";
Стрим.Open();
Стрим.WriteText("яашьлоБ"+РазделительСтрок+"апоЖ");
Стрим.SaveToFile(Файл,2);
Стрим.Close();
25 zarcom
 
23.12.09
14:44
что это ?
26 Fragster
 
гуру
23.12.09
14:45
(23) это не всегда удобно
27 Fragster
 
гуру
23.12.09
14:46
(22) кажись... только я не помню, перевод строки оно в конец ставит, или нет
28 smaharbA
 
23.12.09
14:48
(27) ставит
29 zarcom
 
23.12.09
14:54
т.е. если я применю эту команду к файлу. Он перекодирует его в нужный формат?
30 zarcom
 
23.12.09
15:00
Кто нибудь?
31 romix
 
23.12.09
15:08
32 smaharbA
 
23.12.09
15:10
(26) если ты его загрузишь вперед в стрим потом сменишь чарсет и запишешь
то перекодирует
или если надо только прочитать, до загрузишь стримом и потом прочтешь из него
33 smaharbA
 
23.12.09
15:10
(31) фсо в утф-16 только
34 smaharbA
 
23.12.09
15:29

echo off
set in=C:\Program Files\Far\License.xUSSR.txt
set out=c:\utf8.txt
echo off 2> %out%

for /f "delims=" %%i in ('type "%in%"') do (
   chcp 65001|>> "%out%" echo %%i
   chcp 866 > nul
   )
35 zarcom
 
23.12.09
15:34
ERT(1096)}: ADODB.Stream: Write to file failed.
36 zarcom
 
23.12.09
15:34
Стрим = СоздатьОбъект("Adodb.Stream");
Стрим.Type    = 2;
Стрим.Mode    = 3;
Стрим.charset="utf-8";

Стрим.WriteText(СтрокаТекста);
           
Стрим.SaveToFile(Файл,2);
Стрим.Close();
37 zarcom
 
23.12.09
15:36
ERT(1096)}: ADODB.Stream: Write to file failed.    

ТелепатБот, помоги
38 Fragster
 
гуру
23.12.09
15:36
Сообщить(Файл);
39 zarcom
 
23.12.09
15:56
Всё работает ! В имени файла стоял служебный символ. Всем огромное спасибо.
Ошибка? Это не ошибка, это системная функция.