PB-Utf8-Filenames/UTF8Filenames.pb

37 lines
1.5 KiB
Plaintext
Raw Normal View History


; http://www.fileformat.info/info/unicode/char/feff/index.htm
; 
#ZERO_WIDTH_NO_BREAK_SPACE$ = ""
Dim *Strings(8)
*Strings(0) = UTF8("I"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Am"+""+"The"+""+"Trashman.txt")
*Strings(1) = UTF8("I"+""+"Am"+#ZERO_WIDTH_NO_BREAK_SPACE$+"The"+""+"Trashman.txt")
*Strings(2) = UTF8("I"+""+"Am"+""+"The"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Trashman.txt")
*Strings(3) = UTF8("IAmTheTrashman.t"+#ZERO_WIDTH_NO_BREAK_SPACE$+"xt")
;*Strings(3) = UTF8("I"+""+"Am"+#ZERO_WIDTH_NO_BREAK_SPACE$+"The"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Trashman.txt")
;*Strings(4) = UTF8("I"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Am"+""+"The"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Trashman.txt")
;*Strings(5) = UTF8("I"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Am"+#ZERO_WIDTH_NO_BREAK_SPACE$+"The"+""+"Trashman.txt")
;*Strings(6) = UTF8("I"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Am"+#ZERO_WIDTH_NO_BREAK_SPACE$+"The"+#ZERO_WIDTH_NO_BREAK_SPACE$+"Trashman.txt")
*Strings(4) = UTF8(#ZERO_WIDTH_NO_BREAK_SPACE$)
*Strings(5) = UTF8(#ZERO_WIDTH_NO_BREAK_SPACE$+#ZERO_WIDTH_NO_BREAK_SPACE$)
*Strings(6) = UTF8(#ZERO_WIDTH_NO_BREAK_SPACE$+#ZERO_WIDTH_NO_BREAK_SPACE$+#ZERO_WIDTH_NO_BREAK_SPACE$)
*Strings(7) = UTF8("hello-world.e"+#ZERO_WIDTH_NO_BREAK_SPACE$+"xe")
For i=0 To ArraySize(*Strings()) - 1
Debug PeekS(*Strings(i), -1, #PB_UTF8)
DeleteFile(PeekS(*Strings(i), -1, #PB_UTF8))
CreateFile(0, PeekS(*Strings(i), -1, #PB_UTF8))
For j=0 To Random(99,1) * 1024 - 1
WriteByte(0, 0)
Next
CloseFile(0)
Next
; IDE Options = PureBasic 5.70 LTS (Windows - x64)
; CursorPosition = 5
; EnableXP