FileHasTextFormat?

[BUG]

Zitat von Bjoerk:

Aha.

Was Luckie meinen könnte:

• Was soll denn FileHasFextFormat machen?
• Was ist ein FextFormat?
• Wie können wir dir helfen (konkretes Problem)?

[Bjoerk]

Sorry Buddies, hab' mich vertippt.

Ich meinte, ob es möglich ist, herauszufinden, ob eine Datei Textformat hat.

Ungetestet:

Delphi-Quellcode:

function IsAsciiFormat(const FileName: string): boolean;
const
  Size = 2048;
var
  I: integer;
  F: File;
  TotSize, IncSize, ReadSize: integer;
  C: array [0..Size] of Byte;
begin
  Result:= false;
  AssignFile(F, FileName);
  try
    Reset(F, 1);
    try
      TotSize:= FileSize(F);
      IncSize:= 0;
      Result:= true;
      while Result and (IncSize < TotSize) do
      begin
        ReadSize:= Size;
        if IncSize + ReadSize > TotSize then ReadSize:= TotSize - IncSize;
        IncSize:= IncSize + ReadSize;
        BlockRead(F, C, ReadSize);
        for I:= 0 to ReadSize-1 do
          if (C[I] < 32) and (not (C[I] in [9, 10, 13, 26])) then
          begin
            Result:= false;
            Break;
          end;
      end;
    finally
      CloseFile(F);
    end;
  except
    Result:= false;
  end;
end;

[Luckie]

Nicht wirklich. Man kann nur versuchen gut zu raten:
http://blogs.msdn.com/b/oldnewthing/...7/2158334.aspx
http://blogs.msdn.com/b/oldnewthing/.../24/95235.aspx

[BUG]

Der einzige mir bekannte Ansatz wäre, zu gucken ob die Dateien richtig kodiert sind (Ascii, Ansi, UTF-8, ...) und keine Steuerzeichen enthalten.

Dein Ansatz würde für pures Ascii funktionieren, müsste aber noch alle Zeichen größer gleich #127 verbieten.
Bei anderen Zeichensätzen sollte es schwerer werden.

Mit dem Verbieten von kleinen Byte-Werten wirst du schon viele Binärdateien ausschließen, aber eben auch UTF-16 kodierte Textdateien.

[NickelM]

Also falls die Datei nicht im Winows-Editor als ANSI gespeichert ist, könnte man schauen ob vielleicht eine Codierung vorliegt (sind die ersten 2 Bytes, die die Codierung festlegen).
Ansonsten vieleicht die Datei in einem ANSI-String laden und dort jedes Zeichen durchgehen ob es ein "normales" Zeichen ist, das es auf der Tastatur gibt. Habe durchs googlen die Funktion IsCharAlphaA gefunden (A für ANSI-Zeichen). Vielleicht so?

Delphi-Quellcode:

function FileHasFextFormat(FileName : String) : Boolean;
var Text : AnsiString;
    Datei : TFileStream;
    I : Integer;
begin
  Result := True;
  Datei := TFileStream.Create(FileName,fmOpenRead); //Datei öffnen
  try
    SetLength(Text,Datei.Size);
    Datei.Read(Text[1],Datei.Size);
    for I := 1 to Length(Text) do
    If (Text[I] <> ' ') and (Text[I] <> #$D) and (Text[I] <> #$A) then //#$D und #$A wegen Zeilenumbruch-Zeichen.
    begin
      if not IsCharAlphaNumericA(Text[I]) then
      Result := False;
    end;
  finally
    Datei.free;
  end;
end;

Hab grad slebst getestet an einer Datei. Sie enthielt ein '=' und dabei gibt IsCharAlphaNumericA False zurück. Aber vielleicht ist das noch ein Ansatz.

EDIT:Verdammt waren 3 Leute schneller xD

Gruß
NickelM

[Bjoerk]

IsCharAlphaNumericA macht glaub' ich nur 0..9 und a/A bis z/Z inklusive Umlaute und ß. Die Datei als Stream einzulesen ist aber auf alle Fälle mal besser als meine Blockreads.

[p80286]

FilehasTextFormat
kann nicht allgemeingültig funktionieren, da es keine Definition eines Textfiles gibt. Das liegt letztlich im Auge des Betrachters, denn z.B. ich halte ini, html, xml, CSV und auch PS und rtf für Text-Files.
Und aus der Vergangenheit kenne ich Kodierungen von Textfiles, die mit ANSI nicht viel zu tun haben.
(mal ganz zu schweigen von UTF8, UTF16 UNICODE oder reinen BASE64 Codierungen)

Gruß
K-H

[Bjoerk]

Ja, sehe ich aus so. bat, ini, rc, xml, pas, htm, html, txt, rtf sind für mich auch Textdateien.

Edit: Vielleicht schenke ich mir das ganze auch und prüfe nur die Extension.

Edit2: die pas History Files haben scheinbar ein #>=127 irgendwo, hab ich eben mal getestet.

[Luckie]

@Bjoerk: Wenn du schon gemerkt hast, dass du dich vertippt hast, könntest du es dann bitte noch korrigieren, sowohl im Beitrag, als auch im Titel?

[Bjoerk]

Hab's in meiner Sammlung jetzt erst mal so drin.

Gruß
Thomas

Delphi-Quellcode:

function IsProbablyTextfile(const FileName: string): boolean;
var
  S : string; // AnsiString
  F : TFileStream;
  I,R : Integer;
begin
  Result:= false;
  if not FileExists(FileName) then Exit;
  F:= TFileStream.Create(FileName, fmOpenRead);
  try
    if F.Size > 0 then
    try
      Result:= true;
      if F.Size > MaxInt then
        R:= MaxInt
      else
        R:= F.Size;
      SetLength(S, R);
      F.Read(S[1], R);
      for I:= 1 to R do
        if (S[I] < #32) and (not (S[I] in [#9, #10, #13, #26])) then
        begin
          Result:= false;
          Break;
        end;
    except
      Result:= false;
    end;
  finally
    F.free;
  end;
end;