VisStrExpand

von Centura Team Developer, Gupta bzw. SQLWindows mit Visual Toolchest

Syntax

sExpanded = VisStrExpand( sVorlage, asFeld | anFeld )

Beschreibung

Erweitert eine Vorlage durch Einfügung eines oder mehrerer Feldelemente. Die Vorlage besteht aus normalen Zeichen und ein oder mehreren Ersetzungszeichen. Die Ersetzungszeichen haben das Format:   { %[ , ]Typ }

• Zulässige Typen sind: s (=String), n (=Number), u (=Unit =Feld-Index)
• Ersetzungszeichen beginnen immer mit einem "%" (Prozent-Zeichen) und werden von Links nach Rechts gelesen. Das erste Ersetzungszeichen in der Vorlage wird durch den ersten Feldeintrag ersetzt, das zweite Ersetzungszeichen durch den zweiten Feldeintrag usw. .
  • Wenn     mehr Feldeinträge als Ersetzungszeichen vorhanden sind, werden die "mehr-Feldeinträge" ignoriert.
  • Wenn weniger Feldeinträge als Ersetzungszeichen vorhanden sind, bleiben die Ersetzungszeichen stehen.
  • Existente aber nicht gesetzte Feldeinträge sind Leerstring bzw. 0 und werden entsprechend mit Leerstring bzw. 0 ersetzt.
• Wird die Vorlage in geschweifte-Klammern { } gesetzt, so wird der Vorlagentext in dieser Klammer, so oft wie es Feldeinträge gibt, wiederholt.
  • Befindet sich ein Komma "," zwischen dem "%" und dem Typ, so wird jeder Wiederholung ein Komma vorangestellt (außer dem ersten).
• Besonderheiten / Endlos-Schleifen / Programm-Absturz / Unzulässiges
  • Wird anFeld verwendet mit einer Misch-Vorlage aus %s %n , so bestimmt das % -Zeichen den Index von anFeld und nicht wie zu erwarten gewesen wäre das %n -te-Vorkommen.
  • Wird asFeld verwendet, so muß das erste Ersetzungszeichen in der Vorlage %s sein!
    Ansonsten kommt es zu einer Endlos-Schleife.
  • Feldeinträge dürfen nicht auf STRING_Null bzw. NUMBER_Null gesetzt werden. Sollten diese auf STRING_Null bzw. NUMBER_Null gesetzt sein, so stürzt das Programm ab, ohne jede Fehlermeldung oder irgend einem Ereignis (Message). Sie müssen aber nicht explizit gesetzt werden, für nicht explizit gesetzt Feldeinträge wird Leerstring '' bzw. 0 verwendet.
  
   

Beispiele

"SELECT	{ tbl.%,s }
 INTO	{ :sBindAry[ %,u ] }
 FROM langer_Tabellen_Name tbl
 where tbl.REFID = 0 "

"SELECT	 tbl.COL_EINS  , tbl.COL_ZWEI  , tbl.COL_DREI  , tbl.COL_VIER  
 INTO	 :sBindAry[ 0 ] , :sBindAry[ 1 ] , :sBindAry[ 2 ] , :sBindAry[ 3 ] 
 FROM langer_Tabellen_Name tbl
 where tbl.REFID = 0 "

"SELECT	'0' as 	{ tbl.column_%,u   }
 INTO		{ :sBindAry[ %,u ] }
 FROM langer_Tabellen_Name tbl
 where tbl.REFID = 0 "

"SELECT	'0' as 	 tbl.column_0   , tbl.column_1   , tbl.column_2   , tbl.column_3   
 INTO		 :sBindAry[ 0 ] , :sBindAry[ 1 ] , :sBindAry[ 2 ] , :sBindAry[ 3 ] 
 FROM langer_Tabellen_Name tbl
 where tbl.REFID = 0 "

Ein kleines Probier/Demo-Programm VisStrExpand.
Siehe darin bei On SAM_AppStartup und Internal Functions .