AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Text aus einem Richedit kopieren

Offene Frage von "KodeZwerg"
Ein Thema von NoGAD · begonnen am 9. Apr 2021 · letzter Beitrag vom 13. Apr 2021
 
Benutzerbild von KodeZwerg
KodeZwerg

Registriert seit: 1. Feb 2018
3.691 Beiträge
 
Delphi 11 Alexandria
 
#16

AW: Text aus einem Richedit kopieren

  Alt 13. Apr 2021, 13:41
@Delphi.Narium:
Sehr gut formuliert, damit konnte ich was anfangen.

Das kam bei mir raus. Erfüllt es die Anforderungen?
Delphi-Quellcode:
program Project13;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils, System.Classes;

{
input:
:[[a]]:[[xyz irgendwas mehr oder weniger langes]] :[[b]]:[[noch mehr
]]:[[und nochwas]]

output:
:[[a]]
:[[xyz irgendwas mehr oder weniger langes]]
:[[b]]
:[[noch mehr]]
:[[und nochwas]]
}



var
  input: TStringList;
  output: TArray<string>;
  cArr: array[0..0] of string;
  i: Integer;
  derText: string;
begin
  try
    {wandel input in einen langen string um}
    input := TStringList.Create;
    input.Add(':[[a]]:[[xyz irgendwas mehr oder weniger langes]] :[[b]]:[[noch mehr');
    input.Add(']]:[[und nochwas]]');
    for I := 0 to input.Count - 1 do
      derText := derText + Input[i];
    input.Free;

    {splitte string wieder}
    cArr[0] := ':[[';
    output := derText.Split(cArr);
    for i := 1 to High(output) do
      output[i] := ':[[' + output[i];

    {schreibe resultat}
    for i := Low(output) to High(output) do
      WriteLn(output[i]);
    ReadLn;
  except
    on E: Exception do
      Writeln(E.ClassName, ': ', E.Message);
  end;
end.
Gruß vom KodeZwerg
  Mit Zitat antworten Zitat
 


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 19:06 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz