AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Thema durchsuchen
Ansicht
Themen-Optionen

Veränderungen Textdateien

Ein Thema von Sunny123 · begonnen am 26. Jul 2004 · letzter Beitrag vom 26. Jul 2004
Antwort Antwort
Sunny123

Registriert seit: 20. Jul 2004
Ort: Dresden
22 Beiträge
 
#1

Veränderungen Textdateien

  Alt 26. Jul 2004, 09:02
Hallo ihrs!

Ich habe in einer Textdatei daten abgespeichert in etwa dieser Form:
x|y|z
j|p|g
ding|dong|dang

Nun möchte ich genau in die Zeile gehe, wo beispielsweise x zu beginn steht und dort am ende, also zu z, noch etwas hinzufügen...

Kann mir jemand ein paar kleine Hinweise oder Denktipps geben? Mein Hauptproblem ist derzeit das, dass ich nicht weiß, wie ich die Zeile in der etwas angefügt werden soll suchen lassen kann.

Viele liebe Grüße, Sunny
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#2

Re: Veränderungen Textdateien

  Alt 26. Jul 2004, 09:29
Hai Sunny,

eigentlich brauchst Du meine Procedure aus diesem Thread doch nur leicht zu ändern um das zu machen. Sollte mit 1-2 Zeilen Code zu machen sein
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Sunny123

Registriert seit: 20. Jul 2004
Ort: Dresden
22 Beiträge
 
#3

Re: Veränderungen Textdateien

  Alt 26. Jul 2004, 10:37
stimmt...

aber wie kann ich ihm sagen, dass er gerade in zeile so und so das und das ändern soll? vielleicht steht das schon indirekt drin und ich bin nur zu blöd das richtig zu finden... Ich hab irgendwie ein Zeilenauffindproblem....
  Mit Zitat antworten Zitat
Benutzerbild von Sharky
Sharky

Registriert seit: 29. Mai 2002
Ort: Frankfurt
8.252 Beiträge
 
Delphi 2006 Professional
 
#4

Re: Veränderungen Textdateien

  Alt 26. Jul 2004, 10:41
Zitat von Sunny123:
stimmt...

aber wie kann ich ihm sagen, dass er gerade in zeile so und so das und das ändern soll? vielleicht steht das schon indirekt drin und ich bin nur zu blöd das richtig zu finden... Ich hab irgendwie ein Zeilenauffindproblem....
Hai Sunny,

entscheidend sind diese Zeilen:
Delphi-Quellcode:
....
    for ndx := 0 to myStringList.Count -1 do
    begin
      line := myStringList.Strings[ndx];
      delpos := Pos(delimiter,line); // Position des Trennzeichens
      Delete (line,1,delpos); // Alles bis einschliesslich Trennzeichen löschen
      myStringList.Strings[ndx] := IntToStr (ndx) + delimiter + line; // Neue Zeilennummer
    end;
....
In der Zeile mit delpos wird die erste Position des Trennzeichens ermittelt.
Mit Delete wird alles bis zu diesem gelöscht. So, genau da musst Du ansetzen. Du löschst jetzt nicht vom Zeilenanfang bis zu dem Trennzeichen sondern vergleichst ob der Text von Position 1 bis Position Trennezeichen -1 deinem Suchtext enstpricht (Stichwort hier für ist Copy. Wenn dies zutrifft hängst Du an den Text in line deinen neuen Text an und schreibst ihn wieder in die Aktuelle Zeile der StringListe.

Versuche mal ob Du damit weiterkommst. Wenn nicht -> Fragen
Stephan B.
"Lasst den Gänsen ihre Füßchen"
  Mit Zitat antworten Zitat
Sunny123

Registriert seit: 20. Jul 2004
Ort: Dresden
22 Beiträge
 
#5

Re: Veränderungen Textdateien

  Alt 26. Jul 2004, 14:01
Also mal wieder ganz dolle großes DANKESCHÖN für die flotte Hilfe !

Habs aber bissl anders gemacht, da ich net nach einem Text suchen musste, sondern mir eigentlich die Zeilennummer gereicht hat. (dank der Nummerierung ) Hab den ndx rausgenommen und stattdessen gleich Edittext als Zeilennummer eintragen lassen und dann daran den Rest gehangen. Bis jetzt klappts gut *freu*!

Noch mal ganz vielen lieben Dank! Sunny
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 18:35 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz