F-Script Befehlszeichen in Strings
ersetzen.
Ersetzen der F-Script Befehlszeichen « und » in
Strings
Beispiel
# ******************************************************************************************************
# DEMO-Script Ersetzen von "F-Script Klammern" (Guillemets) in Strings
#
# Version: 16.20.01
# Erstellt: 14.05.2018 - (c) Roman Vonwil
# ******************************************************************************************************
/headerreport
«/Example.GetText.GetBo»
«/Example.GetText.READ»
/
/Example.GetText.GetBo
«XSER(reqAddrText:Biz.GetBo)»
«XSER(reqAddrText:addArg=AddrText)»
«XSER(reqAddrText:addArg=2020,1)»
«XSER(reqAddrText:addArg=eif)»
«XSER(reqAddrText:addArg=)»
«XSER(reqAddrText:addArg=)»
«XSER(reqAddrText:addArg=)»
«XSER(reqAddrText:addArg=)»
«XSER(reqAddrText:addArg=AddrText.Text)»
«XSER(reqAddrText:addArg=)»
«nXSER(reqAddrText:execute>resAddrText)\A»
# Rückgabe direkt in X-Variable speichern
«nXRES(resAddrText:AddrText.Text>InputText)»
# ------------------------------------------------------------------------
«/Function.TextBlock.Cleanup»
# ------------------------------------------------------------------------
# Ausgabe:
«X(CleanedText,W100)»
/
/Example.GetText.READ
# ------------------------------------------------------------------------
# Zugriff auf Textblock mittels READ-Befehl:
«nz ADR-ACTIVE(2020)\I»
# ------------------------------------------------------------------------
# Nummerische Formatierung liefert Anzahl Zeilen
«nm1KUNDEN-BEM(1)\N»
«REPEAT»
«nNO(1)»
# ------------------------------------------------------------------------
# aktuelle Zeile direkt in X-Variable speichern
«nREAD(«NO(1,0)»>InputText)»
«/Function.TextBlock.Cleanup»
# ------------------------------------------------------------------------
# Ausgabe:
«X(CleanedText)»
#
«nz NO(1,0)<«MEM(1)\N»\N»«LOOP»
/
/Function.TextBlock.Cleanup
# Expressions erlauben auch den Zugriff ohne "Expand"
# X-Variablen können so ohne Ausführung analysiert werden.
«X(CleanedText=)»
«(assign(CleanedText, replaces(uc_char(171),InputText,'"')))\E»
«(assign(CleanedText, replaces(uc_char(187),CleanedText,'"')))\E»
/
