@startuml Program.Main
header
generated on 3/9/2024 8:21:55 PM
end header
title Program.Main
start
#LightBlue:string input, splitText;
:PrintLine("***************************************************");
:PrintLine("* StringSplit - Ein einfacher Textsplit           *");
:PrintLine("***************************************************");
:PrintLine();
:Print("Eingabetext:  ");
:input = ReadLine();
repeat
    :Print("Splitzeichen: ");
    :splitText = ReadLine();
repeat while (splitText.Length != 1) is (<color:green>yes)
:PrintLine("*** Ausgabetext ***");
#LightBlue:int i = 0;
while (i < input.Length) is (<color:green>yes)
    if (input[i] == splitText[0]) then (<color:green>yes)
        :PrintLine();
      else (<color:red>no)
          :Print(input[i]);
    endif
:i++;
endwhile (<color:red>no)
:PrintLine();
:PrintLine("Press any key to exit: ");
:ReadKey();
footer
generated with the DiagramCreator by Prof.Gehrer
end footer
stop
@enduml
