Extrahieren der Zahlen aus einem String und Ablage in eine T
4 Beiträge
•
Seite 1 von 1
4 Beiträge
Seite 1 von 1
Hallo,
kennt einer einen FuBa, der mir aus einem String die Zahlen extrahiert und in eine Tabelle ablegt? z.B. aus der String " 2345/45678 CR434343.434" eine Tabelle in der Form liefert:
2345
45678
434343
434
Vielen Dank im Voraus
Jürgen
kennt einer einen FuBa, der mir aus einem String die Zahlen extrahiert und in eine Tabelle ablegt? z.B. aus der String " 2345/45678 CR434343.434" eine Tabelle in der Form liefert:
2345
45678
434343
434
Vielen Dank im Voraus
Jürgen
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Fuba dazu kenne ich nicht. Folgendes Coding würde die Anforderung jedoch erfüllen.
DATA: gl_string TYPE string,
gl_len TYPE i,
gl_pos TYPE i.
DATA: wa_itab TYPE string,
it_itab TYPE TABLE OF string.
gl_string = '2345/45678 CR434343.434'.
gl_len = strlen( gl_string ).
DO gl_len TIMES.
gl_pos = sy-index - 1.
IF gl_string+gl_pos(1) CO '0123456789'.
CONCATENATE wa_itab gl_string+gl_pos(1) INTO wa_itab.
ELSE.
IF NOT wa_itab IS INITIAL.
APPEND wa_itab TO it_itab.
CLEAR wa_itab.
ENDIF.
ENDIF.
ENDDO.
IF NOT wa_itab IS INITIAL.
APPEND wa_itab TO it_itab..
ENDIF.
LOOP AT it_itab INTO wa_itab.
WRITE: / wa_itab.
ENDLOOP.
DATA: gl_string TYPE string,
gl_len TYPE i,
gl_pos TYPE i.
DATA: wa_itab TYPE string,
it_itab TYPE TABLE OF string.
gl_string = '2345/45678 CR434343.434'.
gl_len = strlen( gl_string ).
DO gl_len TIMES.
gl_pos = sy-index - 1.
IF gl_string+gl_pos(1) CO '0123456789'.
CONCATENATE wa_itab gl_string+gl_pos(1) INTO wa_itab.
ELSE.
IF NOT wa_itab IS INITIAL.
APPEND wa_itab TO it_itab.
CLEAR wa_itab.
ENDIF.
ENDIF.
ENDDO.
IF NOT wa_itab IS INITIAL.
APPEND wa_itab TO it_itab..
ENDIF.
LOOP AT it_itab INTO wa_itab.
WRITE: / wa_itab.
ENDLOOP.
Hier eine Alternative:
report ztest.
data: inp_string(255) type c value '2345/45678 CR434343.434'.
data: tmp_string(255) type c.
data: itvalues like standard table of inp_string.
tmp_string = inp_string.
translate tmp_string using '0 1 2 3 4 5 6 7 8 9 '.
condense tmp_string no-gaps.
overlay inp_string with tmp_string only tmp_string.
condense inp_string.
split inp_string at space into table itvalues.
mfg dele
report ztest.
data: inp_string(255) type c value '2345/45678 CR434343.434'.
data: tmp_string(255) type c.
data: itvalues like standard table of inp_string.
tmp_string = inp_string.
translate tmp_string using '0 1 2 3 4 5 6 7 8 9 '.
condense tmp_string no-gaps.
overlay inp_string with tmp_string only tmp_string.
condense inp_string.
split inp_string at space into table itvalues.
mfg dele
Seite 1 von 1
Vergleichbare Themen
1
Antw.
Antw.
1457
Views
Views
2
Antw.
Antw.
2209
Views
Views
0
Antw.
Antw.
1324
Views
Views
8
Antw.
Antw.
4460
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.