Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе
' LangID = 0 - русский, 1 - украинский
Function Translit( sRusString As String, LangID As Integer ) As String
Translit = ""
Const sRuAlph$ = {а,б,в,г,д,е,ё,ж,з,и,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ъ,ы,ь,э,ю,я}
Const sRu2EnAlph$ = {a,b,v,g,d,e,jo,zh,z,i,j,k,l,m,n,o,p,r,s,t,u,f,h,c,ch,sh,shc,`,y, ,je,y,y}
Const sUaAlph$ = {а,б,в,г,д,е,є,ж,з,и,і,ї,й,к,л,м,н,о,п,р,с,т,у,ф,х,ц,ч,ш,щ,ю,я}
Const sUa2EnAlph$ = {a,b,v,g,d,je,e,zh,z,y,i,ji,j,k,l,m,n,o,p,r,s,t,u,f,h,c,ch,sh,shc,y,y}
If Len( sRusString ) = 0 Then Exit Function
Dim sFrom(0 To 1) As String, sTo(0 To 1) As String
sFrom(0) = sRuAlph
sFrom(1) = sUaAlph
sTo(0) = sRu2EnAlph
sTo(1) = sUa2EnAlph
Dim aFromLC As Variant, aToLC As Variant
Dim aFromUC As Variant, aToUC As Variant
Dim aTo As String
Dim i As Integer, j As Integer
aFromLC = Split ( Lcase(sFrom(LangID)), |,| )
aToLC = Split ( Lcase(sTo(LangID)), |,| )
aFromUC = Split ( Ucase(sFrom(LangID)), |,| )
aToUC = Split ( Ucase(sTo(LangID)), |,| )
aTo = sRusString
For i = 1 To Len(sRusString ) ' для каждого символа строки
For j = 0 To Ubound( aFromLC )
If Instr( Lcase( Mid( sRusString, i, 1 ) ) , Lcase( aFromLC(j) ) ) > 0 Then
' если для ниж. регистра
If Instr( Mid(sRusString, i, 1 ) , aFromLC(j) ) > 0 Then aTo = Implode( Split( aTo, aFromLC(j) ), aToLC(j) )
' если для верх. регистра
If Instr( Mid(sRusString, i, 1 ) , aFromUC(j) ) > 0 Then aTo = Implode( Split( aTo, aFromUC(j) ), aToUC(j) )
End If
Next
Next
Translit = aTo
End Functiona = Split("a b v ...")
b = Split("а б в ...")
result = Replace("vasja", a, b)
Public Function Translite( sEngString As String ) As String
'
Dim lstRus As Variant
Dim lstEng As Variant
Dim sRusString As Variant
lstRus = Split("а б в г д")
lstEng = Split("a b v g d")
sRusString = Replace("vasja", lstEng, lstRus)
Translite = "test"
End Function ' Translite
, за оптимальность я не могу ничего сказать
import com.ibm.icu.text.Transliterator;
/**
* Created by mike on 30.01.15.
*/
public class Translit {
public static void main(String args[]){
String rules = "Ч > Ch; ч > ch ";
Transliterator tempTrans = Transliterator.createFromRules("temp", rules, Transliterator.FORWARD);
String tempResult = tempTrans.transform(args[0]);
Transliterator t=Transliterator.getInstance("Any-Latin");
System.out.println(t.transliterate(tempResult));
}
}Прямая транслитерация (кир->лат) без проблем - по официальным правилам, как написали выше (с приоритетом дифтонгов).
СПСБ. Но лат->кир в шоколаде не пройдёт: (ь ъ) (е ё э) (ы й) не дадут взаимно однозначного соответствия - без словарика не обойтись.
Обучение наступательной кибербезопасности в игровой форме. Начать игру!