• Codeby web-security - Курс "Тестирование Веб-Приложений на проникновение с нуля" от команды codeby. Общая теория, подготовка рабочего окружения, пассивный фазинг и фингерпринт, Активный фаззинг, Уязвимости, Пост-эксплуатация, Инструментальные средства, Social Engeneering и многое другое. Подробнее ...

  • Мобильный клиент нашего форума для Android гаджетов доступен в Google Play Market по этой ссылке. Клиент можно скачать с нашего форума по этой ссылке. Последняя версия МК в нашем телеграм канале вот здесь

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

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 689
305
#2
наскока стандартен такой вариант - ненаю, но в большинстве читабелен
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
 

ToxaRat

Чёрный маг
Lotus team
06.11.2007
3 240
18
#3
сделал пока вот так
Код:
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
чего не пашет просто реплейс - закоментенный в конце врудиться не могу...так бы было без цикла вообще
 

lmike

нет, пердело совершенство
Lotus team
27.08.2008
6 689
305
#4
у реплэйса КМК с не ASCII кодировками - не всё гладко...
но можно в собаках сделать (через эвалюэйт)
 
Вверх Снизу