Daten aus Datei auslesen, verändern und dann speichern.

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Hallo!
Ich habe eine *.txt Datei wo Namen drin stehen.

Beispiel:
Max Mustermann
Angela Merkel
Helmut Kohl
usw.

Die Daten will ich öffnen und dann verändern in:

Max.Mustermann@email.de
Angela.Merkel@email.de
Helmut.Kohl@email.de
usw.

Und die sollen wiederum gespeichert werden.

Wie mache ich das?
Ich habe keinen Plan...

LG

jaenicke · Verfasst: Mi 17.09.08 14:56

TStringList, LoadFromFile, Schleife, i-te Zeile:

markieren

Delphi-Quelltext

1:
2:

Zeile[Pos(' ', Zeile)] := '.';
Zeile := Zeile + '@email.de';

Problem: Mehrere Vornamen, da musst du ggf. mehrfach den Punkt setzen bis kein Leerzeichen mehr da ist (Pos = 0).

// EDIT:
Ich habe gerade deinen anderen Beitrag gelesen ;-)

, wenn das hier zu stichwortartig ist, kann ich auch noch ausführlicher werden.

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Ja, bitte...
Ich komme irgendwie nicht dahinter wie man Dateien öffnet, einliest, ausliest usw...

Ich weiß ich muss die Datei öffnen, dann die Namen und Vornamen in einen String schieben und die dann zusammen tun + dem . zwischen dem Vor und Nachnamen und dann plus dem @blablabla.de

Aber wie???

LG
Jasmin

jaenicke · Verfasst: Di 23.09.08 05:03

Aaaalso:
Zuerst deklarierst du eine Variable vom Typ TStringList:

markieren

Delphi-Quelltext

1:
2:

var
  Dateiinhalt: TStringList;

Dann erzeugst du das Objekt und packst es in diese Variable um damit zu arbeiten:

markieren

Delphi-Quelltext

1:	Dateiinhalt := TStringList.Create;

Nun lädst du den Inhalt der Datei in die Stringliste (in diesem Fall aus der Datei test.txt im selben Verzeichnis wie das Programm).

markieren

Delphi-Quelltext

1:	Dateiinhalt.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'test.txt');

Jetzt gehst du in einer Schleife durch alle Zeilen

markieren

Delphi-Quelltext

1:	for i := 0 to Dateiinhalt.Count - 1 do

Jetzt kannst du auf die einzelnen Zeilen mit Dateiinhalt[i] zugreifen, diese Zeile speicherst du jetzt erstmal in einer Variablen Zeile, um damit zu arbeiten. Mit Pos ermittelst du die Position des ersten Leerzeichens in der Zeile. Dann schreibst du an diese Stelle einen Punkt.

markieren

Delphi-Quelltext

1:
2:

  Zeile := Dateiinhalt[i];
  Zeile[Pos(' ', Zeile)] := '.';

Jetzt hängst du noch jeweils @email.de an die Zeile an und legst die neue Zeile wieder in die Zeile der Stringliste

markieren

Delphi-Quelltext

1:	Dateiinhalt[i] := Zeile + '@email.de';

Nun speicherst du noch die neue Liste

markieren

Delphi-Quelltext

1:	Dateiinhalt.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test2.txt');

und gibst den Speicher, den du für die Stringliste benutzt hast, wieder frei

markieren

Delphi-Quelltext

1:	Dateiinhalt.Free;

Und jetzt nochmal zusammenhängend: ;-)

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:

var
  Dateiinhalt: TStringList;
  i: Integer;
  Zeile: string;
begin
  Dateiinhalt := TStringList.Create;
  Dateiinhalt.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'test.txt');
  for i := 0 to Dateiinhalt.Count - 1 do
  begin
    Zeile := Dateiinhalt[i];
    Zeile[Pos(' ', Zeile)] := '.';
    Dateiinhalt[i] := Zeile + '@email.de';
  end;
  Dateiinhalt.SaveToFile(ExtractFilePath(ParamStr(0)) + 'test2.txt');
  Dateiinhalt.Free;

Wenn das ganze auch mehrere Leerzeichen ersetzen soll, dann musst du solange das jeweils nächste ersetzen bis keins mehr da ist, also statt

markieren

Delphi-Quelltext

1:	Zeile[Pos(' ', Zeile)] := '.';

eine Schleife:

markieren

Delphi-Quelltext

1:
2:

    while Pos(' ', Zeile) > 0 do
      Zeile[Pos(' ', Zeile)] := '.';

Einloggen, um Attachments anzusehen!

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Wärst du so nett und würdest mir das ganze noch mit Word und Excel erklären?

Bei Word wird es ja so ähnlich sein wie bei *.txt.
Aber wie gehts in Excel?
Also Namen Spalte 1, Vornamen Spalte 2 und das Ergebnis soll in Spalte 3.

Wäre super lieb.
DANKE.

LG
Jasmin

Narses · Verfasst: Di 23.09.08 11:24 Titel: Re: Huhu

Moin!

Dhakiyah hat folgendes geschrieben:

Bei Word wird es ja so ähnlich sein wie bei *.txt.
Aber wie gehts in Excel?
Also Namen Spalte 1, Vornamen Spalte 2 und das Ergebnis soll in Spalte 3.

Wie wäre es mit fertigem Quelltext? :nixweiss:

Spaß beiseite...

Das Word-Dateiformat ist nicht öffentlich, dito bei Excel. Hier bleibt eigentlich nur der Weg über OLE-Zugriffe, aber das ist ein ganz anderes Thema und deshalb wird das nicht hier besprochen.

Wenn du dazu konkrete Fragen hast, dann erstelle dazu bitte einen neuen Thread.

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Logikmensch · Beiträge: 390 Win XP Delphi 2007 Prof., XE2, XE5

Ich würd' auf jeden Fall statt

markieren

Delphi-Quelltext

1:	Zeile[Pos(' ', Zeile)] := '.';

folgendes schreiben, weil bei einem fehlenden Leerzeichentrenner ein Laufzeitfehler ausgelöst wird (Pos => 0):

markieren

Delphi-Quelltext

1:
2:
3:

Zeile := Trim (Zeile); //Löscht evtl. Leerzeichen am Anfang und am Ende des Namens
p := Pos(' ',Zeile);
if p > 0 then Zeile[p]:='.';

Und will man auch Johann Sebastian Bach berücksichtigen ;-)

dann empfiehlt sich auch eine Schleife:

markieren

Delphi-Quelltext

1:
2:
3:

Zeile := Trim (Zeile);
for p := 1 to Length(Zeile) do
  if Zeile[p] = ' ' then Zeile[p] := '.';

_________________
Es gibt keine Probleme - nur Lösungen!

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Hallo!
Ich habe das jetzt mal so gemacht und dann kommt ein Fehler:

Zugriffsverletzung bei Adresse 004030B4 in Modul 'Projekt.exe'. lesevn von Adresse 00AA1000.

Wenn ich das ignoriere dann kommt zu wenig Arbeitsspeicher... :shock:

Ersetze ich diese eine Zeile durch das, was Logikmensch geschrieben hat, dann geht es, dann ersetzt er aber '' nicht mehr durch '.'...

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject);
var Datei: TStringList;
    i, p: Integer;
    Zeile: string;
begin
  Datei := TStringList.Create;
  Datei.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'name.txt');
  for i := 0 to Datei.Count - 1 do
    begin
      Zeile := Datei[i];
      Zeile := Trim (Zeile);
      for p := 1 to Length(Zeile) do
      if Zeile[p] = ' ' then Zeile[p] := '.';
      Datei[i] := Zeile + '@email.de';
    end;
  Datei.SaveToFile(ExtractFilePath(ParamStr(0)) + 'name2.txt');
  Datei.Free;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  Memo1.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'name.txt');
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
  Memo2.Lines.LoadFromFile(ExtractFilePath(ParamStr(0)) + 'name2.txt')
end;

end.

Gruß

tif · Verfasst: Mi 24.09.08 12:49

Ist Zeile vielleicht leer ?

markieren

Delphi-Quelltext

1:
2:
3:
4:

Zeile := Trim (Zeile);
if length(zeile) > 0 then
  for p := 1 to Length(Zeile) do
     if Zeile[p] = ' ' then Zeile[p] := '.';

oder

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:

p:=pos(' ',Zeile);
while p > 0 do begin
  zeile[p]:='.';
  p:=pos(' ',Zeile);
end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Hm... Geht beides nicht...

Gruß

_________________
Es ist soooo flauschig !!!

Ehemaliges Mitglied Erhaltene Danke: 1

Narses hat folgendes geschrieben:

Das Word-Dateiformat ist nicht öffentlich, dito bei Excel.

M$ hat die beiden formate veröffentlicht, was IMHO nicht öffentlich ist, ist die OOXML von M$, welche von M$ verwendet wird. die ISO Version, von OOXML verwendet ja niemand, welche öffentlich ist ;-)

Narses · Verfasst: Mi 24.09.08 13:27 Titel: Re: Huhu

Moin!

Grenzgaenger hat folgendes geschrieben:

M$ hat die beiden formate veröffentlicht,

Danke für den Hinweis, aber bzgl. dieses Themas ist in diesem Thread jetzt bitte Ende!

cu
Narses

_________________
There are 10 types of people - those who understand binary and those who don´t.

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Es geht immer noch nicht.
Der ersetzt ' ' nicht durch '.' .
Er lässt einfach die Leerzeichen wie sie sind.

LG
Jasmin

_________________
Es ist soooo flauschig !!!

Ehemaliges Mitglied Erhaltene Danke: 1

Und so?

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:

procedure TForm1.Button1Click(Sender: TObject);
var Datei: TStringList;
    i: Integer;
    Zeile: string;
begin
  Datei := TStringList.Create;
  try
    Datei.LoadFromFile(ExtractFilePath(ParamStr(0))+ 'name.txt');
    for i := 0 to Datei.Count - 1 do
      begin
        Zeile := StringReplace(trim(Datei[i]),' ','.',[rfReplaceAll]);
        Datei[i] := Zeile + '@email.de';
      end;
    Datei.SaveToFile(ExtractFilePath(ParamStr(0)) + 'name2.txt');
  finally
    Datei.Free;
  end;
end;

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Hallo!
Mir ist grad was aufgefallen *hust*

Also in der ersten Textdatei sind mehrere Lehrstellen, vielleicht liegt es daran.
Sorry, daran habe ich nicht gedacht...

Also zum Beispiel:
Helmut Kohl
Angela Merkel
Kurt Beck

usw.

Gruß
Jasmin

_________________
Es ist soooo flauschig !!!

Ehemaliges Mitglied Erhaltene Danke: 1

Das sollte aber egal sein, es sollen ja alle Leerzeichen ersetzt werden. Bist Du Dir auch sicher, dass das wirklich Leerzeichen(#32) sind?

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Ach jetzt habe ich mich verdrückt... Egal...
Also was bedeutet #32?
Also er macht es nicht. Die Leerstellen bleiben so wie sie sind.

Gruß

Moderiert von Narses: Selbstzitat entfernt

_________________
Es ist soooo flauschig !!!

Ehemaliges Mitglied Erhaltene Danke: 1

Ein Leerzeichen hat den ASCII-Code 32, das wird #32 geschrieben. Möglicherweise sind das aber auch Tabulatoren in Deiner Textdatei, die haben dann den ASCII-Code 9 und werden von den o.a. Codes nicht gefunden.

Dhakiyah · Beiträge: 327 Erhaltene Danke: 5 Windows 7 Delphi XE2

Ähm... Wie finde ich das raus? Das ist natürlich möglich...

Mal eine Frage bezüglich dem Thema hier:
Was ist der Unterschied zwischen TString und TStringList?

Und wie muss ich mir das vorstellen wie das dort drinne steht? Genau wie in der Textdatei? Könnte ich zum Beispiel Person Nr. 5 ansprechen?

Grüße

_________________
Es ist soooo flauschig !!!

Ehemaliges Mitglied Erhaltene Danke: 1

Dhakiyah hat folgendes geschrieben:

Wie finde ich das raus?

Öffne mal die Datei im Editor, setz den Cursor vor das erste "Leerzeichen" und lösch es mal. Wenn der ganze Rest der Zeile daraufhin "springt", wird es wohl ein Tabulator gewesen sein.

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme