Вверх ↑
Этот топик читают: Гость
Ответов: 230
Рейтинг: 1
#1: 2018-10-12 00:47:18 ЛС | профиль | цитата
Как в программе перекодировать
CP1252 -› UTF-8?
windows1252 -› UTF-8?
В компоненте Charset кодировки не нашел.
карма: 1

0
vip
#1.1контекстная реклама от партнеров
Ответов: 286
Рейтинг: 5
#2: 2018-10-12 05:29:03 ЛС | профиль | цитата
Играй с кодировками
карма: 0

0
Главный модератор
Ответов: 2997
Рейтинг: 395
#3: 2018-10-12 07:14:26 ЛС | профиль | цитата

Add(Charset,5973054,175,196)
{
CodePage1=1252
CodePage2=65001
}

карма: 6
Дорогу осилит идущий. Install/Update HiAsm.NET
0
Ответов: 16884
Рейтинг: 1239
#4: 2018-10-12 11:39:41 ЛС | профиль | цитата
Nic, зря.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
0
Ответов: 230
Рейтинг: 1
#5: 2018-10-15 02:16:56 ЛС | профиль | цитата
Nic, Не хочет распознавать
символы
РіСЂРѕРІРѕР№ РјРёСЂ.

По декодеру Лебедева - CP1251 -> UTF-8

--- Добавлено в 2018-10-15 02:41:18

Нашел, спасибо!

код

Add(MainForm,2953706,21,105)
{
Width=575
Height=524
}
Add(Charset,5973054,336,469)
{
Type=8
Point(onError)
link(onCharset,9672509:doString,[(436,475)(436,489)])
link(Text,7417072:Value,[(342,457)(132,457)])
link(CodePage1,13901434:Var2,[])
link(CodePage2,304209:Var2,[(356,425)(566,425)])
link(onError,13450523:doNext,[(387,482)(387,440)])
}
Add(Memory,7417072,126,301)
{
Default=String(РіСЂРѕРІРѕР№ РјРёСЂ.)
}
Add(Edit,8303511,294,231)
{
Left=90
Top=200
Width=85
Text="65001"
}
Add(Edit,4289136,343,301)
{
Left=210
Top=200
Width=80
Text="1252"
}
Add(Timer,2553633,77,469)
{
Interval=100
Enable=1
AutoStop=46
}
Add(Label,10879689,539,420)
{
Left=420
Top=90
}
Add(CounterEx,13450523,455,434)
{
Max=33333
link(onNext,10879689:doText,[(513,440)(513,426)])
}
Add(StrList,10020327,210,343)
{
Strings=#5:65000|5:65001|3:708|3:720|5:28596|4:1256|5:28594|4:1257|4:1258|5:28597|4:1253|5:28593|5:28605|5:20127|5:29591|5:10000|4:1252|3:862|5:28598|5:38598|4:1255|3:866|5:28595|5:10007|4:1251|5:20866|5:51950|3:950|3:936|5:52936|5:51949|5:50225|3:949|3:874|5:28599|4:1254|5:21866|3:852|5:28592|5:10029|4:1250|5:51932|5:50220|5:50222|5:50221|3:932|
Point(doGetString)
Point(onGetString)
link(onGetString,14696903:doEvent1,[])
}
Add(ListBox,498665,560,483)
{
Left=5
Top=280
Width=550
Height=200
}
Add(For,4279302,147,469)
{
End=46
link(onEvent,14989054:doNext,[])
}
Add(CounterEx,14989054,196,469)
{
Max=46
Default=-1
link(onNext,10020327:doGetString,[(240,475)(240,433)(198,433)(198,391)])
}
Add(Hub,14696903,280,350)
{
link(onEvent1,2624375:doData,[])
link(onEvent2,1633589:doFor,[(301,363)(301,398)])
}
Add(EventFromData,2624375,343,350)
{
}
Add(StrList,11955899,434,343)
{
Strings=#5:65000|5:65001|3:708|3:720|5:28596|4:1256|5:28594|4:1257|4:1258|5:28597|4:1253|5:28593|5:28605|5:20127|5:29591|5:10000|4:1252|3:862|5:28598|5:38598|4:1255|3:866|5:28595|5:10007|4:1251|5:20866|5:51950|3:950|3:936|5:52936|5:51949|5:50225|3:949|3:874|5:28599|4:1254|5:21866|3:852|5:28592|5:10029|4:1250|5:51932|5:50220|5:50222|5:50221|3:932|
Point(doGetString)
Point(onGetString)
link(onGetString,12667199:doEvent1,[])
}
Add(For,1633589,308,392)
{
End=46
link(onEvent,7650379:doNext,[])
}
Add(CounterEx,7650379,357,392)
{
Max=46
Default=-1
link(onNext,11955899:doGetString,[(411,398)(411,391)])
}
Add(Hub,12667199,497,350)
{
link(onEvent1,11510163:doData,[])
link(onEvent2,5973054:doCharset,[(523,363)(523,419)(324,419)(324,475)])
}
Add(EventFromData,11510163,560,350)
{
}
Add(Button,5087517,196,161)
{
Left=270
Top=140
link(onClick,4279302:doFor,[(240,167)(240,321)(135,321)(135,475)])
}
Add(FormatStr,9672509,462,483)
{
DataCount=3
Mask="%3 (%1 %2)"
link(onFString,498665:doAdd,[])
link(Str1,13901434:Var3,[(468,439)])
link(Str2,304209:Var1,[(475,397)])
}
Add(GetDataEx,13901434,343,434)
{
link(Data,2624375:GetData,[])
}
Add(GetDataEx,304209,560,392)
{
link(Data,11510163:GetData,[])
}


Редактировалось 3 раз(а), последний 2018-10-15 02:41:18
карма: 1

0
5
Сообщение
...
Прикрепленные файлы
(файлы не залиты)