Rechnung mit Sonderzeichen in Rechnung ohne Sonderzeichen konvertieren

[Phillip0405]

Hallo zusammen,
ich wollte ein Programm programmieren, dass eine Rechnung mit Sonderzeichen in eine Rechnung ohne Sonderzeichen konvertiert.

Delphi-Quellcode:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Inifiles;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function Löschen(text:string;alt:string): string;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
sl:tstringlist;
MyInifile: TInifile;
sFile,a,test:string;
i:integer;
begin
MyIniFile:= TInifile.Create('C:\Users\Praktikant\Desktop\Phillip Beermann, Praktikant\`Rechnung´\MyConfig.ini');
sFile:= MyIniFile.ReadString('Verzeichnis','Quelle','Irgendetwas ist falsch!');
sl:=tstringlist.Create;
sl.LoadFromFile(sfile);
    for i:= 0  to  sl.Count -1 do begin
      sfile:=Löschen(sFile,'\A+');
      sfile:=Löschen(sFile,'\A-');
      sfile:=Löschen(sFile,'\S+');
      sfile:=Löschen(sFile,'\S-');
      sfile:=Löschen(sFile,'\U+');
      sfile:=Löschen(sFile,'\U-');
    end;
a:=MyIniFile.ReadString('Verzeichnis','Ziel','');
sl.SaveToFile(a);
MyIniFile.Free;
sl.Free;
end;

 function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
 begin
  b:=Pos(alt,text);
  a:=length(alt);
  while b>0 do begin
   text:=copy(text,b,a);
   Delete(text,b,a);
   b:=Pos(alt,text);
  end;
  result := Text;

end;
end.

Nur bleibt die Rechnung so wie sie war. Was ist falsch?
Danke im Voraus!:thumb:

[vagtler]

Na, weil Du den Dateinamen und nicht den gelesenen Inhalt bearbeitest...

[Phillip0405]

Zitat:

Zitat von vagtler (Beitrag 1329088)

Na, weil Du den Dateinamen und nicht den gelesenen Inhalt bearbeitest...

Wie kann ich es ändern?

[nahpets]

sFile ist doch der Dateiname, wenn Du den änderst, ändert sich nicht der Inhalt der Datei.

Delphi-Quellcode:

  for i:= 0 to sl.Count -1 do begin
      sl[i]:=Löschen(sl[i],'\A+');
      sl[i]:=Löschen(sl[i],'\A-');
      sl[i]:=Löschen(sl[i],'\S+');
      sl[i]:=Löschen(sl[i],'\S-');
      sl[i]:=Löschen(sl[i],'\U+');
      sl[i]:=Löschen(sl[i],'\U-');
    end;

könnte das Problem lösen helfen ;-)

[Phillip0405]

Zitat:

Zitat von nahpets (Beitrag 1329090)

sFile ist doch der Dateiname, wenn Du den änderst, ändert sich nicht der Inhalt der Datei.

Delphi-Quellcode:

  for i:= 0 to sl.Count -1 do begin
      sl[i]:=Löschen(sl[i],'\A+');
      sl[i]:=Löschen(sl[i],'\A-');
      sl[i]:=Löschen(sl[i],'\S+');
      sl[i]:=Löschen(sl[i],'\S-');
      sl[i]:=Löschen(sl[i],'\U+');
      sl[i]:=Löschen(sl[i],'\U-');
    end;

könnte das Problem lösen helfen ;-)

Wie kann ich es ändern, dass der Text, der sich hinter der Datei des Pfades verbirgt, sich ändert?
Aber schon mal danke ;-)

[p80286]

Delphi-Quellcode:

   sl.Text:=Löschen(sl.Text,'\A+');
   sl.Text:=Löschen(sl.Text,'\A-');
   sl.Text:=Löschen(sl.Text,'\S+');
   sl.Text:=Löschen(sl.Text,'\S-');
   sl.Text:=Löschen(sl.Text,'\U+');
   sl.text:=Löschen(sl.Text,'\U-');
  ;

wäre eine weitere Möglichkeit.

Gruß
K-H

P.S.

Zitat:

Zitat von Phillip0405 (Beitrag 1329092)

Wie kann ich es ändern, dass der Text, der sich hinter der Datei des Pfades verbirgt, sich ändert?

Könntest Du bitte noch einmal erklären um was es Dir geht?

[Phillip0405]

Ich habe eine Rechnung. Diese Rechnung hat bestimmte Zeichen (\A+ \A- \S+ \S- \U+ \U- )die entfernt werden sollen. Dieses soll durch eine ini-Datei "gesteuert" werden.

Zitat:

Zitat von p80286 (Beitrag 1329096)

Delphi-Quellcode:

   sl.Text:=Löschen(sl.Text,'\A+');
   sl.Text:=Löschen(sl.Text,'\A-');
   sl.Text:=Löschen(sl.Text,'\S+');
   sl.Text:=Löschen(sl.Text,'\S-');
   sl.Text:=Löschen(sl.Text,'\U+');
   sl.text:=Löschen(sl.Text,'\U-');
  ;

Das sorgt dafür, dass alles entfernt wird aus der Datei.

[nahpets]

Dann schau Dir doch mal Deine Löschroutine an und analysiere, was sie macht:

Delphi-Quellcode:

function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
 begin
  b:=Pos(alt,text);  // Wo ist die zu löschende Zeichenfolge?
  a:=length(alt); // und wie lang ist sie?
  while b>0 do begin  // Ist sie überhaupt vorhanden?
   text:=copy(text,b,a); // Text ist alles, ab der Fundstelle, alles was davor ist, geht "verloren".
   Delete(text,b,a); // Im Rest löschen wir jetzt ab der Position im Ursprung soviel Zeichen, wie die Zeichenfolge lang ist. Allerdings hat sich die Postition durch das Entfernen des Anfangs verschoben. Hier löschen wird also irgendwo irgendwas.
   b:=Pos(alt,text); // Position der Zeichenfolge im Rest suchen.
  end;
  result := Text; // Wenn denn was übrigbleiben sollte, geben wir das zurück.

end;

Um Fehler in 'ner eigenen Routine zu vermeiden, würd' ich mich auf vorhandene Routinen von Delphi verlassen:

Delphi-Quellcode:

sl.Text := AnsiReplaceText(sl.Text,'\A+','');
sl.Text := AnsiReplaceText(sl.Text,'\A-','');
sl.Text := AnsiReplaceText(sl.Text,'\S+','');
sl.Text := AnsiReplaceText(sl.Text,'\S-','');
sl.Text := AnsiReplaceText(sl.Text,'\U+','');
sl.Text := AnsiReplaceText(sl.Text,'\U-','');

[Phillip0405]

Zitat:

Zitat von nahpets (Beitrag 1329105)

Dann schau Dir doch mal Deine Löschroutine an und analysiere, was sie macht:

Delphi-Quellcode:

function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
 begin
  b:=Pos(alt,text);  // Wo ist die zu löschende Zeichenfolge?
  a:=length(alt); // und wie lang ist sie?
  while b>0 do begin  // Ist sie überhaupt vorhanden?
   text:=copy(text,b,a); // Text ist alles, ab der Fundstelle, alles was davor ist, geht "verloren".
   Delete(text,b,a); // Im Rest löschen wir jetzt ab der Position im Ursprung soviel Zeichen, wie die Zeichenfolge lang ist. Allerdings hat sich die Postition durch das Entfernen des Anfangs verschoben. Hier löschen wird also irgendwo irgendwas.
   b:=Pos(alt,text); // Position der Zeichenfolge im Rest suchen.
  end;
  result := Text; // Wenn denn was übrigbleiben sollte, geben wir das zurück.

end;

Um Fehler in 'ner eigenen Routine zu vermeiden, würd' ich mich auf vorhandene Routinen von Delphi verlassen:

Delphi-Quellcode:

sl.Text := AnsiReplaceText(sl.Text,'\A+','');
sl.Text := AnsiReplaceText(sl.Text,'\A-','');
sl.Text := AnsiReplaceText(sl.Text,'\S+','');
sl.Text := AnsiReplaceText(sl.Text,'\S-','');
sl.Text := AnsiReplaceText(sl.Text,'\U+','');
sl.Text := AnsiReplaceText(sl.Text,'\U-','');

Das klappt leider auch nicht.

[nahpets]

Zitat:

Zitat von Phillip0405 (Beitrag 1329108)

Das klappt leider auch nicht.

Könntest Du das bitte präzisieren?

[Phillip0405]

Zitat:

Zitat von nahpets (Beitrag 1329110)

Zitat:

Zitat von Phillip0405 (Beitrag 1329108)

Das klappt leider auch nicht.

Könntest Du das bitte präzisieren?

Da kommt dann eine Fehlermeldung mit dem Pfad und der ursprünglichen Rechnung, mehr steht da nicht drin.

[p80286]

Zitat:

Zitat von Phillip0405 (Beitrag 1329111)

Zitat:

Zitat von nahpets (Beitrag 1329110)

Zitat:

Zitat von Phillip0405 (Beitrag 1329108)

Das klappt leider auch nicht.

Könntest Du das bitte präzisieren?

Da kommt dann eine Fehlermeldung mit dem Pfad und der ursprünglichen Rechnung, mehr steht da nicht drin.

Was klappt nicht? - dein Sourcecode wäre echt hilfreich.
Fehlermeldungen enthalten meistens einen Hinweis auf das gefundene Problem, Fehlermeldungen die nur eine Pfadangabe enthalten sind doch recht selten.
(vielleich "File not found?")

Gruß
K-H

[nahpets]

Also, wie wäre es damit:

1. Du postes mal den jetzt aktuellen, vollständigen Quelltext.
2. Du benennst/markierst darin die Zeile, in der der Fehler auftritt.
3. Du kopierst den Text der Fehlermeldung hier ins Forum.

Dann könnten wir eventuell die Möglichkeit haben, zwischen Fehlermeldung und Quelltext eine Verbindung herzustellen, um gezielt Hilfestellung geben zu können.

Die momentanen Informationen reichen nicht aus, um irgendwie hilfreich aggieren zu können.

[Phillip0405]

Ich habe noch etwas geändert und es kommt keine Fehlermeldung mehr, aber es passiert auch nichts, außer das alles gelöscht wird aus der Ursprungsdatei.

Delphi-Quellcode:

unit Unit5;

interface

uses
  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, Vcl.StdCtrls, Inifiles,
  Vcl.RibbonLunaStyleActnCtrls, Vcl.Ribbon;

type
  TForm5 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
    function Löschen(text:string;alt:string): string;

  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form5: TForm5;

implementation

{$R *.dfm}

procedure TForm5.Button1Click(Sender: TObject);
var
sl:tstringlist;
MyInifile: TInifile;
sFile,a,test:string;
i:integer;
begin
MyIniFile:= TInifile.Create('C:\Users\Praktikant\Desktop\Phillip Beermann, Praktikant\`Rechnung´\MyConfig.ini');
sFile:= MyIniFile.ReadString('Verzeichnis','Quelle','Irgendetwas ist falsch!');
sl:=tstringlist.Create;
sl.LoadFromFile(sfile);


    for i:= 0  to  sl.Count -1 do begin
      sl.Text:=Löschen(sl.Text,'\A+');
      sl.Text:=Löschen(sl.Text,'\A-');
      sl.Text:=Löschen(sl.Text,'\S+');
      sl.Text:=Löschen(sl.Text,'\S-');
      sl.Text:=Löschen(sl.Text,'\U+');
      sl.Text:=Löschen(sl.Text,'\U-');
    end;
a:=MyIniFile.ReadString('Verzeichnis','Ziel','');
sl.SaveToFile(sfile);
MyIniFile.Free;
sl.Free;
end;

 function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
 begin
  while b>0 do begin
  b:=Pos(alt,text);
  a:=length(alt);

   text:=copy(text,b,a);
   Delete(text,b,a);
   b:=Pos(alt,text);
  end;
  result := Text;

end;
end.

[vagtler]

Naja, das Programm macht halt genau das, was Du programmiert hast. Also vornehmlich nichts.

Warum ignorierst Du alle Ratschläge? Hast Du verstanden, was nahpets z.B. in http://www.delphipraxis.net/1329108-post9.html anmerkte?

[nahpets]

Nagut, ich versuch's nochmal mit folgenden Annahmen:

text sei: *\A+*
alt sei: \A+
erwartetes Ergebnis: **

Delphi-Quellcode:

function TForm5.Löschen(text:string;alt:string): string;
  var
  b,a :integer;
begin
  // Welchen Wert hat hier eigentlich b? Größer als 0?
  while b > 0 do begin
    b := Pos(alt,text);  // Position von \A+ in *\A+* ist 2
    a := length(alt);  // Länge von \A+ ist 3
    text := copy(text,b,a);  // -> Copy('*\A+*',2,3) ergibt \A+
    Delete(text,b,a);  // Delete('\A+',2,3) ergibt \
    b := Pos(alt,text); // Pos('\A+','\') ergibt 0
  end;
  result := Text; // Rückgabewert = \, wenn b am Anfang zufällig > 0 war, sonst wird Text zurückgegeben.
end;

[vagtler]

Schön finde ich auch, dass hier augenscheinlich sämtliche Compiler-Hinweise ganz konsequent ignoriert werden. Die Delphi-Praxis wird's schon richten...

[Phillip0405]

Zitat:

Zitat von vagtler (Beitrag 1329256)

Schön finde ich auch, dass hier augenscheinlich sämtliche Compiler-Hinweise ganz konsequent ignoriert werden. Die Delphi-Praxis wird's schon richten...

Compiler- Hinweise gab es bei mir nicht(die hätte ich umgesetzt).

Zitat:

Zitat von vagtler (Beitrag 1329195)

Naja, das Programm macht halt genau das, was Du programmiert hast. Also vornehmlich nichts.

Warum ignorierst Du alle Ratschläge? Hast Du verstanden, was nahpets z.B. in http://www.delphipraxis.net/1329108-post9.html anmerkte?

Als ich die Ratschläge umgesetzt habe, ist mein Delphi- Programm vor Fehlermeldungen abgestürzt.

[nahpets]

Zitat:

Zitat von Phillip0405 (Beitrag 1329290)

Zitat:

Zitat von vagtler (Beitrag 1329256)

Schön finde ich auch, dass hier augenscheinlich sämtliche Compiler-Hinweise ganz konsequent ignoriert werden. Die Delphi-Praxis wird's schon richten...

Compiler- Hinweise gab es bei mir nicht(die hätte ich umgesetzt).

Beim Kompilieren bekomme ich für die Funktion Löschen auf jeden Fall diese Warnung:

Code:

[Warnung] Unit1.pas(5756): Variable 'b' ist möglicherweise nicht initialisiert worden

Und der Compiler hat mit dieser Aussage absolut recht.

Zitat:

Zitat von Phillip0405 (Beitrag 1329290)

Zitat:

Zitat von vagtler (Beitrag 1329195)

Naja, das Programm macht halt genau das, was Du programmiert hast. Also vornehmlich nichts.

Warum ignorierst Du alle Ratschläge? Hast Du verstanden, was nahpets z.B. in http://www.delphipraxis.net/1329108-post9.html anmerkte?

Als ich die Ratschläge umgesetzt habe, ist mein Delphi- Programm vor Fehlermeldungen abgestürzt.

Welche Ratschläge hast Du wie umgesetzt?

Mir ist Delphi noch nie wegen Fehlermeldungen abgestürzt, aber ich habe schon häufiger wegen zu vieler Fehlermeldungen den Durchblick verloren.

Oder meinst Du mit mein Delphi- Programm das von Dir erstellte Programm?
Wenn ja, welche Fehler hat es denn ausgegeben, bevor es abgestürzt ist? (Die Fehlermeldungen, die gewöhnlich in einer Messagebox ausgegeben werden, kann man in der Messagebox mit Strg+C in die Zwischenablage kopieren und hier einfügen!)

Deine Funktion Löschen habe ich kommentiert und dort (hoffentlich vermutlich halbwegs) verständlich rangeschrieben, warum das so nicht funktionieren kann.
Hast Du davon irgendwas berücksichtigt?
Wenn ja was?
Welche Fehlermeldungen des Compilers resultierten daraus?
Wie sieht Dein aktueller Quelltext der Funktion jetzt aus?
Eventuell könnte es hilfreich sein, wenn Du uns mal ein Muster der Dateien als Anhang zur Verfügung stellen könntest, dann könnten wir auch mal mit realen Dateiinhalten versuchen herauszufinden, wo es denn da sonst noch so klemmen könnte.