Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen angezeigt.

--- lsoft:snippets:start [2017/08/14 08:58] – kwagner
+++ lsoft:snippets:start [2023/12/21 13:29] (aktuell) – kwagner
@@ Zeile 23: / Zeile 23: @@
 <code>
 substr(datum.i,7,4)+substr(datum.i,4,2)+substr(datum.i,1,2)
+</code>
+=== Textboxen ===
+<code>
+set textbox to "BLOCK", @FALSE, @TRUE
+say textbox(rpos,cpos,rpos,430,'Viel Text; Variablen mit Plus (+) anfügen!!!: ' + variable + ' << !!! ')
+do while @TBTEXT <> ''
+    rpos+=rpi
+    say textbox(rpos,cpos,rpos,430,@TBTEXT)
+enddo
+</code>
+=== Leerzeichen ersetzen ===
+<code>
+aus1 = v_tarif_zusatzvereinbarung.l2
+do while pos(' ', aus1) > 0
+	aus += substr(aus1, 0, pos(' ', aus1) - 1)
+	aus += ' '
+	aus1 = substr(aus1, pos(' ', aus1) + 1)
+enddo
+aus += aus1 + ', sowie der Zusatzvereinbarung '
+</code>
+=== 0 am Ende von Nachkommastellen nicht ausgeben ===
+<code>
+l_w14_arbeitspreis_text = edit(l_w14_arbeitspreis,'--.--9V,9999')
+if ( substr(l_w14_arbeitspreis_text,length(l_w14_arbeitspreis_text)) <> '0' )
+  	say textright( l_w14_arbeitspreis_text + ' ct/kWh')
+else
+  	say textright( edit(l_w14_arbeitspreis,'--.--9V,999') + ' ct/kWh')
+endif
+</code>
+==== Variablen dynamisch ausgeben ====
+<code>
+	do 10
+		r100=pos('$$',s,1)-1
+		r101=pos('$$',substr(s,r100+3,length(s)-r100-3),1)+r100+4
+		if r100 > 0 and r101-r100-4 > 0
+			sv=substr(s,r100+3,r101-r100-5)
+			sv = 'a_name_report'
+			s=substr(s,1,r100)+ &sv +substr(s,r101,length(s)-r101+1) ##hier wird &sv zu einem pointer auf die Variable "a_name_report"
+		else
+			leave
+		endif
+	enddo
 </code>