BlitzCoder Code Database

BlitzCoder Essentials

•Home Page
•About BlitzCoder
•Contributors
•Terms of Use
•Email Us

Main Areas

•BlitzCoder Chat
•Discussions
•Articles/Tutorials
•Code Database
•Link Database
•Showcase Area
•Worklogs
•Competitions

Special Areas

•Undocumented

Other Blitz Sites

•Blitz Basic Home
•Blitz Showcase
•BlitzPlay Library

BlitzCoder Code Archives Page

Main Codes Page

"Replacement Upper & Lower (UpperCyr & LowerCyr) to working also with CYRYLLIC", by 4rester

This function to working also with cyryllic's symbols (russian & ukrainian). Using -- same as Upper & Lower.

Code

8<---------------------------------\
;Written by Eugene Lisovy AKA 4RESTER@ukr.net AKA ICQ:217991
Function UpperCyr$(StringCyr$)
Length=Len(StringCyr$):If Length<1 Then Return ""
UpperStringCyr$=""
For i=1 To Length:Symbol=Asc(Upper$(Mid$(StringCyr$,i,1)))
If Symbol>$DF Then Symbol=Symbol-$20:Goto EndXLAT
Select Symbol
Case $A2
Symbol=$A1
Case $B4
Symbol=$A5
Case $B8
Symbol=$A8
Case $BA
Symbol=$AA
Case $BF
Symbol=$AF
End Select
.EndXLAT
UpperStringCyr$=UpperStringCyr$+Chr$(Symbol)
Next
Return UpperStringCyr$
End Function
8<---------------------------------/

8<---------------------------------\
;Written by Eugene Lisovy AKA 4RESTER@ukr.net AKA ICQ:217991
Function LowerCyr$(StringCyr$)
Length=Len(StringCyr$):If Length<1 Then Return ""
LowerStringCyr$=""
For i=1 To Length:Symbol=Asc(Lower$(Mid$(StringCyr$,i,1)))
If Symbol>$BF And Symbol<$E0 Then Symbol=Symbol+$20:Goto EndXLAT
Select Symbol
Case $A1
Symbol=$A2
Case $A5
Symbol=$B4
Case $A8
Symbol=$B8
Case $AA
Symbol=$BA
Case $AF
Symbol=$BF
End Select
.EndXLAT
LowerStringCyr$=LowerStringCyr$+Chr$(Symbol)
Next 
Return LowerStringCyr$
End Function
8<---------------------------------/

Code software created by Krylar's Kreations