Seite 1 von 1

Variablen in Strings

Verfasst: 04.06.2009 15:49
von 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!

Re: Variablen in Strings

Verfasst: 04.06.2009 15:56
von ts-soft
STARGÅTE hat geschrieben: Diese Marcos durfen natürlich nur in Strings verwendet werden!
Dann sollten sie aber keine nativen Funktionen überschreiben,
Int() ist bei mir bereits vergeben :wink:

Verfasst: 04.06.2009 16:01
von STARGÅTE
oke gefixt

@TomS: ne gefixt ...

Verfasst: 04.06.2009 16:06
von TomS
@STARGÅTE: :allright:

PS: Ist "Inteter" Absicht?

Verfasst: 09.06.2009 13:36
von mk-soft
:allright: 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 :wink: