dim s as CFStringMBS
dim t as CFStringMBS
dim n1,n2 as Integer

s=NewCFStringMBS("Hello7.txt")
t=NewCFStringMBS("Hello10.txt")
n1=s.Compare(t,false)

n2=s.Compare(t,false,true)

MsgBox "Without nummerical: "+str(n1)+", With nummerical: "+str(n2)+"."

// Just a quick and dirty test for this function:

dim s(10) as string
dim i as Integer
dim temp as string
dim isDirty as boolean
dim a,b as CFStringMBS

s(1)="Apfel"
s(2)="Strasse"
s(3)="Bäum"
s(4)="Straße"
s(5)="Zaun"
s(6)="äpfel"
s(7)="bäum"
s(8)="Baum"
s(9)="Äpfel"
s(10)="Ende"

// if kCFCompareLocalized is used, the Äpfel come near Apfel.

const kCFCompareCaseInsensitive =  1
const kCFCompareBackwards       =  4  //* Starting from the end of the string */
const kCFCompareAnchored        =  8  //* Only at the specified starting point */
const kCFCompareNonliteral      = 16  //* If specified, loose equivalence is performed (o-umlaut == o, umlaut) */
const kCFCompareLocalized       = 32  //* User's default locale is used for the comparisons */
const kCFCompareNumerically     = 64  //* Numeric comparison is used; that is, Foo2.txt < Foo7.txt < Foo25.txt */

'Sortieren
do
  isDirty = false// we haven't touched anything yet
  for i = 1 to 10-1// loop through all the numbers
    
    a=NewCFStringMBS(s(i))
    b=NewCFStringMBS(s(i+1))
    
    if a.Compare(b,kCFCompareLocalized)>0 then
      temp = s(i+1)
      s(i+1) = s(i)
      s(i) = temp
      isDirty = true// we touched the data so mark it as dirty
    end
  next
loop until isDirty = false// if we made it without touching the data thenwe are done


for i=1 to 10
  EditField1.text=EditField1.text + s(i) + chr(13)
next i

dim c as new CFStringMBS("Hello")
MsgBox c

const kCFStringNormalizationFormD  = 0 // Canonical Decomposition
const kCFStringNormalizationFormKD = 1 // Compatibility Decomposition
const kCFStringNormalizationFormC  = 2 // Canonical Decomposition followed by Canonical Composition
const kCFStringNormalizationFormKC = 3 // Compatibility Decomposition followed by Canonical Composition

dim s as CFStringMBS
dim m as CFMutableStringMBS

s=NewCFStringMBS("Hello é")
m=s.Normalize(kCFStringNormalizationFormD)

MsgBox str(s.Len)+" "+str(m.len)

// decomposed the length is one more.

dim s as cfstringmbs
s=NewCFStringMBS("Hello")
msgbox s

dim s as cfstringmbs
s="Hello"
// replaces: s=NewCFStringMBS("Hello")