Импортировать файл в Win кодировке

[unalexia]

плиз help. через InStream (.READ) читаю содержимое тестового файла (он в Win кодировке ср-1251). в Navision - > абра-кадабра. Понимаю, что функции Navision настроены на считыванеи DOS кодировки... Может есть ссылочка на работающую функцию преобразования кодировки в Navision....?
заранее спасибо...

[artkashin]

У меня в локализованном кодюните 12400 есть две функции

WinToDos(VAR Text : Text[1024]) : Text[1024]
Text := CONVERTSTR(Text,Text0001,Text0002);
EXIT(Text);

DosToWin(VAR Text : Text[1024]) : Text[1024]
Text := CONVERTSTR(Text,Text0002,Text0001);
EXIT(Text);
, где
Name ConstValue
Text0001 АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаббвгдежзийклмнопЂ¦Ѓ‚ѓ„…†‡?‰Љ‹¬ЊЌЋЏђ‘’“”•–—?™љ
›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ 
Text0002 ЂЃ‚ѓ„…†‡?‰Љ‹ЊЌЋЏђ‘’“”•–—?™љ›њќћџ ЎЎўЈ¤Ґ¦§Ё©Є«¬­®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНО
ПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя

[unalexia]

Цитата:

Сообщение от Kashin

У меня в локализованном кодюните 12400 есть две функции

WinToDos(VAR Text : Text[1024]) : Text[1024]
Text := CONVERTSTR(Text,Text0001,Text0002);
EXIT(Text);

DosToWin(VAR Text : Text[1024]) : Text[1024]
Text := CONVERTSTR(Text,Text0002,Text0001);
EXIT(Text);
, где
Name ConstValue
Text0001 АБВГДЕЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЫЬЭЮЯаббвгдежзийклмнопЂ¦Ѓ‚ѓ„…†‡?‰Љ‹¬ЊЌЋЏђ‘’“”•–—?™љ
›њќћџЈҐ©«­®±Ііґµ»рстуфхцчшщъыьэюяЁёЄєЇїЎў°ј·Ѕ№¤ѕ 
Text0002 ЂЃ‚ѓ„…†‡?‰Љ‹ЊЌЋЏђ‘’“”•–—?™љ›њќћџ ЎЎўЈ¤Ґ¦§Ё©Є«¬­®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНО
ПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя

а можно по e-mail anlex@mail.ru прислать объект (в текстовом формате). мне очень важны переменные Text0001 и Text0002, а при копировании из данного сообщения они искажаются.....

[artkashin]

Лови.

[unalexia]

спсб.....

[KDSRUS]

Всем привет
Подскажите...проинтегрировал данный кода в свое работу...
Ввожу текст в массив в цикле:
Fil.READ(T1[a]), где Fil - переменная типа FILE. T1[a] - массив строк.
по этому коду что внедрил, пишу:
Fil.READ(W2D.WinToDos(T1[a])), где W2D.WinToDos('Строка') - имя и функция кодэюнита.
!!!Система ругается на то что в скобках Fil.READ()-должна быть MyVar или Customer.Name...
..как можно исправить?!

[KDSRUS]

Кто-нибудь, пришлите 12400 кодэюнит.
В моей версссии только функция Dos2Win есть...

[KDSRUS]

Помогите, ребята, пожалуйста.
Работа моя 'горит'.

[KDSRUS]

сделал сам..просто использовал стороннюю пременную