PureBasic Forums - English

Code: Select all

;ReadFile for #PB_UTF16BE on pb5.50
If ReadFile(0,"c:\UTF16BE.txt")
 If ReadStringFormat(0)=#PB_UTF16BE
  ;Debug Loc(0)
  While Eof(0) = 0:d.u=ReadUnicodeCharacter(0)
   d=d>>8+d<<8:t.s+Chr(d)
 Wend:Debug t:EndIf
CloseFile(0):EndIf