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
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