17 lines
671 B
Plaintext
17 lines
671 B
Plaintext
Module stringcase {
|
||
string s="alphaBETA", s1=s, c="!@@@@<"
|
||
print ucase$(s)="ALPHABETA"
|
||
print lcase$(s)="alphabeta"
|
||
s=str$(s+"ΑΛΦΑ", 1032) ' convert from utf16le to ansi 1032, and enpand to utf16LE as locale 1033
|
||
print s="alphaBETAÁËÖÁ"
|
||
// trait as utfLE16 but for character code from 0 to 255, and return based on locale 1033
|
||
print lcase$(s, 1033)="alphabetaáëöá"
|
||
// trait as utfLE16 but for character code from 0 to 255, and return based on locale 1032
|
||
print lcase$(s, 1032)="alphabetaαλφα"
|
||
print lcase$(s1+"ΑΛΦΑ")="alphabetaαλφα"
|
||
print str$(s1, ">")="ALPHABETA"
|
||
print str$(s1, "<")="alphabeta"
|
||
print str$(s1, c)="beta"
|
||
}
|
||
stringcase
|