Buchstaben ersetzen

[Ricoo]

Hallo!

Ich komme mal wieder nicht weiter. Ich möcht einen Text in Memo1 einlesen, alle A's durch B's ersetzen und dann in Memo2 ausgeben.
Nur funktioniert das Ganze nichso.

Kann mir Jemand helfen?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j:Integer;
    Datei:TextFile;
    Zeile: String;
    zeichen: char;

begin
  AssignFile(Datei, 'Liesmich.TXT');
  Reset(Datei);

  While not EOF(Datei) do Begin
    Readln(datei,Zeile);
    Memo1.Lines.Add(Zeile);
  end;
  closeFile(datei);

  for i:=0 to Memo1.Lines.Count do
    begin
      zeile:=Memo1.Lines[i];

      for j:= 0 to 10 do
        begin
         zeichen := zeile[j];

         if zeichen = 'b' then
          begin
            zeile[j] := 'a';

          end;

        end;

      Memo2.Lines.Add(Zeile);
    end;
end;

Das mit dem 0 to 10 in der zweiten For-Schleife is nur zu Test zwecken, wenns bei den ersten 10 klappt, muss es auch bei den nächsten 10 funktionieren.. xD

Danke schonmal! :hi:

[mkinzler]

Versuch es mal mir ReplaceString()

[SirThornberry]

das einfachste:

Delphi-Quellcode:

Memo1.LoadFromFile('Liesmich.TXT');
Memo2.Lines.Text := StringReplace(Memo1.Lines.Text, 'a', 'b', [rfReplaceAll]);

[Ricoo]

Danke Leute! So klappt das Einwand frei.. xD

[Hawkeye219]

Hallo Ricoo,

Zitat:

Zitat von Ricoo

So klappt das Einwand frei..

...solange die Datei im aktuellen Arbeitsverzeichnis liegt - wo auch immer das zum Zeitpunkt des Aufrufs sein mag: klick

Gruß Hawkeye

[Ricoo]

Zitat:

Zitat von Hawkeye219

Hallo Ricoo,

Zitat:

Zitat von Ricoo

So klappt das Einwand frei..

...solange die Datei im aktuellen Arbeitsverzeichnis liegt - wo auch immer das zum Zeitpunkt des Aufrufs sein mag: klick

Gruß Hawkeye

Ja, hab das sowieso mit sonem OpenDialog gemacht aber danke. =)

[Ricoo]

In Delphi 2005 Personal hat das mit StringReplace super funktioniert.
Mein Problem ist jetzt aber, dass das ne Hausaugabe war und mein Lehrer nur Delphi 3 hat und sich
strikt weigert irgentwas Anderes zu benutzen. Jetzt wollt ich das halt alles nochmal in Delphi 3
schreiben aber da scheint es die StringReplace Funktion noch nicht zu geben. -.-

Hat jemand vielleicht noch einen anderen Vorschlag?

[Matze]

Hi,

ist das hier was für dich StringReplace?

[scrat1979]

Zitat:

Zitat von Ricoo

In Delphi 2005 Personal hat das mit StringReplace super funktioniert.
Mein Problem ist jetzt aber, dass das ne Hausaugabe war und mein Lehrer nur Delphi 3 hat und sich
strikt weigert irgentwas Anderes zu benutzen. Jetzt wollt ich das halt alles nochmal in Delphi 3
schreiben aber da scheint es die StringReplace Funktion noch nicht zu geben. -.-

Hat jemand vielleicht noch einen anderen Vorschlag?

Schade. Dann musst Du Deinen ursprünglichen Source-Code ein wenig anpassen:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j     :Integer;
    Zeile    : String;
begin
{
  AssignFile(Datei, 'Liesmich.TXT');
  Reset(Datei);

  While not EOF(Datei) do Begin
    Readln(datei,Zeile);
    Memo1.Lines.Add(Zeile);
  end;
  closeFile(datei);
}
  Memo1.Lines.LoadFromFile('Liesmich.TXT'); // Etwas einfacher :-)

  for i:=0 to (Memo1.Lines.Count-1) do // -1 nicht vergessen!
    begin
      zeile := Memo1.Lines[i];

      for j:= 1 to length(zeile) do // ist etwas allgemeiner gehalten, und: Bei "1" anfangen!
        begin
         if zeile[j] = 'b' then
            zeile[j] := 'a';
        end;

      Memo2.Lines.Add(Zeile);
    end;
end;

Mit Memo1.Lines.Text sparst Du noch ein paar Zeilen, wollte Deinen Source aber so wenig wie möglich verändern. Code ist ungetestet - viel Spaß damit!
BTW, bei Deiner Version werden Großbuchstaben "B" nicht berücksichtigt. Sollten mehrere Zeichen umgewandelt werden, dann würde ich Dir die CASE-Anweisung empfehlen. Spart bei vielen Zeichen eine Menge Code und Fehlermöglichkeiten :-)

SCRaT

[grenzgaenger]

normal läuft das doch so, oder...?

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
var i, j:Integer;
    Datei:TextFile;
    Zeile: String;
    zeichen: char;

begin
  AssignFile(Datei, 'Liesmich.TXT');
  Reset(Datei);
  While not EOF(Datei) do Begin
    Readln(datei,Zeile);
    for i := 0 to length(zeile) do
    begin
     if zeile[i] = 'a' then zeile[i] := 'b';
  //  ... und hier noch 'n paar abfragen oder cases....
    end; 
    Memo1.Lines.Add(Zeile);
  end;
  closeFile(datei);
end;

das ging sogar (beinahe) unter tp, 3.0... :-), nur dass du da kein tMemo hast.. :zwinker:

[inherited]

Nein, dass klappt so nicht, weil du versuchst auf Element 0 von dem String zuzugreifen. Die fangen aber bei 1 an ;)

[Ricoo]

Danke an euch. Hab gerade kein Delphi zur Hand aber wenn ich das Dreier drauf hab, probier ichs mal. :-D

[Ricoo]

Leider Funktioniert das Ganze immer noch nicht so ganz.

Ich hab eure Ratschläge befolgt und das funktioniert soweit auch. Nur hab ich das jetzt erweitert indem ich

Delphi-Quellcode:

         if zeile[j] = 'b' then 
            zeile[j] := 'a';

zu

Delphi-Quellcode:

         if zeile[j] = 'ü' then
          begin
            zeile[j] := 'u';
          end;

umgeschrieben habe. Die erste Version funktioniert, bei der Zweiten bekom ich aber eine Exception.

"Im Projekt umlProject1.exe ist eine Exception der Klasse EAccessViolation mit der Meldung "Zugriffsverletzung bei der Adresse 0045A35B in Modul umlProject1.exe". Lesen von Adresse FFFFFF' aufgetreten." sagt er dann immer

Der Text, den ich in mein Programm geladen hab, hat einige Absätze. Kann das damit was zutun haben?
Denn bis zur Exception wird alles korrekt eingelesen, bearbeitet und auch ausgegeben. Die Exception tritt dann auf, wenn der erste Absatz, bzw. die erste Leerzeile kommt...

[marabu]

Hallo,

diese Stelle verursacht nicht einen solchen Fehler. Prüfe mal deine ganze Verarbeitung. Der Zeilenindex muss von 0 bis Lines.Count-1 laufen, der Buchstabenindex von 1 bis Length(Lines[i]). Auf die Absatztrenner (sLineBreak bzw. #13#10) kannst du bei Verwendung von Lines[] gar nicht zugreifen. Die werden beim Einlesen herausgefiltert und interpretiert und beim Zugriff auf die Eigenschaft Text wieder eingebaut.

Grüße vom marabu

[Ricoo]

Danke. Habs gerade hinbekommen.

Hab das so gemacht und siehe da, es funktioniert. =D

Delphi-Quellcode:

  if OpenDialog1.Execute Then
    begin
      AssignFile(Datei, OpenDialog1.FileName);
      Reset(Datei);

      While not EOF(Datei) do Begin
        Readln(datei,Zeile);
        Memo1.Lines.Add(Zeile);
      end;
      closeFile(datei);
  end;

  for i:= 0 to (Memo1.Lines.Count - 1) do
    begin
      zeile := Memo1.Lines[i];

      if zeile <> '' then
        begin
          for j:= 0 to length(zeile) do
            begin

              case zeile[j] of
                'ä': Zeile := UmlWandeln(zeile ,j);
                'ö': Zeile := UmlWandeln(zeile ,j);
                'ü': Zeile := UmlWandeln(zeile ,j);
              end;

            end;

          Memo2.Lines.Add(Zeile);
        end;

    end;

Und die Funktion...

Delphi-Quellcode:

Function UmlWandeln(umlZeile: String; Stelle: Integer):String;
begin

  if Form1.CheckBox1.Checked then
    begin
      if umlZeile[Stelle]= 'ä' then
        begin
          umlZeile[Stelle] := 'a';
          insert('e', umlZeile, Stelle + 1);
        end;
    end;

  if Form1.CheckBox2.Checked then
    begin
      if umlZeile[Stelle]= 'ö' then
        begin
          umlZeile[Stelle] := 'o';
          insert('e', umlZeile, Stelle + 1);
        end;
    end;

  if Form1.CheckBox3.Checked then
    begin
      if umlZeile[Stelle]= 'ü' then
        begin
          umlZeile[Stelle] := 'u';
          insert('e', umlZeile, Stelle + 1);
        end;
    end;


Result:= umlZeile;
end;

Danke an Alle!