OpaccERP logo

F-Script

Anwendung / Praxis

Textblöcke zeilenweise ausgeben

Textblöcke mit Repeat/Loop zeilenweise ausgeben.

Beispiel

/Text-Zeilen
# Standardtextblock (Adressen) auslesen und zeilenweise ausgeben
«XSER(getAddrReplaceText:GetBo)»
«XSER(getAddrReplaceText:addArg=AddrReplaceText)»
«XSER(getAddrReplaceText:addArg=3)»
«XSER(getAddrReplaceText:addArg=e)»
«XSER(getAddrReplaceText:addArg=1)»
«XSER(getAddrReplaceText:addArg=1)»
«XSER(getAddrReplaceText:addArg=1)»
«XSER(getAddrReplaceText:addArg=)»
«XSER(getAddrReplaceText:addArg=AddrReplaceText.Text@@1)»
«nXSER(getAddrReplaceText:execute>getAddrReplaceTextRes)\A»
#
# Text in eine X-Variable abfüllen
«XRES(getAddrReplaceTextRes:AddrReplaceText.Text@@1>AddrTxt)»
#
«z~X(AddrTxt)\I»«GOTO(# Jump-Text1)»
«nm2»«NO(1,NULL)»
# Das Ausgabeformat definieren und alles in MEM(2) speichern.
# W40 ist die Vorgabe für die auszugebende Zeilenlänge.
«nm2(«X(AddrTxt,W40)\N»)»
«REPEAT»
«nNO(1)»
«READ(«NO(1,0)»)»
«zNO(1,0)<«MEM(2)\N»\N»«LOOP»
# Jump-Text1
/