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

[ToxaRat]

сабж

Добавлено: о, нашел наказ 55 -

Ссылка скрыта от гостей

 

[lmike]

наскока стандартен такой вариант - ненаю, но в большинстве читабелен
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]

сделал пока вот так

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]

у реплэйса КМК с не ASCII кодировками - не всё гладко...
но можно в собаках сделать (через эвалюэйт)