REPLACE
3 Beiträge
•
Seite 1 von 1
3 Beiträge
Seite 1 von 1
Beitrag
von mich140883 (ForumUser / 1 / 0 /
0
)
»
Hallo,
ich habe folgendes Problem:
Ich habe einen Selektionsbildschirm in dem ich den zu bearbeitenden Text eingebe, z.B. "Heute ist Mittwoch" <- der Name des Parameter ist 'eingabe'.
Dann habe ich die Eingabe für die zu ersetzende Buchstaben (Parameter 'zeichen') und die eingabe für die neuen Buchstaben (Parameter 'ersatz').
Mein Befehl
REPLACE zeichen WITH ersatz INTO eingabe.
if sy-subrc = 0.
WRITE: /'ergibt verschlüsselt: ', 25 eingabe.
endif.
funktioniert nur wenn ich z.B. bei 'zeichen' "eut" und bei 'ersatz' "iob". Dann ersetzt er mir also "Heute" in "Hiobe", weil diese Stringfolge vorhanden ist.
Ich möchte aber dass er alle "e" durch "i", "u" durch "o" und "t" durch "b" im Satz "Heute ist Mittwoch" ersetzt, also die einzelnen Buchstaben und nicht die Buchstabenfolge.
Hoffe ihr könnt mir helfen!!
Vielen Dank und schöne Grüße
Michael
ich habe folgendes Problem:
Ich habe einen Selektionsbildschirm in dem ich den zu bearbeitenden Text eingebe, z.B. "Heute ist Mittwoch" <- der Name des Parameter ist 'eingabe'.
Dann habe ich die Eingabe für die zu ersetzende Buchstaben (Parameter 'zeichen') und die eingabe für die neuen Buchstaben (Parameter 'ersatz').
Mein Befehl
REPLACE zeichen WITH ersatz INTO eingabe.
if sy-subrc = 0.
WRITE: /'ergibt verschlüsselt: ', 25 eingabe.
endif.
funktioniert nur wenn ich z.B. bei 'zeichen' "eut" und bei 'ersatz' "iob". Dann ersetzt er mir also "Heute" in "Hiobe", weil diese Stringfolge vorhanden ist.
Ich möchte aber dass er alle "e" durch "i", "u" durch "o" und "t" durch "b" im Satz "Heute ist Mittwoch" ersetzt, also die einzelnen Buchstaben und nicht die Buchstabenfolge.
Hoffe ihr könnt mir helfen!!
Vielen Dank und schöne Grüße
Michael
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Moin,
mein Vorschlag:
gruß Tron
mein Vorschlag:
Code: Alles auswählen.
*&---------------------------------------------------------------------*
*& Report ZTEST_CHAR_REPLACE *
*& *
*&---------------------------------------------------------------------*
*& *
*& *
*&---------------------------------------------------------------------*
REPORT ztest_char_replace .
DATA: i TYPE i,
h type i,
j(1),
k(1).
PARAMETERS eingabe(80) LOWER CASE DEFAULT 'Heute ist Mittwoch'.
PARAMETERS zeichen(80) LOWER CASE DEFAULT 'eut'.
PARAMETERS ersatz(80) LOWER CASE DEFAULT 'iob'.
write : / eingabe(20) , zeichen(3) , ersatz(3).
i = STRLEN( zeichen ).
DO i TIMES.
h = sy-index - 1.
j = zeichen+h(1).
k = ersatz+h(1).
REPLACE ALL OCCURRENCES OF j IN eingabe WITH k.
ENDDO.
write : / eingabe.
<:: XING-Gruppe Tricktresor::>
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Die deutsche Rechtschreibung ist Freeware, du darfst sie kostenlos nutzen –
Aber sie ist nicht Open Source, d. h. du darfst sie nicht verändern oder in veränderter Form veröffentlichen.
Beitrag
von michael.sbs (ForumUser / 6 / 0 /
1
)
»
Hallo Michl
es geht auch mit einer Translate-Anweisung:
REPORT ZZTEST_CHAR_REPLACE.
data: a(100) value 'Heute ist Mittwoch'.
data: b(100) vaLUE 'eiuotb'. (zu ersetzendes Zeichen und Ziel-Zeichen im Wechsel)
translate a using b.
write: a.
Gruß Michael
es geht auch mit einer Translate-Anweisung:
REPORT ZZTEST_CHAR_REPLACE.
data: a(100) value 'Heute ist Mittwoch'.
data: b(100) vaLUE 'eiuotb'. (zu ersetzendes Zeichen und Ziel-Zeichen im Wechsel)
translate a using b.
write: a.
Gruß Michael
Seite 1 von 1
Vergleichbare Themen
12
Antw.
Antw.
9568
Views
Views
3
Antw.
Antw.
2776
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.