Variablen in Strings

[STARGÅTE]

Tachchen,

da ja inzwischen 4.31 draußen ist, und mein Code immer noch geht, ist es wohl doch kein Macro BUG.

Hier also ein Beispiel wie man schneller/einfacher Variablen in String benutzen kann:

Diese Marcos durfen natürlich nur in Strings verwendet werden!

Code: Alles auswählen

;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 

Macro _DQ_ :"
EndMacro 



Variable = 123

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

Variable ist 123, toll wa?
Man kann auch addieren : 246
natürlich geht das auch mit Doubles, also ist PI = 3.1415926536
wer weniger Dezimalstellen haben will kann auch 3.14 machen!

[ts-soft]

Diese Marcos durfen natürlich nur in Strings verwendet werden!

Dann sollten sie aber keine nativen Funktionen überschreiben,
Int() ist bei mir bereits vergeben

[STARGÅTE]

oke gefixt

@TomS: ne gefixt ...

[TomS]

@STARGÅTE:

PS: Ist "Inteter" Absicht?

[mk-soft]

mal etwas erweitert

Code: Alles auswählen

;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))"

FF