Hallo,

ich möchte hoffen, dass der Titel so in Ordnung ist?

Also zum Thema!
Wie ihr im Quelltext lesen könnt, wird ein Teil aus dem Memofeld als
Dateiname zum speichern benutzt. Und zwar der Inhalt der nach ** kommt.
Dieses geht auch soweit ganz gut!

Jetzt zum Problem: Sind keine ** vorhanden, wird der ganze Inhalt vom Memofeld als
Dateiname benutzt. Das ist schlecht!
Würde gerne, wenn die ** fehlen einen Fixtext benutzen!

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer3Timer(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('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
      end;
   end;
end;

markieren

Delphi-Quellcode:

if Pos(d, s) < 1 then begin;
  //fixtext
  exit;
end;

Edit:
in der procedure am start einbauen:

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
 var
  s, d: String;
begin
  s := Memo1.Lines.Text;
  d := '**';
  if Pos(d, s) < 1 then begin;
    //fixtext, selbst weiter bearbeiten
    exit;
  end;
  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('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
      end;
   end;
end;

Alles klar ! geht soweit!

Danke!

Zitat von Alterauge:

Jetzt zum Problem: Sind keine ** vorhanden, wird der ganze Inhalt vom Memofeld als
Dateiname benutzt. Das ist schlecht!
Würde gerne, wenn die ** fehlen einen Fixtext benutzen!

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer3Timer(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('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
      end;
   end;
end;

Ich war, was Deine Lernfortschritte angeht, wohl etwas zu optimistisch.
Was soll diese Anhäufung von end; ?

Kommt demnächst noch eine Frage weil Du das Speichern eines Memos durch einen Timer steuerst?

Die Routine tut genau das was sie soll

markieren

Code:

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[COLOR="red"]**1245[/COLOR]

Jetzt würde ich gerne immer die Zahl nach dem Sonderzeichen ** mit übernehmen!

Vielleicht solltest Du Dir ein paar Gedanken darüber wenn nicht alles so ist wie Du es gerne hättest, z.B. wenn dort nur ein * vorhanden ist oder nach ** keine weiteren Daten vorhanden sind.
Und was verstehst du unter "Fixtext" und was willst Du mit Ihm erreichen?

Gruß
K-H

Edith:
Memo.Text Schleife ... Bahnhof, Kofferklauen

Zitat von Alterauge:

Hallo,

ich möchte hoffen, dass der Titel so in Ordnung ist?

Absolut ... wenn du Probleme hast um den Text in einem Memofeld eine Schleife zu binden

Wie man aus deinem Quelltext entnehmen kann, hast du keine Probleme den Text aus einem TMemo auszulesen.

Vielmehr geht es darum aus einem String eine Zeichenkette zu isolieren.

Jetzt kannst du dir die Frage nach dem Titel (hoffentlich) auch selber beantworten

Zitat von Alterauge:

... wird ein Teil aus dem Memofeld als
Dateiname zum speichern benutzt. Und zwar der Inhalt der nach ** kommt.

Sorry, aber ist das nicht schon eine ziemlich kranke Vorgehensweise nach dem Motto "Sie müssen nur den Nippel durch die Lasche ziehen"?

Hallo,
habe noch eine Frage zu:

markieren

Delphi-Quellcode:

 
d := '**';

Möchte gerne die letzten 10 Zeichen mit in den Dateinamen nehmen!
Und nich was nach ** kommt!

Hat einer eine Idee?


Hier der ganze Quelltext!

zusammenfalten · markieren

Delphi-Quellcode:

procedure TForm1.Timer3Timer(Sender: TObject);
 var
  s, d: String;
begin
    Memo3.Lines:=Memo1.Lines;
    Timer4.Enabled:=false;
   Progressbar1.Position := Progressbar1.Position -1;
 if Progressbar1.Position = 0 then
    begin
  s := Memo1.Lines.Text;
  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);
  if Pos(d, s) < 1 then begin
     Memo1.Lines.SaveToFile(FormatDateTime('yyyy-mm-dd_hh-nn-ss__',now)+('EOT')+ '.txt');
    Memo1.Clear;
    FileListBox1.Update;
    Button4.Enabled:=false;
    Timer3.Enabled:=false;
     Timer1.Enabled:=true;
     sndPlaySound( nil , 0);
    exit;
    end;
  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('yyyy-mm-dd_hh-nn-ss__',now)+(s) + '.txt');
     Filelistbox1.Update;
    Memo1.Clear;
    Button4.Enabled:=false;
    Timer3.Enabled:=false;
     Timer1.Enabled:=true;
     sndPlaySound( nil , 0);
   end;
 end;

zusammenfalten · markieren

Delphi-Quellcode:

var
i: integer;
letztenzeichen: string;

if length(memo1.text) < 11 then exit;
letztenzeichen := '';
for i := length(memo1.text)-11 to length(memo1.text do begin;
  letztenzeichen := letztenzeichen + memo1.text[i];
end;

//weiter....

Könntest das ganze natürlich auch mit copy() machen...

markieren

Delphi-Quellcode:

function LastChars(const s: string; CountChars: Cardinal): string;
begin
  if CountChars >= Length(s) then
    Result := s
  else
    Result := Copy(s, Length(s) - Pred(CountChars), MAXINT);
end;

Vielleicht sollte man, solange der TE nicht beriet ist senen Threadtitel zu ändern, nicht mehr antworten.