Страница 1 из 1
Привести текст к одному языку
Добавлено: 13 май 2008, 18:56
Asya
Есть база городов, которые мне надо "Склеить", но проблема, что слово, например, "Ялта" в одном файле, вероятно набрано на русском языке, а в другом на украинском, хотя видимой разницы в результате нет, а сцепить не получается ("Ялта" <> "Ялта"). Если у кого-то есть решение - поделитесь , плиз
Re: Привести текст к одному языку
Добавлено: 13 май 2008, 21:25
Aent
Вот код который меняет ангийские буквы на одинаковые русские.
Если не используется юникод, для украинского пишется аналогичная прцедура или модифицируется эта
Код: Выделить всё
Option Compare Binary
'Проверить на латиницу и преобразовать символы одинакового начертания к кириллице
Public Sub FilterLatRus(ByRef s As String)
Const csLat As String = "eEToOpPaAkKxXcCbBmM"
Const csRus As String = "еЕТоОрРаАкКхХсСьВмМ"
Dim i As Integer
Dim j As Integer
For i = 1 To Len(s)
j = InStr(csLat, Mid$(s, i, 1))
If j > 0 Then
Mid$(s, i, 1) = Mid$(csRus, j, 1)
End If
Next i
End Sub
Re: Привести текст к одному языку
Добавлено: 13 май 2008, 22:44
Asya
Спасибо большое
получилось
))