SaveToFile mit Anhang aus dem Memofeld

[Alterauge]

Hallo, eine weitere Frage :-(

Der Inhalt von Memo1, wird als *.txt Format so abgespeichert. =: 2012-07-19_13-15-45.txt
Hier der Quelltext dazu:

Delphi-Quellcode:

Memo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss', now) + '.txt');

Soweit auch alles Richtig und in Ordnung!

Jetzt zur Frage:
Würde gerne eine kleine Information aus dem Memofeld,
mit an den Dateinamen hängen.

Hier ein Beispiel:
So würde der Inhalt im Memofeld aussehen:

testeingabe1*testeingabe2*testeingabe3**1245

Jetzt würde ich gerne immer die Zahl nach dem Sonderzeichen ** mit übernehmen!
Das der Dateiname so ausieht: 2012-07-19_13-15-45**1245.txt

[DeddyH]

Und wo ist nun die Frage? Pos() Copy() könnten das sein, was Du benutzen musst. Aber ohne Gewähr, da ja wie gesagt keine Frage gestellt wurde :stupid:

[edit] P.S.: http://www.delphipraxis.net/125006-w...n-richtig.html [/edit]

[mkinzler]

Ich galube ich war nicht deutlich genug:
Bitte gebe deinen Themen einen aussagekräftigen Betreff!

Detlef hat hierfür eine gute Anleitung geschrieben. (Siehe vorigen Beitrag)

[Alterauge]

So vielleicht besser?

[vagtler]

Zitat:

Zitat von Alterauge (Beitrag 1175215)

So vielleicht besser?

Nein. Weder ist Dein Text noch der Titel verständlich.

DeddyH hat Dir doch schon einen Link gegeben. Dein Verhalten hier im Forum lässt eigentlich nur den Schluss zu, dass Dir die Verhaltensregeln hier einfach sowas von egal sind, solange Du einfach nur möglichst schnell einen Quellcode für Deine Problemstellungen bekommst.

[Alterauge]

Hallo Zusammen,
natürlich möchte ich mich an die Verhaltensregeln halten!

Wenn man schnell nach einer Lösung sucht, und nur wenig Zeit hat
kann es vorkommen, dass hier und da Fehler gemacht werden.
Was aber keine böse Absicht ist.

Werde mir jetzt beim programmieren mehr Zeit nehmen,
und weniger Fragen stellen! :-)

[DeddyH]

Was gefällt Dir an meinem Vorschlag mit Pos() und Copy() nicht? Mal abgesehen davon, dass ich bezweifeln möchte, dass Du so einen Dateinamen hinbekommst.

[p80286]

@DeddyH
:thumb::thumb::thumb:

[Alterauge]

Hallo,

das mit dem Dateinamen bekomme ich hin:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
 Memo1.Lines.SaveToFile(FormatDateTime('yyyymmdd_hh-nn-ss', now) + '.txt');
 Memo1.Clear;
 FileListBox1.Update;
end;

Memo1 wird ausgelsen und als .txt Format gespeichert.(Dateiname lautet dann; Datum+Uhrzeit.txt)!

[vagtler]

DeddyH meinte den von Dir gewünschten Dateinamen...

[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!:roll:

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;

[Bummi]

irgendwie unerquicklich, was wird sein wenn Du Dich an etwas anspruchsvolles wagst....

Delphi-Quellcode:

FormatDateTime('yyyymmdd_hh-nn-ss' ,now)+s + '.txt'

[Luckie]

Wie lautet die Fehlermeldung oder was stimmt nicht? :roll:

[Alterauge]

Jetzt geht es!:)

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__',now)+(s) + '.txt');
  Memo1.Clear;
end;

[DeddyH]

Ich möchte wetten, dass das etwas mit "Parameter" ist :roll:

[himitsu]

Zitat:

Zitat von DeddyH (Beitrag 1175336)

Ich möchte wetten, dass das etwas mit "Parameter" ist :roll:

Und dafür gibt es was ... das nennt sich OH. :angle:
(wobei die Codevervollständigung und vorallem das Code-Insight da auch recht hilfreich sind)

Zitat:

ich versteh es nicht

- Fehlermeldung durchlesen (bei Fragen ist es nie verkehrt, diese Meldungen auch mit zu erwähnen ... man glaubt es kaum, aber Strg+C funktioniert in Dialogen und in den Logs)
- z.B. in die Hilfe schauen, was wirklich da hingehört
- ...

[Alterauge]

Hura,es geht!

Danke an Alle!

[mkinzler]

Oh Wunder, oh Wunder :mrgreen:

[p80286]

Zitat:

Zitat von Bummi (Beitrag 1175331)

irgendwie unerquicklich, was wird sein wenn Du Dich an etwas anspruchsvolles wagst....

Das wird schon, jeder ist mehr oder weniger lernfähig.

Gruß
K-H