украинский алфавит

Тема в разделе "Lotus - Программирование", создана пользователем romanko, 8 сен 2011.

Наш партнер Genesis Hackspace
  1. romanko

    romanko Гость

    Раскажите пожалуйста как сюда добавить эти буквы "Є" +"є" +"і" +"Ї" +"ї".

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

    ' абвгдеёжзийклмнопрстуфхцчшщъьэюя
    winTxt$ = "0 : "
    winTxt$ = winTxt$ + "160 : 1038 : 1118 : 1032 : 164 : 1168 : 1089 : 166 : 167 : 1025 : "
    winTxt$ = winTxt$ + "169 : 1028 : 171 : 172 : 173 : 174 : 1031 : 1072 : 1073 : 1074 : "
    winTxt$ = winTxt$ + "1075 : 1076 : 1077 : 1078 : 1079 : 1080 : 1081 : 1082 : 1084 : 1085 : "
    winTxt$ = winTxt$ + "1086 : 1087 : "

    ' АБВГДЕЁЖЗИЙКЛМНОПРСТУФХЦЧШЩЪЬЭЮЯыЫ
    winTxt$ = winTxt$ + "1026 : 1027 : 8218 : 1107 : 8222 : 8230 : 1088 : 8224 : 8225 : 8364 : "
    winTxt$ = winTxt$ + "8240 : 1033 : 8249 : 1034 : 1036 : 1035 : 1039 : 1106 : 8216 : 8217 : "
    winTxt$ = winTxt$ + "8220 : 8221 : 8226 : 8211 : 8212 : 63635 : 8482 : 1113 : 1114 : 1116 : "
    winTxt$ = winTxt$ + "1115 : 1119 : 1083 : 8250 : "
    win_ = Evaluate ( winTxt$ )


    For i=1 To Len ( dos_$ )

    a$ = Uchr ( win_ ( i ) )
    b$ = Mid ( dos_$ , i , 1 )
    dos ( b$ ) = a$
    win ( a$ ) = b$
    Next



    TempStr2 = ""
    For k=1 To Len ( ValueField_S )
    ch$ = Mid ( ValueField_S , k , 1 )
    If Iselement ( win ( ch$ ) ) Then ch$ = win ( ch$ )
    TempStr2 = TempStr2 + ch$
    Next
    Dos2Win = TempStr2

    Я добавляю код буквы Є но в досе она как "т" и по этому при перекодировке она остается "т" а должна быть "Є". Как єто можно исправить??
     
  2. Akupaka

    Akupaka А че я?.. О.о

    Регистрация:
    4 окт 2007
    Сообщения:
    3.363
    Симпатии:
    2
    О чем речь вообще? Добавить куда, зачем?
    Твоя задача звучит приблизительно так: "Раскажите пожалуйста как испечь вкусный пирог, а то я и яйца добавил, и корицы, а он все-равно соленый"

    Задачу необходимо формулировать так: "Я хочу сделать это, чтобы получить это, я пробовал так, но это привело к этому, а не к ожидаемому результату"
     
Загрузка...

Поделиться этой страницей