может кто встречал..

[Reservoir_Dog]

..алгоритм перевода (перекодировки) из win1251 (предпочтительно но можно и другое) в UTF-8(!)? да, язык cpp or pascal (в принципе не критично)

Comments

[MrXaK]

это на пхп, но по идее в с и паскале есть функции ord() и chr() так что просто убрать знаки $ у переменных)



function win2utf( $src ) {

for($i=0;$i<strlen($src);$i++) {

$byte=substr($src,$i,1);



if (ord($byte) == 184) {

$dst .= chr(208);

$dst .= chr(181);

}

else {



if (ord($byte) == 168) {

$dst .= chr(208);

$dst .= chr(149);

}

else {





if (ord($byte) > 126 && ord($byte) < 240) {

$dst .= chr(208);

$dst .= chr(ord($byte) - 48);

}

else {

if (ord($byte) >= 240 && ord($byte) <= 255) {

$dst .= chr(209);

$dst .= chr(ord($byte) - 112);

}



else{

$dst.=$byte;

}

}

}

}

}



return $dst;

}

[Reservoir_Dog]

thx. переведу на cpp отпишусь если че будет не понятно

[Roldo]

вот адрес IСQ бота - 190666

В него должна быть встроена возможность конвертации, если кому-то интересно.

!help