|
Re: Lower$(name$) + русский язык = проблема
держите, соучастнеги
[blitz]
Function Lower2$(txt$)
nt$=""
For i=1 To Len(txt)
m$=Mid(txt,i,1)
If Asc(m$)<128
nt=nt+Lower(m)
Else
If Asc(m)>191 And Asc(m)<225
nt=nt+Chr(Asc(m)+32)
ElseIf Asc(m)=168
nt=nt+Chr(184)
Else
nt=nt+m
EndIf
EndIf
Next
Return nt
End Function
[/blitz]
|