/Util/Universal Encoding Detection
Feedback.

Function:
You find this example project in your Plugins Download as a Realbasic project file within the examples folder: /Util/Universal Encoding Detection
This example is the version from Wed, 22th Dec 2009.
Notes: Last modified: Wed, 22th Dec 2009

Class App
Inherits Application
  // Constants
  Const kFileQuitShortcut = Ctrl+Q
  Const kFileQuit = E&xit
  Const kEditClear = &Delete
End Class

Class Window1
Inherits Window
  // Controls
  ControlInstance
  End ControlInstance
  
  // Event implementations
  Sub Open()
    
    
    
    
    // check japanese text
    test j
    test ConvertEncoding(j,encodings.UTF16)
    test ConvertEncoding(j,encodings.ShiftJIS)
    test ConvertEncoding(j,encodings.MacJapanese)
    
    // check west european text
    test t
    test ConvertEncoding(t,encodings.WindowsANSI)
    
    // BOM Checks
    
    dim bom as string = DefineEncoding(chr(&hEF)+chr(&hBB)+chr(&hBF)+"Hello",encodings.UTF8)
    
    test bom
    test ConvertEncoding(bom,encodings.UTF16)
    test ConvertEncoding(bom,encodings.UTF16LE)
    test ConvertEncoding(bom,encodings.UTF16BE)
    test ConvertEncoding(bom,encodings.UTF32LE)
    test ConvertEncoding(bom,encodings.UTF32BE)
    
    // Hebrew
    
    
    
    
    test h
    test ConvertEncoding(h,encodings.WindowsHebrew)
    
    // Cryllic
    
    
    
    test k
    test ConvertEncoding(k,encodings.WindowsCyrillic)
    
  End Sub
  
  // Methods
  Sub test(text as string)
    dim u as new UniversalCharacterDetectionMBS(UniversalCharacterDetectionMBS.FilterAll)
    
    u.AddData text
    u.Finish
    
    List.addrow ConvertEncoding(text,encodings.UTF8)
    List.cell(list.lastindex, 1)=text.Encoding.internetName
    List.cell(list.lastindex, 2)=u.LastCharSet
    
    
    
    
  End Sub
End Class

See also:

• /Util/Universal Picture Loader