Textdatei ohne Endung

Simu · Beiträge: 28

Hab mal wieder ein problem:
Habe eine Textdatei ohne endung. Wenn ich diese mit dem WordPad öffne, ist alles schön zeilenweise sortiert. Jetzt möchte ich diese endungslose Datei mit LoadFromFile öffnen und nach gewissen IP-Adressen Filtern. Das Problem ist, das jetzt die ganze Datei auf einer Zeile steht und nicht im Format wie wenn ich sie mit WordPad öffne. Somit kann ich die Datei nicht mehr Filtern.

Danke für eure Hilfe

inselberg · Beiträge: 458

memo.LoadFromFile ?
versuchs mal mit richedit

_________________
hans bist du das ?

Simu · Beiträge: 28

Hat nicht funktioniert.
Hab da einen Code gefunden womit das ganze funktionieren sollte.
Leider giebt es mir einen Fehler aus: "Ungültige Typumwandlung" bei OemToChar.
Kann mir jemand sagen woran das liegt?

Danke!!

markieren

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:

procedure Ascii2Ansi(var s: string);  
var  
  s0: string;  
begin  
  Setlength(s0,length(s));  
  if (length(s0)>0) then  
    OemToChar(Pchar(s),PChar(s0));  
  s:=s0;  
end;

Moderiert von Peter Lustig: Code- durch Delphi-Tags ersetzt.

Ehemaliges Mitglied Erhaltene Danke: 1

Die Zeilenumbrüche werden wohl nicht stimmen. Unter Windows ist für ein Memo ein Zeilenumbruch #13#10 unter Linux #10 und unter Mac glaube ich nur #13. Kuck dir die Textdatei mal in einem HexEditor an. Sollte meine Vermutung zu treffen, lad die Datei vorher in eine Stringliste, uersetzte mit StringReplace die Zeilenumbrüche und lade sie dann in das Memo.

inselberg · Beiträge: 458

oder poste einfach mal auszugsweise die datei ... nicht deren inhalt

_________________
hans bist du das ?

Simu · Beiträge: 28

ok danke!
werde mal schauen ob ich das hinkriege.
mfg

Ehemaliges Mitglied Erhaltene Danke: 1

Luckie hat folgendes geschrieben:

Sollte meine Vermutung zu treffen, lad die Datei vorher in eine Stringliste, uersetzte mit StringReplace die Zeilenumbrüche und lade sie dann in das Memo.

Ist aber nicht notwendig. Ich habe meine ".htaccess" lokal auf der Platte. Sie benutzt auch nur #10 als Zeilenumbruch, wenn ich sie aber lade

markieren

Delphi-Quelltext

1:	Memo.Lines.LoadFromFile('.htaccess');

werden die Zeilen korrekt untereinander dargestellt. Edit-PS: Getestet mit Delphi 5.

Simu · Beiträge: 28

Danke euch allen!!
Hat alles funktioniert.
Weis vieleicht jemand wie grosse Dateien ich mit StringReplace ersetzen kann?
hab so 5MB gehabt, dann ist alles abgestürtzt

Wenn ich das prog dann einsetzte, sollte ich dateien durchlesen können mit 70MB.

Mfg Simu

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme