String nach erstem Auftreten von hinten durchsuchen
8 Beiträge
•
Seite 1 von 1
8 Beiträge
Seite 1 von 1
Hallo Community
Wie kriege ich es hin wenn ich eine Telefonnummer habe und nur die Extension hier im ersten Beispiel die Nummer 12345 für die Weiterverarbeitung benötige?
Die Telefonnummer können folgendermaßen aussehen.
+49-0634-63-12345
+48-06366 1245
63-123457
Ich müsste somit immer entweder nach dem ersten Bindestrich oder erstem Leerstrich von hinten suchen.
thx
Wie kriege ich es hin wenn ich eine Telefonnummer habe und nur die Extension hier im ersten Beispiel die Nummer 12345 für die Weiterverarbeitung benötige?
Die Telefonnummer können folgendermaßen aussehen.
+49-0634-63-12345
+48-06366 1245
63-123457
Ich müsste somit immer entweder nach dem ersten Bindestrich oder erstem Leerstrich von hinten suchen.
thx
..::Wer andern eine Grube gräbt, hat meist ein Grubengrabgerät::..
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Code: Alles auswählen.
DATA tel(30) VALUE '+49-2345-234-3112'.
DATA len TYPE i.
WRITE: AT /1 'Telefonnummer:', tel.
SHIFT tel RIGHT DELETING TRAILING space.
len = STRLEN( tel ).
DO len TIMES.
SHIFT tel RIGHT CIRCULAR BY 1 PLACES.
IF tel(1) CA '- '.
tel = tel+1(sy-index).
EXIT.
ENDIF.
ENDDO.
WRITE: AT /1 'Durchwahl: ', tel.
Enno
Beitrag
von black_adept (Top Expert / 4090 / 127 /
940
)
»
Alternativ
Code: Alles auswählen.
FORM finde_durchwahl USING p_telefon
CHANGING p_durchwahl.
DATA: length TYPE i.
p_durchwahl = p_telefon.
length = strlen( p_durchwahl ).
WHILE length > 0 AND p_durchwahl(length) CA ' -'.
SPLIT p_durchwahl AT p_durchwahl+sy-fdpos(1)
INTO p_durchwahl p_durchwahl.
length = strlen( p_durchwahl ).
ENDWHILE.
WRITE:/ 'Tel.:',p_telefon,
AT 40 'Durchwahl:',p_durchwahl.
ENDFORM. " finde_durchwahlDie Alternative verhält sich bei Telefonnummern ohne '-' anders als Ennos Variante.black_adept hat geschrieben:Alternativ
Wenn das so gewollt ist, geht es auch mit weniger Code (man könnte aber noch die FORM-Schnittstelle typisieren):
Code: Alles auswählen.
FORM finde_durchwahl USING p_telefon
CHANGING p_durchwahl.
DATA: itab TYPE table OF string.
SPLIT p_telefon AT '-' INTO TABLE itab.
READ TABLE itab INTO p_durchwahl INDEX: 1, sy-tfill.
WRITE:/ 'Tel.:',p_telefon,
AT 40 'Durchwahl:',p_durchwahl.
ENDFORM. " finde_durchwahl
Beitrag
von black_adept (Top Expert / 4090 / 127 /
940
)
»
Auf meinem Minisap nicht: Folgende Beispiele (1. Zeile meine Version, 2. Zeile Enno, 3. Zeile deine Version ) liefern alle dasselbe Ergebnis in den ersten beiden Zeilen. Hast du ein Beispiel wo es sich anders verhält?Anonymous hat geschrieben:Die Alternative verhält sich bei Telefonnummern ohne '-' anders als Ennos Variante.
Code: Alles auswählen.
REPORT.
DATA: durchwahl TYPE char40.
PERFORM finde_durchwahl USING '+49-0634-63-12345 '
CHANGING durchwahl.
PERFORM finde_durchwahl USING '-'
CHANGING durchwahl.
PERFORM finde_durchwahl USING '+48 06366 1245'
CHANGING durchwahl.
PERFORM finde_durchwahl USING '63-123457'
CHANGING durchwahl.
PERFORM finde_durchwahl USING '123457'
CHANGING durchwahl.
PERFORM finde_durchwahl USING '+48063661245'
CHANGING durchwahl.
*&---------------------------------------------------------------------*
*& Form finde_durchwahl
*&---------------------------------------------------------------------*
FORM finde_durchwahl USING p_telefon
CHANGING p_durchwahl.
DATA: length TYPE i.
FORMAT COLOR 1 INTENSIFIED OFF.
p_durchwahl = p_telefon.
length = strlen( p_durchwahl ).
WHILE length > 0 AND p_durchwahl(length) CA ' -'.
SPLIT p_durchwahl AT p_durchwahl+sy-fdpos(1)
INTO p_durchwahl p_durchwahl.
length = strlen( p_durchwahl ).
ENDWHILE.
WRITE:/ 'Tel.:',p_telefon,
AT 40 'Durchwahl:',p_durchwahl.
DATA tel(30) .
DATA len TYPE i.
FORMAT COLOR 2 INTENSIFIED OFF.
tel = p_telefon.
WRITE: AT /1 'Tel.:', tel.
SHIFT tel RIGHT DELETING TRAILING space.
len = strlen( tel ).
DO len TIMES.
SHIFT tel RIGHT CIRCULAR BY 1 PLACES.
IF tel(1) CA '- '.
tel = tel+1(sy-index).
EXIT.
ENDIF.
ENDDO.
WRITE: AT 40 'Durchwahl:', tel.
FORMAT COLOR 4 INTENSIFIED OFF.
DATA: itab TYPE table OF string.
SPLIT p_telefon AT '-' INTO TABLE itab.
READ TABLE itab INTO p_durchwahl INDEX: 1, sy-tfill.
WRITE:/ 'Tel.:',p_telefon,
AT 40 'Durchwahl:',p_durchwahl.
ULINE.
ENDFORM. " finde_durchwahl
M.E. ist das nicht korrekt. Siehe in der Vergleichsroutine die 3. Zeile.Anonymous hat geschrieben:
Wenn das so gewollt ist, geht es auch mit weniger Code (man könnte aber noch die FORM-Schnittstelle typisieren):Code: Alles auswählen.
FORM finde_durchwahl USING p_telefon CHANGING p_durchwahl. DATA: itab TYPE table OF string. SPLIT p_telefon AT '-' INTO TABLE itab. READ TABLE itab INTO p_durchwahl INDEX: 1, sy-tfill. WRITE:/ 'Tel.:',p_telefon, AT 40 'Durchwahl:',p_durchwahl. ENDFORM. " finde_durchwahl
Deine kürzere Variante funktioniert, solange als Trennzeichen vor der Durchwahl wirklich ein "-" steht. Falls hingegen mit " " getrennt wurde klappts leider nicht mehr.
Beitrag
von black_adept (Top Expert / 4090 / 127 /
940
)
»
Hi Andreas,
das geht auch nicht:
Beispiel:
0190-812 123 12
das geht auch nicht:
Beispiel:
0190-812 123 12
Seite 1 von 1
Vergleichbare Themen
10
Antw.
Antw.
5141
Views
Views
9
Antw.
Antw.
5142
Views
Views
4
Antw.
Antw.
2991
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.