Ищу функцию конвертации латыницы в украиницу

Тема в разделе "Lotus - Программирование", создана пользователем ToxaRat, 22 окт 2010.

  1. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
  2. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.079
    Симпатии:
    300
    наскока стандартен такой вариант - ненаю, но в большинстве читабелен
    echo "а;б;в;г;д;е;ё;ж;з;и;к;л;м;н;о;п;р;с;т;у;ф;х;ц;ч;ш;щ;ъ;ы;ь;э;ю;я" | iconv -t koi8-r | catdoc -d us-ascii -s koi8-r
    резалт:
    a;b;w;g;d;e;yo;zh;z;i;k;l;m;n;o;p;r;s;t;u;f;kh;tz;ch;sh;sch;';y;';e;yu;ya
     
  3. ToxaRat

    ToxaRat Чёрный маг
    Lotus team

    Регистрация:
    6 ноя 2007
    Сообщения:
    3.046
    Симпатии:
    18
    сделал пока вот так
    Код (LotusScript):
    Dim vUkrSimbol As Variant, vLat2UkrReplace As Variant
    Sub Initialize
    Dim UkrSimbol As String, Lat2UkrReplace As String
    UkrSimbol = "ій,є,є,ї,щ,зг,ж,я,я,ю,ю,ш,ч,ц,х,ж,а,б,в,г,г,д,е,з,и,і,к,л,м,н,о,п,р,с,т,у,ф,
    с,й"

    Lat2UkrReplace = "iy,ye,ie,yi,shch,zgh,zh,ya,ia,yu,іu,sh,ch,ts,kh,zh,a,b,v,h,g,d,e,z,y,i,k,l,m
    ,n,o,p,r,s,t,u,f,s,j"

    vLat2UkrReplace = Split(Lat2UkrReplace, ",")
    vUkrSimbol = Split(UkrSimbol, ",")
    End Sub

    Function String2Ukr(sArgum As Variant) As Variant ' Конвертирование латыницы в украиницу
    Dim k As Integer, s1 As String
    s1 = Lcase(sArgum)
    For k=1 To Ubound(vUkrSimbol)
    s1 = Replace(s1, vLat2UkrReplace(k), vUkrSimbol(k))
    Next   
    String2Ukr = s1
    '   String2Ukr = Replace(Lcase(s1), vLat2UkrReplace, vUkrSimbol)
    End Function
    чего не пашет просто реплейс - закоментенный в конце врудиться не могу...так бы было без цикла вообще
     
  4. lmike

    lmike нет, пердело совершенство
    Команда форума Lotus team

    Регистрация:
    27 авг 2008
    Сообщения:
    6.079
    Симпатии:
    300
    у реплэйса КМК с не ASCII кодировками - не всё гладко...
    но можно в собаках сделать (через эвалюэйт)
     
Загрузка...
Похожие Темы - Ищу функцию конвертации
  1. Dahlum
    Ответов:
    0
    Просмотров:
    85
  2. [ixTor]
    Ответов:
    1
    Просмотров:
    117
  3. dedushckin
    Ответов:
    2
    Просмотров:
    273
  4. anon
    Ответов:
    0
    Просмотров:
    389
  5. KarinaMO
    Ответов:
    0
    Просмотров:
    322

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