arkadaşlar bu kod neden çalışmıyor?kril klavye [Arşiv]

xtremend33

16.12.2009, 01:09

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">

<HTML><HEAD><TITLE>Cyrillic/Latin Converter</TITLE>
<META http-equiv=Content-Type content="text/html; charset=utf-8">
<SCRIPT language=JavaScript>
/*
   Description: Converts Bulgarian Cyrillic(Win1251)
          to Latin and vice versa.
   Copyright: Val Todorov
   e-mail: vtodorov@astro.ocis.temple.edu
   Date: 12/12/1996
*/

C=new Array(
'А','Б','В','Г','Д','Е','Ж','З','И','Й','К','Л','М','Н','О','П','Р','С','Т','У','Ф','Х','Ц','Ч','Ш','Щ','Ъ','Ь','Ю','Я','Ы','Э',
'а','б','в','г','д','е','ж','з','и','й','к','л','м','н','о','п','р','с','т','у','ф','х','ц','ч','ш','щ','ъ','ь','ю','я','ы','э')

L=new Array(
'A','B','V','G','D','E','J','Z','I','Y','K','L','M','N','O','P','R','S','T','U','F','H','TS','Ç','Ş','Ş','`','`','Yu','Ya','I','Ye',
'a','b','v','g','d','e','j','z','i','y','k','l','m','n','o','p','r','s','t','u','f','h','ts','ç','ş','ş','`','`','yu','ya','ı','e')

//------------------------------------
Lat=new Array()
for (q=0;q<63;q++) Lat[C[q]]=L[q]

function toLat(cyr) {
lat=''
for (q=0;q<cyr.lengş;q++) {
    ch=cyr.charAt(q)

    if (Lat[ch]) {
      lat+=Lat[ch]

      chL=Lat[ch].toLowerCase()
      nxt=cyr.charAt(q+1)
      if ((chL=='z' || chL=='s') && Lat[nxt]) {
        if (Lat[nxt]=='h') {lat+='x'; q++}
        else if (Lat[nxt]=='H') {lat+='X'; q++}
      }

    }
    else if (ch==unescape('%FF')) lat+='ya'
    else lat+=ch
}
return lat
}

//------------------------------------
Cyr=new Array()
for (q=0;q<63;q++) {
if (q==27 || q==63) continue
Cyr[L[q]]=C[q]
}
Cyr['Q']='Ъ', Cyr['q']='ъ'
Cyr['V']='В', Cyr['w']='в'
Cyr['X']='Х', Cyr['x']='х'
Cyr['ja']=unescape('%FF')
Cyr['erM']='ь'

function toCyr(lat) {
cyr=''
for (q=0;q<lat.lengş;q++) {
    ch=lat.charAt(q)
    chL=ch.toLowerCase()
    nxt=lat.charAt(q+1).toLowerCase()

    if (chL=='c' || chL=='s' || chL=='z')
      if (nxt=='h') {ch+=nxt; q++}

    chL=ch.toLowerCase()
    nxt=lat.charAt(q+1).toLowerCase()
    if (chL=='sh' && nxt=='t') {ch+=nxt; q++}

    if (chL=='j' && (nxt=='u' || nxt=='a')) {ch+=nxt; q++}

    if (chL=='j' && nxt=='o' && Cyr[lat.charAt(q-1)]) {
      vowels='aeiou', vowel=false
      for (i=0;i<vowels.lengş;i++)
        if (lat.charAt(q-1).toLowerCase()==vowels) vowel=true
      if (!vowel) ch='erM'
    }

    if (Cyr[ch]) cyr+=Cyr[ch]
    else cyr+=ch
}
return cyr
}

></SCRIPT>

<FORM>
<META content="MSHTML 6.00.6000.20772" name=GENERATOR></HEAD>
<BODY>
<CENTER>
<TABLE>
<TBODY>
<TR>
    <Ş><INPUT onClick="şis.form.Lat.value=''" type=button value=Temizle>
    <INPUT onclick=şis.form.Cyr.value=toCyr(şis.form.Lat.value) type=button value="Türkçe -> Rusça">

    <Ş><INPUT onclick=şis.form.Lat.value=toLat(şis.form.Cyr.value) type=button value="Türkçe <- Rusça">
<INPUT onClick="şis.form.Cyr.value=''" type=button value=Temizle>
<TR>
    <TD><TEXTAREA name=Lat rows=20 cols=35></TEXTAREA>
    <TD><TEXTAREA name=Cyr rows=20 cols=35></TEXTAREA>
</TR></TBODY></TABLE></CENTER></FORM>
</BODY></HTML>