Sonderzeichen abfragen

[B.Hauser]

Das ist doch kein Problem!
Die Sonderzeichen in dem String werden alle entweder mit dem OPCode XLATE oder mit der Built-in-Funktion %XLATE auf ein nicht zulässiges Sonderzeichen konvertiert. Dann wird entweder mit dem OPCode SCAN oder der Built-In-Funktion %SCAN geprüft, ob dieses Zeichen im String vorkommt.
... und fertig. Maximal 5 Code Zeilen

D Text            S            256A   Varying      
                                                   
D Ungueltig       S              4A   inz('!;.?')  
D Ersetzen        S              4A   inz('****')
 *----------------------------------------------
/Free                                                  
   Text = %XLate(Ungueltig: Ersetzen: Text);        
   If %Scan('*': Text) > *Zeros;                       
      //Ungültige Zeichen
   Else;
      //Nur gültige Zeichen                                     
   EndIf;                                 
/End-Free 

Birgitta

[Fuerchau]

Naja, weniger Code ist das auch nicht.
Aber im Free-Format kann man auch noch abkürzen:

If %Scan('*': %XLate(Ungueltig: Ersetzen: Text) ) > *Zeros;
:
endif;

[marcel331]

Hallo,

Danke für eure Antworten, werde es jetzt gleich direkt mal einbauen. Die Funktion XLATE war mit bisher noch nicht bekannt.

Mit wenig Code meinte ich eigentlich das Array, hier kann ich ja wieder mit einer Konstanten arbeiten.

Gruß

Marcel

[Fuerchau]

Welches Array ?

Auch beim Check kann ich mit einer Konstanten und einem Befehl arbeiten:

%CHECK (Check Characters)

%CHECK(comparator : base {: start})

%CHECK returns the first position of the string

base that contains a character that
does not appear in string comparator. If all of the characters in base also appear in

comparator

, the function returns 0.
The check begins at the starting position and continues to the right until a
character that is not contained in the comparator string is found. The starting
position defaults to 1.
The first parameter must be of type character, graphic, or UCS-2, fixed or varying
length. The second parameter must be the same type as the first parameter. The
third parameter, if specified, must be a non-float numeric with zero decimal
positions.

Also:
D Gueltig 36A inz('ABCD.....)

if %check(Gueltig:Text) > 0;
=> Fehler
endif;

[marcel331]

das ist mir bewusst, hab ich ja auch gemacht. Aber ich wollte ja die ungültigen Zeichen erfassen und nicht die gültigen. Deshalb fiehl ja die Funktion CHECK raus.

Gruß

Marcel