'-- йа проверялко разноязычности слова
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
|