Texte als .txt speichern und umbenennen

[blender]

Weiß jemand wie man Texte als .txt Dateien speichern und umbenennen kann?

[patti]

Warum willst du sie zuerst als "txt" speichern? Speichere sie einfach direkt unter dem gewünschten Namen ab!

[blender]

Gut, nehmen wir also beispielsweise gleich .bat .
Ich möchte, zum beispiel, meinem Freund die .exe Datei senden.
Er kann dann (z. b.) den Button Ruhezustand drücken.
Dann soll eine Datei auf dem Desktop namens Ruhezustand.bat erzeugt werden, mit folgendem Inhalt:

Code:

@echo off
powercfg /hibernate on
rundll32.exe powrprof.dll,SetSuspendState
echo Der Computer wird in den Ruhezustand versetzt...

Wie geht denn das?

[patti]

Erstelle dir eine TStringlist und fülle sie mit deinen Zeilen. Mit

Stringlist.SaveToFile('C:\ruhezustand.bat'); Kannst du sie dann als .bat-Datei speichern (ist ja nichts anderes als ne Text-Datei).

Probiers mal aus!

Edit: Als Nachtrag, damits verständlicher wird:

Delphi-Quellcode:

procedure baterstellen(pfad : string);
var bat : TStringlist;
begin
    bat  := TStringlist.Create;
    try
       bat.Add('... 1.Zeile'); // mit den Zeilen füllen
       bat.Add('... 2.Zeile');
       //...
       bat.SaveToFile(pfad);
    finally
       bat.free;
    end;
end;

(ungetestet, sollte aber funktionieren)

[blender]

Eine letzte Frage hätte ich dann doch noch:
Im Editor ist das "ü" ein anderes als bei dem cmd, in welchem die Datei ausgeführt wird.
Welches benutzt Delphi?
Danke für die schnelle Antwort!

Nachtrag:
Mit den Kommentaren würde ich aufpassen, einige Delphi Versionen akzeptieren die // Methode nicht.
Da geht nur {beispiel}.

[patti]

Ich verstehe deine Frage nicht ganz. Allerdings würde ich versuchen, auf Umlaute zu verzichten, wenn es geht. Für was brauchst du denn das "ü"?

[blender]

Weiß ich nicht.
Kann man aber eigentlich immer gut gebrauchen.
Trozdem: Danke

[patti]

Gern geschehen

[marabu]

Hallo Lasse,

willst du deine nationalen Sonderzeichen in den Kommentaren deines Batch Scripts im Konsolenfenster wiedererkennen, dann kannst du so vorgehen:

Delphi-Quellcode:

function AnsiToOEM(const s: string): string;
begin
  SetLength(Result, Length(s));
  CharToOem(PChar(@s[1]), PChar(@Result[1]));
end;

(* Am Beispiel von Patrick sieht das so aus: *)

bat.Add(AnsiToOEM('REM Härrlich süße Möhren'));

Grüße vom marabu

[blender]

Danke,
es hat geklappt.
Gibt es eine Möglichkeit, die Datei auch noch numzubenennen, ohne die Daei zu öffnen, unter neuem Namen speichern und löschen zu müssen?
Gibt es so etws wie ein label, welches über mehrere Zeilen geht?