PolekoZ

Поставьте этому посту минус и, если не трудно, оставьте комментарий. Хочу посмотреть, выйдет ли в горячее.

Возникла задача замены в маркировке русских букв, которые написаны разными ленивыми или невнимательными людьми, на латинские. В результате выглядящий одинаково текст будет и сравниваться одинаково.

Поиски подобного кода результатов не дали (или может искал плохо, везде максимум транслит), поэтому вот, функция которая делает то, что нужно.

Function CyrillicToLatinSame(inputStr As String) As String

Dim cyrillicChars As String

Dim latinChars As String

Dim i As Integer

Dim resultStr As String

' кириллические символы, которые выглядят как латиница

cyrillicChars = "АЕКМОСТВНРХаеосрх"

' латинские символы, которые выглядят как кириллица

latinChars = "AEKMOCTBHPXaeocpx"

resultStr = inputStr

' замена кириллицы на латиницу с одинаковым начертанием

For i = 1 To Len(cyrillicChars)

resultStr = Replace(resultStr, Mid(cyrillicChars, i, 1), Mid(latinChars, i, 1),1,-1,vbBinaryCompare)

Next i

CyrillicToLatinSame = resultStr

End Function

а также на pastedbin с форматированием

Nanowar of steel опять жгут. На этот раз они написали песню в виде кода на java