Variable inclue dans une string sans symbole + ou &
Publié : mer. 10/juin/2009 8:09
Bonjour à tous
Je viens de voir un truc de ouf....enfin que moi j'ai trouvé de ouf sur le forum allemand
Alors, je me suis pensé que ce serait peut etre utile ici.
Mais peut etre que vous connaissez.....vous connaissez toujours tout
Au debut on se demande ce qui est original...enfin surtout moi
Et apres on comprend que le pelo il arrive a inserer des variables au beau milieu du texte sans mettre le traditionnel + ou &
Y sont fort aussi ces allemand
http://www.purebasic.fr/german/viewtopi ... 456#247456
Bonne journée
Je viens de voir un truc de ouf....enfin que moi j'ai trouvé de ouf sur le forum allemand
Alors, je me suis pensé que ce serait peut etre utile ici.
Mais peut etre que vous connaissez.....vous connaissez toujours tout
Au debut on se demande ce qui est original...enfin surtout moi
Et apres on comprend que le pelo il arrive a inserer des variables au beau milieu du texte sans mettre le traditionnel + ou &
Y sont fort aussi ces allemand
Code : Tout sélectionner
;Erzeugt eine IntegerZahl im String
Macro Integer(Value) : _DQ_+Str(Value)+_DQ_
EndMacro
;Erzeugt eine FließkommaZahl im String
Macro Float(Value, Flag=-1) : _DQ_+StrF(Value, Flag)+_DQ_
EndMacro
;Erzeugt eine FließkommaZahl im String
Macro Double(Value, Flag=-1) : _DQ_+StrD(Value, Flag)+_DQ_
EndMacro
;Erzeugt ein String im String
Macro String(Value) : _DQ_+Value+_DQ_
EndMacro
;Erzeugt ein Esc im String
Macro ESC(Value) : _DQ_+Chr(Value)+_DQ_
EndMacro
Macro _DQ_ :"
EndMacro
Variable = 123
Text.s = "Hallo Welt"
Debug "Variable ist Integer(Variable), toll wa?"
Debug "Man kann auch addieren : Integer(Variable+123) "
Debug "natürlich geht das auch mit Doubles, also ist PI = Double(#PI) "
Debug "wer weniger Dezimalstellen haben will kann auch Double(#PI,2) machen!"
Debug "Hier wird mal ein String eingefügt - String(Text) - !!!"
Debug "Tab Esc(#tab) oder Linefeed Esc(#LF) gehen auch... (Esc(169))"
Bonne journée
)