Textimport und export

[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.

[baumina]

Ein LoadFromFile kann erst funktionieren, wenn die TStringListe zuvor erzeugt(Create) wurde.

[DeddyH]

Du kannst die Liste ja nicht laden, wenn Du sie im Anschluss erst erzeugst. Außerdem solltest Du vor einem indizierten Zugriff auf eine Zeile sicherstellen, dass auch entsprechend viele Zeilen vorhanden sind.

[CarlAshnikov]

Mir ist hier noch was aufgefallen:

Delphi-Quellcode:

    
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); //Code für deinstallation

      begin
        if CurUninstallStep=usPostUninstall then

            FileCopy('{code:InstallCae}\Backup\PRTDEF.GER','{code:InstallCae}\PRTDEF.GER',false);
            DelTree('{code:InstallCae}\Backup\*', true, true, true);

      end;

Fehlt hier irgendwie ein begin end hinter dem if oder ist die Einrückung nur Mist?

[user0815]

Wär das mit einer INI nicht leichter ?
Evtl. einfach in die erste Zeile der *.conf irgendwas mit [eckigen Klammern] einfügen und dann die Einträge setzen a la:

http://www.jrsoftware.org/ishelp/ind...pic=inisection

[bennySB]

Zitat von DeddyH:

Du kannst die Liste ja nicht laden, wenn Du sie im Anschluss erst erzeugst. Außerdem solltest Du vor einem indizierten Zugriff auf eine Zeile sicherstellen, dass auch entsprechend viele Zeilen vorhanden sind.

Die Datei existiert bei mir auf dem Rechner zum testen bereits, von der Vorgehensweise am Ende ist es ja so das die Datei mit der Setup Routine kopiert wird und dann die Einträge gemacht werden sollen.

Zitat von CarlAshnikov:

Mir ist hier noch was aufgefallen:

Delphi-Quellcode:

    
procedure CurUninstallStepChanged(CurUninstallStep: TUninstallStep); //Code für deinstallation

      begin
        if CurUninstallStep=usPostUninstall then

            FileCopy('{code:InstallCae}\Backup\PRTDEF.GER','{code:InstallCae}\PRTDEF.GER',false);
            DelTree('{code:InstallCae}\Backup\*', true, true, true);

      end;

Fehlt hier irgendwie ein begin end hinter dem if oder ist die Einrückung nur Mist?

Da ist die Einrückung vielleicht nur Mist^^ Aber die procedure Funktioniert so einwandfrei^^