Textimport und export

[bennySB]

Nee nee nee, sorry da hab ich mich etwas undeutlich ausgedrückt.

Das mit dem Editor habe ich nur erwähnt das ihr wisst um was es sich handelt, also das es keine HEX Werte oder sonstiges sind, sondern reiner Klartext der in der Datei vorhanden ist.

Ich möchte nun durch z.B. StringToFile erreichen das diese Pfadangaben automatisch in die *.conf Datei eingetragen werden, sodass kein Benutzer darin arbeiten muss (denn ich kenne meine Pappenheimer und weiß das viele es nicht schaffen werden, egal wie gut man es erklärt *gg*)

[baumina]

OK, dann rate ich zu einer TStringList, so in der Art:

Delphi-Quellcode:

procedure Fillconf;
var
  aList : TStringList;

begin
  aList := TStringList.Create;
  aList.Add('Textzeile');
  aList.Add('noch eine Zeile');
  aList.SaveToFile('c:\temp\test.conf');
  aList.Free;
end;

EDIT: Wenn vorher schon was drin steht kannst zuvor ein aList.LoadFromFile machen.

[bennySB]

Soweit ich weiß fügt diese Methode die Daten immer ans Ende der Datei mit ein oder?

Natürlich habe ich vergessen zu erwähnen das es bestimmte Positionen sind an denen die Pfadangaben eingetragen werden müssen.

Im genauen wären es:

Installationsverzeichnis der Anwendung: Zeile 299, Cursorposition 23 und Zeile 357, Cursorposition 10
Zusätzlich gewähltes Verzeichnis über function "InstallCae": Zeile 356, Cursorposition 10


Das wären die Stellen an denen es eingetragen werden muss.

[baumina]

Wie gesagt mit LoadFromFile bekommst die gesamte conf-Datei erstmal in die Stringliste rein. Die StringList beginnt immer mit 0. Also aList[0] wäre dann die erste Zeile. Mithilfe der copy-Funktion kannst du dann diesen String ändern, ungefähr so:

aList[298] := copy(aList[298],1,23)+'einzufügender Text'+copy(aList[298],24,length(aList[298])); (Hinweis: Code ungetestet)

[DeddyH]

Crossposts bitte in Zukunft untereinander verlinken.

[bennySB]

Ahh okay sorry das wusste ich noch nicht das dies so zusammen gehört, mein Fehler.

[bennySB]

Hmmm ich habe nun einmal folgenden Code eingebaut

Delphi-Quellcode:

    procedure AfterInstallConf();
    
    var

    aList : TStringList;

    begin
      aList.LoadFromFile('C:\Users\BWolonkieiwicz\AppData\Local\DOSBox\dosbox-SVN_MB6.conf');
      aList := TStringList.Create;
      aList[361] := copy(aList[361],1,1)+'Hallo'+copy(aList[361],24,length(aList[361]));
      aList.SaveToFile('C:\Users\BWolonkieiwicz\AppData\Local\DOSBox\dosbox-SVN_MB6.conf');
      aList.Free;
    end;

Jedoch finde ich nach dem durchführen der *.exe keinen Eintrag "Hallo" bzw. es ändert sich nichts.