PureBasic Forums - English

Code: Select all

IncludeFile "Format-v207.pbi"

aVal.a = $FF
uVal.u = $E0E0
lVal.l = $AAAAAAAA
qVal.q = $00EE00EE00EE00EE
temp.s = "Result:\n"
temp + "Hex2 = %2X\nHex4 = %4X\nHex8 = %8X\nHex16 = %16X\n\n"
temp + "Invalid read Hex8 on uVal = %8x"

result.s = format(temp, @aVal, @uVal, @lVal, @qVal, @uVal)
MessageRequester("Format like sprintf", result)

Code: Select all

IncludeFile "Format.pbi"

bVal.b = 100
wVal.w = 200
lVal.l = 300
iVal.i = 400
fVal.f = 500.0
dVal.d = -600.0
sVal.s = "Hello World"
aVal.a = 255
uVal.u = 65535

temp.s = "Result: \nByte = %b, \nWord = %w, \nLong = %l, \nInteger = %i, \nFloat = %10.2f, \nDouble = %-+10.2d, \n"
temp + "String = %s, \nUnsigned Byte = %a, \nUnsigned Word = %u,\n"
temp + "Hex = %2x, \nHex = %4X"

result.s = format(temp, @bVal, @wVal, @lVal, @iVal, @fVal, @dVal, @sVal, @aVal, @uVal, @aVal, @uVal)
MessageRequester("Format like sprintf", result)

Code: Select all

Define number.q = 12345678
r1.s = format("Test quat number %q", @number)
Debug r1

Code: Select all

myTable$ = "Data1"
myNumber.q = 12345678
query$ = format("SELECT * FROM %s WHERE MyValue >= %q", @myTable$, @myNumber)
Debug query$

Code: Select all

v1 = 1
v2 = 2
v3 = 3
v4 = 4
v5 = 5
v6 = 6
v7 = 7
v8 = 8
v9 = 9
v10 = 10
v11 = 11

t$ = Format("test %i, %i, %i, %i, %i, %i, %i, %i, %i, %i, %i", @v1, @v2, @v3, @v4, @v5, @v6, @v7, @v8, @v9, @v10, @v11)

Debug t$

Code: Select all

    Case 'i'
              If *value : help = Str ( *value\i ) : EndIf : IsValue = #True             

Code: Select all

  *args + SizeOf ( Integer ) 
            Break

Code: Select all

  *args + SizeOf ( Integer ) * 2
            Break

Code: Select all

;d Or i	Signed decimal integer	392
;u	Unsigned decimal integer	7235
;o	Unsigned octal	610
;x	Unsigned hexadecimal integer	7fa
;X	Unsigned hexadecimal integer (uppercase)	7FA
;f	Decimal floating point, lowercase	392.65
;F	Decimal floating point, uppercase	392.65
;e	Scientific notation (mantissa/exponent), lowercase	3.9265e+2
;E	Scientific notation (mantissa/exponent), uppercase	3.9265E+2
;g	Use the shortest representation: %e Or %f	392.65
;G	Use the shortest representation: %E Or %F	392.65
;a	Hexadecimal floating point, lowercase	-0xc.90fep-2
;A	Hexadecimal floating point, uppercase	-0XC.90FEP-2
;c	Character	a
;s	String of characters	sample
;p	Pointer address	b8000000

ImportC ""
  swprintf(*str.string,format.s,*args,*args1=0,*args2=0,*args3=0,*args4=0,*args5=0,*args6=0,*args7=0,*args8=0) 
EndImport 

Global  str.s{128}   
Global *pointer=@str

swprintf(@str,"<h2>This is the address of the output string %p!!!</h2><p>This is a string, %s</p>",*pointer,@"hello")

Debug str 
Debug Hex(@str) 

Code: Select all

...
Removed
...