Kyrillisch

Der Text muss mit AltGr+K gesendet werden damit er konvertiert wird 

#NewScriptBegin Kyrillic
 
Function Translate(Text)
  StrOut=""
  i=1
  do until i > len(Text)
    a=0
    C=AscW(mid(Text,i,1))
    if mid(Text,i,2)="je" and a=0 Then
      C=1077
      a=2
    End if
    if mid(Text,i,4)="'sch" and a=0 Then
      C=1078
      a=4
    End if
    if mid(Text,i,2)="ch" and a=0 Then
      C=1093
      a=2
    end if
    if mid(Text,i,4)="tsch" and a=0 Then
      C=1095
      a=4
    end if
    if mid(Text,i,4)="scht" and a=0 Then
      C=1097
      a=4
    end if
    if mid(Text,i,3)="sch" and a=0 Then
      C=1096
      a=3
    End if
    if mid(Text,i,2)="ie" and a=0 Then
      C=1099
      a=2
    End if
    if mid(Text,i,2)="je" and a=0 Then
      C=1101
      a=2
    End if
    if mid(Text,i,2)="ju" and a=0 Then
      C=1102
      a=2
    End if
    if mid(Text,i,2)="ja" and a=0 Then
      C=1103
      a=2
    End if
    if mid(Text,i,2)="jo" and a=0 Then
      C=1105
      a=2
    End if
    if a=0 Then
      a=1
      tch=mid(Text,i,1)
      if tch="a" Then C=1072
      if tch="b" Then C=1073
      if tch="w" Then C=1074
      if tch="v" Then C=1074
      if tch="g" Then C=1075
      if tch="d" Then C=1076
      if tch="s" Then C=1079
      if tch="i" Then C=1080
      if tch="j" Then C=1081
      if tch="k" Then C=1082
      if tch="l" Then C=1083
      if tch="m" Then C=1084
      if tch="n" Then C=1085
      if tch="o" Then C=1086
      if tch="p" Then C=1087
      if tch="r" Then C=1088
      if tch="ß" Then C=1089
      if tch="t" Then C=1090
      if tch="u" Then C=1091
      if tch="f" Then C=1092
      if tch="z" Then C=1094
      if tch="'" Then C=1100
      if tch="e" Then C=1077
    End if
    i=i+a
    StrOut=StrOut & ChrW(C)
  loop
  Translate=StrOut
End Function
 
Sub KeyShortcut(KeyCode, Shift)
  if Shift=6 and KeyCode=Asc("K") Then
    Send Translate(TextBox), FrontFrameID
    TextBox=""
    skipevent
  End if
End Sub

Eigene Werkzeuge