3.13 DELSTRING: Zeichen aus einem String entfernen
| | | | | |
Format:
CALL DELSTRING USING Position Feld Anzahl
| |
| | | |
DELSTRING entfernt aus Feld ab PositionAnzahl Zeichen. Alle Zeichen danach werden auf Position geschoben.
DELSTRING kann auch mit den Befehlen add pos to anzahl move feld(anzahl) to feld(pos)
ausgeführt werden.
Beispiel:
*c32 %;slink §
identification division.
data division.
01 sfeld pic x(30).
procedure division.
move 'delstring.cob Beispielprogramm' to sfeld.
display sfeld.
display 'call delstring using ' sfeld ' 10 4'.
call delstring using 10 sfeld 4.
display sfeld.
display 'Mit move'.
move 'delstring.cob Beispielprogramm' to sfeld.
display sfeld.
move sfeld (14:) to sfeld (10:).
display sfeld.
accept omitted.
Siehe auch: STRINGLEN SUBSTRING INSSTRING MOVSTRING GETSTRING FINDSTRING RSTRING TRIM
Zurück zu DeleteControl
Hoch zu Funktionslibrary
Weiter zu DEZBY: Zeichen aus Dezimalwert erzeugen
|