| |
|
|
| |
'-- йа проверялко разноязычности слова
Function checkAsciiLang$(s$)
Dim i&, ns$, c&
On Error GoTo errw333
If Len(Nz(s, "")) = 0 Then Exit Function
ns = ""
For i = 1 To Len(s)
c = Asc(Mid(s, i, 1))
ns = ns & IIf(c > 64 And c < 123 And c <> 96, "en", IIf(c < 65, Mid(s, i, 1), "ru")) & "|"
Next i
checkAsciiLang = ns
Exit Function
errw333:
checkAsciiLang = s
Exit Function
End Function
|
 | |
| |
| |
| |
|
|
| | а кроме как перебором каждого символа никак нельзя решить?
боюсь будет долго выполняться... | |
| |
| |
| |
|
|
| | ну,может и можно :) dllку там на сях или еще как
ну у меян на 20 000 записях отработало не очень долго.
это ж не для постоянного использования, а для "вычистки справочника", например...
первый раз, если оч.много данных, то, возможно, будет долго... а дальше... как по маслу, имхо :)
в общем мне помогло, чего и вам желаю  | |
| |
| |
| |
|
|
| | Извиняюся за бестолковость... 
Для каких разноязычностей эту функцию можно использовать...?
Видно что сообщает ру или енгл, а всё равно до конца не разберуся ...  | |
| |
| |
| |
|
|
| | как говорицца -почувствуйте разницу
?checkAsciiLang("IВАHОВ IВАН")
en|ru|ru|en|ru|ru| |en|ru|ru|ru|
?checkAsciiLang("ІВАНОВ ІВАН")
ru|ru|ru|ru|ru|ru| |ru|ru|ru|ru|
|
опять же если в русском тексте есть английская "С" | |
| |
| |
| |
|
|
| | ААААААААААААААААААААааааааааааааааааааааааааа
 | |
| |
| |
| |
|
|
| | ?checkAsciiLang("ААААААААААААААААААААааааааааааааааа аааааааааа")
ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|ru| |ru|ru|ru|ru|ru|ru|ru|ru|ru|ru|
| |
| |
| |
