PureBasic Forums - English

Code: Select all

EnableExplicit


Define *A.Unicode = @"Write something funny"
Define OutStr$

Repeat
	Select *A\u
		Case '0' To '9', 'a' To 'z', 'A' To 'Z':
			OutStr$ + Chr(823) + Chr(*A\u)
		Case 0:
			Break
		Default
			OutStr$ + Chr(*A\u)
	EndSelect
	*A+SizeOf(Unicode)
ForEver

Debug OutStr$

Code: Select all

Before:
004330B0  57 00 72 00 69 00 74 00 65 00 20 00 73 00 6F 00  W.r.i.t.e. .s.o.
004330C0  6D 00 65 00 74 00 68 00 69 00 6E 00 67 00 20 00  m.e.t.h.i.n.g. .

After:
00395EE8  37 03 57 00 37 03 72 00 37 03 69 00 37 03 74 00  7.W.7.r.7.i.7.t.
00395EF8  37 03 65 00 20 00 37 03 73 00 37 03 6F 00 37 03  7.e. .7.s.7.o.7.

Code: Select all

̷W̷r̷i̷t̷e ̷s̷o̷m̷e̷t̷h̷i̷n̷g ̷f̷u̷n̷n̷y

Code: Select all

/W/r/i/t/e /s/o/m/e/t/h/i/n/g /f/u/n/n/y

Code: Select all

EnableExplicit

Define *a.Character = @"Write something funny 0123"
Define out.s

While *a\c
   Select *a\c
      Case '0' To '9', 'a' To 'z', 'A' To 'Z':
         out + Chr($FF00 + *a\c - 32)
      Default
         out + Chr(*a\c)
   EndSelect
   *a + SizeOf(Character)
Wend

Debug out

Code: Select all

Define *A.Unicode = @"кириллический пример"
..
Case 'а' To 'я', '0' To '9', 'a' To 'z', 'A' To 'Z':