Split – dělení řetězců

Na opak od spojování řetězců pomocí CONCATENATE, můžeme řetězce rozdělovat pomocí příkazu SPLIT. Důležité je, abychom měli jednotlivé části řetězce k rozdělení odděleny jenoznačným oddělovačem. Například čárkou.
Nadefinujeme si tabulku, do které uložíme rozdělené části. Tabulka bude obsahovat pouze jedno pole TEXT o délce 20 znaků.

REPORT ZSPLIT.

data: begin of itab occurs 0,

text(20)

end of itab.

*dále definujeme proměnou WORD s délkou 200 znaků a přiřadíme ji hodnotu.

data: word(200).

word = 'jan,karel,tomas,pavel,jirka,petr,gustav,john,david,filip'

*nyní spustíme rozdělovací příkaz SPLIT. Ten se provede tolikrát, kolikrát je třeba bez další
definice.

SPLIT word at ',' into table itab.

*nakonec si vypíšeme obsah tabulky

loop at itab.

write: / itab-text.

endloop.

Všimněte si hvězdiček před komentáři. Klidně můžete celý text programu nakopírovat do ABAP editoru včetně komentářů. Je potřeba jen dodržet, aby hvězdička byla na začátku řádku. Pak se celý řádek v editoru zbarví do šeda a změní font na italic. Takto se do programů zapisují komentáře.

Komentáře u programů oceníte v budoucnu, až budete sami po sobě program upravovat, případně někdo jiný.

One comment

  1. sswded napsal:

    a výsledek ?

Napsat komentář

Vaše emailová adresa nebude zveřejněna. Vyžadované informace jsou označeny *

*

Spalujte tuky se synefrinem pro štíhlou postavu