String zwische zwei Zeichen lesen

[rocksoft]

Hallo Delphi freunde,

ich möchte aus ein Memofeld bestimmte wörter finden die zwischen zwei Zeichen sind.
z.B $Heute$, $Morgen$ etc. nur was zwischen $ und $ kann varieren und daher weiß ich nicht wie ich das machen soll.

eventuell kann mir jemand ein wenig helfen.

Danke
Robert

[StefanDP]

Probier es mal mit Copy Pos bzw. PosEx

wie ist der Text im Memo jetzt genau aufgebaut?
"$Heute$,$Morgen$" ??
2 verschiedene Zeichen würde den Vorgang erheblich erleichtern!
"$Heute#,$Morgen#"

ansonsten mal eine Idee:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s: String;
  ergebnis: String;
  n: Integer;
begin
  s := '$Heute$,$Morgen$,$Gähn$';
  n := 1;
  while true do
  begin
    ergebnis := Copy(s,PosEx('$',s,n)+1,PosEx('$',s,n + 1) - PosEx('$',s,n) - 1);
    if ergebnis = '' then exit;
    ShowMessage(ergebnis);
    n := PosEx('$',s,PosEx('$',s,n)+1) + 2;
  end;
end;

[rocksoft]

Guten Morgen StefanDP,

wow das ging ja schnell :)

Wie mein memo aufgebaut ist weiß ich selber nicht da die Daten individuel sein können,
ich habe eine Datenbak mit daten z.b
ID, Text
1, Heute wird es lustig
2, 25.06.2004
3, Windows Xp für 5,- €
etc

der Memo:

Hallo freunde $1$, weil ........ bitte beachten Sie das wir am $2$ geschloßen haben, aber bis dahin haben wir ein exta angebot für sie $3$.


so zu sagen das man einmail ein text scheibt und später nur die Daten in der DB ändern muss.

und genau das ist mein problem, da ich nach sachen suchen muss die ich nicht kenne :)

danke
mfg Robert

[Sivale]

Falls ich alles richtig verstanden habe,

hast Du einen Text mit beliebig vielen, verschiedenen Platzhaltern, von denen manche auch öfters vorkommen können und die durch Einträge aus einer Datenbank ersetzt werden sollen.

Hier ist eine kleine Funktion, die eine Ersetzung innerhalb eines Strings vornimmt.

Delphi-Quellcode:

Function FindAndReplace (var InSource : String; ToReplace, ToInsert : String) : Boolean;

var
AtPosition, SizeToReplace : Integer;

begin
Result := False;
AtPosition := Pos(ToReplace, inSource);
SizeToReplace := Length(ToReplace);
if AtPosition > 0 then // Erstes Zeichen = 1, es kann aber auch bei 0 eingefügt werden.
    begin
    Delete (InSource, AtPosition, SizeToReplace); // Den Platzhalter löschen
    Insert (ToInsert, InSource, AtPosition); // An seiner Stelle neuen Text einsetzen;
    Result := True;
    end;
end;

Der Aufruf könnte wie folgt erfolgen:

Delphi-Quellcode:

while FindAndReplace (Source,Replace,Insert) do // Schleife damit alle Vorkommnisse
                                               // des Platzhalters gefunden werden gefunden werden
    begin
    // do nothing
    end;
Memo1.Lines.Add (Source);

wobei die Variablen Source, Replace und Insert aus der Datenbank eingelesen werden würden.


Mit sonnigen Grüßen

S.

[rocksoft]

Hallo Sivale,

danke für die Hilfe, ich schaue es mir heute noch genauer noch an, mal sehen ob alles so funktioniert wie ich es mir denke :)

Danke

mfg Robert

[rocksoft]

Hallo Sivale,

ich teste gerade dein code und bin auf ein problem gestosen, der wert ToReplace ist nicht in der Datenbank und daher kann ich nichts ersetzen, meine idee ist die ID nr aus der Datenbank zu benutzen und die zwischen 2 $(dollar) zeichen zu setzen

im text muss ich dann dach den ersten $ und nach den letzten $ suchen, zb $irgenwas$, dann den inhalt zwischne $ und $ in der Datenbank suchen und das durch den ganzen sting $irgenwas$ ersetzen.

Aber ich glaube was wird dann kompliziert :)

was ist dann wenn man schreibt: Für 45$ $35$

id 35, bekommen Sie heute alles

danke

mfg Robert

[Sivale]

Hallo rocksoft,

hat leider etwas länger gedauert. Ich schieb's mal auf's Wetter.

Wie Du ja richtig andeutest, muss der Platzhalter eindeutig sein. Ein $ + irgendetwas + $ wäre an und für sich in Ordnung. Ein Konflikt mit dem Text lässt sich verhindern, weil Du ja ein Anfangs- und ein Endzeichen hast. Machbar ist es.

Es geht aber auch einfacher

Idee:

Du baust in den Text eindeutige Platzhalter von folgendem Format:

§$&001, §$&002, §$&003 ...

Die Abfrage lautet nun:

Delphi-Quellcode:

procedure InsertValues;
Var
i : Integer;
Replace : String;

begin
For i := 1 to YourTable.RecordCount do
    begin
    Replace := '§$&' + Format ('%.3d',[i]); // Format Funktion macht aus 1='001',aus 16 ='016' etc.
    while FindAndReplace (Source,Replace,Insert) do
          begin
          // do nothing
          end;
Memo1.Lines.Add (Source);
end;

Source und Insert kommen aus der Datenbank.

Natürlich wäre es am einfachsten, den Replace-String mit in die Datenbank hineinzunehmen. Hätte auch den Vorteil, dass Platzhalter und Wert "sich gegenüberstehen" und leichter editierbar sind.

Du könntest auch alles in Files speichern und einlesen.

Schreib einfach mal an was Du arbeitest, ich denke, das gesamte Problem läst sich auch einfacher lösen.

Gruß

S.

[rocksoft]

Hallo Sivale,

Zitat:

hat leider etwas länger gedauert. Ich schieb's mal auf's Wetter.

np, sage ich auch immer :) Ich bin schon froh wenn jemand hilft,

Zitat:

Wie Du ja richtig andeutest, muss der Platzhalter eindeutig sein. Ein $ + irgendetwas + $ wäre an und für sich in Ordnung. Ein Konflikt mit dem Text lässt sich verhindern, weil Du ja ein Anfangs- und ein Endzeichen hast. Machbar ist es.

da habe ich eine idee wie man es absichert könnte aber ob es dann 100% sicher ist, ist eine andere frage, man könnte ausschlißen das der zweite $ kein leer zeichen davor haben darf und es auf jeden fall ein interger wert sein muss, aber ich denke da wird es kompliziert ;)

Der Code unten schaut schon sehr gut aus und werde später noch ein wenig damit testen,

Zitat:

Schreib einfach mal an was Du arbeitest, ich denke, das gesamte Problem läst sich auch einfacher lösen.

Ich denke das ist eine multi lösung für viele Anwendungs fälle, ich werde es für Briefe und Artikel benutzen.

Nemmen wir an, ich habe 2000 Hardware Artikel, HDs, Cdroms, Cpus etc und jetzt bauen ich ein PC zusammen, also würde ich einfach schreben:

Power PC XXL
$100$
$120$
$33$
$254$

und sobald wie ich eine Rechnung schreibe, werden die variablen durch die artikel aus der DB ersetzt.

somit bleit der Artikel inhalt recht klein und leicht zu verwalten, ob die idee gut oder schlecht ist, ist die andere frage.

Besten Dank für die hilfe
mfg Robert