SaveToFile mit Anhang aus dem Memofeld

[Alterauge]

Ach so,

Richtig ! Das bekomme ich nicht hin!

Ich weiss nicht was er meint mit: Pos() und Copy()?

Versuche einfach noch eine kleine Info aus dem Memofeld, mit an den Dateinamen zu hängen.

Inhalt Memofeld:

TEXT TEXT TEXT TEXT TEXT **ID 999


Es geht um die Zeichen **ID 999.

[DeddyH]

Jahaaa, Du kannst in einem Dateinamen kein * haben, da das ein unzulässiges Zeichen ist. Versuch das einfach mal im Windows-Explorer, dann wirst Du es merken.

[Alterauge]

Ok! Hast Recht!

Dann was nach ** kommt! Also ID999 (Beispiel)

[DeddyH]

Nochmal: mit Pos() die Position des "**" ermitteln und ab da (+2) alles bis zum Stringende mit Copy() in einen weiteren String kopieren. Den hängst Du dann an den Dateinamen an. Das ist doch kein Hexenwerk.

[Alterauge]

Danke für Deine Hilfe

Werde es gleich mal versuchen zu programmieren!

[Popov]

Ich versteh zwar immer noch nicht ganz was zu versuchst, aber guck dir das mal an

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, d: String;
begin
  s := '2012-07-19_13-15-45**1245.txt';  //Dateiname
  d := '**'; //Trennzeichenkette (auch wenn * kein gültiges Dateizeichen ist)
  s := ChangeFileExt(s, '');
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  ShowMessage(s);
end;

[DeddyH]

Vielleicht liest Du nochmal von vorn, das war nämlich nix.

[Alterauge]

Hier mein Anfänger Projekt!
Zum Verständnis!

Das Programm mal ausführen, und Button Testalarm drücken!
Siehst Du die Nr. 4711 ?

Diese Nummer möchte ich mit in den Dateinamen nehmen!
Diese Nummer ändert sich, da es eine Einsatznummer ist.
Die beiden Sterne bleiden immer gleich!

Dann einfach Button manuell speichern drücken!
Schau mal in die FileListBox!

[Popov]

Ähnlich, Code oben leicht verändert

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var
  s, d: String;
begin
  s := Memo1.Lines.Text;  //Beinhaltet z. B.: TEXT TEXT TEXT TEXT TEXT **ID 999
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); //evtl. Zeilenumbruch ...
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); //entfernen
  s := Trim(s);
  ShowMessage(s);  //Ergebnis ist: ID 999
end;

[Alterauge]

So habe es gleich fertig!

Nur noch ein kleiner Fehler!

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
 var
  s, d: String;
begin
  s := Memo1.Lines.Text; 
  d := '**';
  Delete(s, 1, Pos(d, s) - 1 + Length(d));
  while Pos(#10, s) > 0 do Delete(s, Pos(#10, s), 1); 
  while Pos(#13, s) > 0 do Delete(s, Pos(#13, s), 1); 
  s := Trim(s);
   Memo1.Lines.SaveToFile(FormatDateTime('yyyymmdd_hh-nn-ss',s ,now) + '.txt'); // hier habe ich das s eingefügt! Was ist hier falsch? Verstehe ich nicht ? 
 Memo1.Clear;