![]() |
#1 |
Участник
|
плиз help. через InStream (.READ) читаю содержимое тестового файла (он в Win кодировке ср-1251). в Navision - > абра-кадабра. Понимаю, что функции Navision настроены на считыванеи DOS кодировки... Может есть ссылочка на работающую функцию преобразования кодировки в Navision....?
заранее спасибо... |
|
![]() |
#2 |
Участник
|
У меня в локализованном кодюните 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 ЂЃ‚ѓ„…†‡?‰Љ‹ЊЌЋЏђ‘’“”•–—?™љ›њќћџ ЎЎўЈ¤Ґ¦§Ё©Є«¬®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНО ПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя |
|
![]() |
#3 |
Участник
|
Цитата:
Сообщение от 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 ЂЃ‚ѓ„…†‡?‰Љ‹ЊЌЋЏђ‘’“”•–—?™љ›њќћџ ЎЎўЈ¤Ґ¦§Ё©Є«¬®Ї°±Ііґµ¶·ё№є»јЅѕїАБВГДЕЖЗИЙКЛМНО ПРСТУФХЦЧШЩЪЫЬЭЮЯабвгдежзийклмнопрстуфхцчшщъыьэюя |
|
![]() |
#4 |
Участник
|
Лови.
|
|
![]() |
#5 |
Участник
|
спсб.....
|
|