Hallo,

ich habe das Problem, das ich eine HTML-Datei auslesen muß.
In dieser Datei sind Daten welche ich benötige.

Ich brauche aber eben nur die Nutzdaten nicht den HTML-Code.

Kann mir da jemand helfen ?

Danke
Lars

hi,
diese procedure wandelt html in plaintext um:

zusammenfalten · markieren

Delphi-Quellcode:

procedure HTML2Text(InFile, OutFile : String);
var s, t: TextFile;
  si: File;
  uml: String;
  param: char;
  i, j: integer;
  IsTag, Umlaut: Boolean;
  ASCII: Integer;
  Titel: String;
begin
  AssignFile(s,InFile);
  AssignFile(t,OutFile);
  Reset(s);
  Rewrite(t);
  IsTag := False;

  while not Eof(s) do
  begin
    Umlaut := False;
    j := 0;
    read(s, param);

    if (param = '<') or (param = '{') then
    begin
      IsTag := true;
      write(t, ' ');
    end;

    // Wenn & gefunden, dann überprüfen ob Sonderzeichen vorliegt.
   if not IsTag and (Param = '&') then
    begin
      uml := param;
      j := 0;
      Umlaut := true;
    // Maximal 8 Zeichen lesen oder bis ; gefunden
    repeat
      read(s, param);
      inc (j);
      uml := uml + param;
    until (j = 8) or (param = ';');

    if (param = ';') then
    begin
      param := GiveSZ (uml);
      write(t,param);
    end
    else write(t,uml);
    Umlaut := false;
   end;
   if not IsTag and not Umlaut then write(t, param);
   if (param = '>') or (param = '}') then IsTag := false;
  end;

  CloseFile(s);
  CloseFile(t);
end;

sie benötigt diese funktion:

zusammenfalten · markieren

Delphi-Quellcode:

Function GiveSZ (HCode : String) : Char;
Begin
  Result := ' ';
  if (HCode='&quot;') or (HCode = '"') then Result := '"';
  if (HCode='&amp;') or (HCode = '&') then Result := '&';
  if (HCode='<') or (HCode = '<') then Result := '<';
  if (HCode='>') or (HCode = '>') then Result := '>';

  // ISO 160 bis ISO 255 Codes
  if (HCode='') or (HCode = '*') then Result := ' ';
  if (HCode='&iexl;') or (HCode = '¡') then Result := '¡';
  if (HCode='&cent;') or (HCode = '¢') then Result := '¢';
  if (HCode='&pound;') or (HCode = '£') then Result := '£';
  if (HCode='&curren;') or (HCode = '¤') then Result := '¤';
  if (HCode='&yen;') or (HCode = '¥') then Result := '¥';
  if (HCode='&brkbar;') or (HCode = '¦') then Result := '¦';
  if (HCode='&sect;') or (HCode = '§') then Result := '§';
  if (HCode='&uml;') or (HCode = '¨') then Result := '¨';
  if (HCode='&copy;') or (HCode = '©') then Result := '©';
  if (HCode='&ordf;') or (HCode = 'ª') then Result := 'ª';
  if (HCode='&laquo;') or (HCode = '«') then Result := '«';
  if (HCode='&not;') or (HCode = '¬') then Result := '¬';
  if (HCode='&shy;') or (HCode = '*') then Result := '*';
  if (HCode='&reg;') or (HCode = '®') then Result := '®';
  if (HCode='&hibar;') or (HCode = '¯') then Result := '¯';
  if (HCode='&deg;') or (HCode = '°') then Result := '°';
  if (HCode='&plusmn;') or (HCode = '±') then Result := '±';
  if (HCode='&sup2;') or (HCode = '²') then Result := '²';
  if (HCode='&sup3;') or (HCode = '³') then Result := '³';
  if (HCode='&acute;') or (HCode = '´') then Result := '´';
  if (HCode='&micro;') or (HCode = 'µ') then Result := 'µ';
  if (HCode='&para;') or (HCode = '¶') then Result := '¶';
  if (HCode='&middot;') or (HCode = '·') then Result := '·';
  if (HCode='&cedil;') or (HCode = '¸') then Result := '¸';
  if (HCode='&sup1;') or (HCode = '¹') then Result := '¹';
  if (HCode='&ordm;') or (HCode = 'º') then Result := 'º';
  if (HCode='&raquo;') or (HCode = '»') then Result := '»';
  if (HCode='&frac14;') or (HCode = '¼') then Result := '¼';
  if (HCode='&frac12;') or (HCode = '½') then Result := '½';
  if (HCode='&frac34;') or (HCode = '¾') then Result := '¾';
  if (HCode='&iquest;') or (HCode = '¿') then Result := '¿';
  if (HCode='&Agrave;') or (HCode = 'À') then Result := 'À';
  if (HCode='&Aacute;') or (HCode = 'Á') then Result := 'Á';
  if (HCode='&Acirc;') or (HCode = 'Â') then Result := 'Â';
  if (HCode='&Atilde;') or (HCode = 'Ã') then Result := 'Ã';
  if (HCode='&Auml;') or (HCode = 'Ä') then Result := 'Ä';
  if (HCode='&Aring;') or (HCode = 'Å') then Result := 'Å';
  if (HCode='&AEling;') or (HCode = 'Æ') then Result := 'Æ';
  if (HCode='&Ccedil;') or (HCode = 'Ç') then Result := 'Ç';
  if (HCode='&Egrave;') or (HCode = 'È') then Result := 'È';
  if (HCode='&Eacute;') or (HCode = 'É') then Result := 'É';
  if (HCode='&Ecirce;') or (HCode = 'Ê') then Result := 'Ê';
  if (HCode='&Euml;') or (HCode = 'Ë') then Result := 'Ë';
  if (HCode='&Igrave;') or (HCode = 'Ì') then Result := 'Ì';
  if (HCode='&Iacute;') or (HCode = 'Í') then Result := 'Í';
  if (HCode='&Icirce;') or (HCode = 'Î') then Result := 'Î';
  if (HCode='&Iuml;') or (HCode = 'Ï') then Result := 'Ï';
  if (HCode='&ETH;') or (HCode = 'Ð') then Result := 'Ð';
  if (HCode='&Ntilde;') or (HCode = 'Ñ') then Result := 'Ñ';
  if (HCode='&Ograve;') or (HCode = 'Ò') then Result := 'Ò';
  if (HCode='&Oacute;') or (HCode = 'Ó') then Result := 'Ó';
  if (HCode='&Ocirc;') or (HCode = 'Ô') then Result := 'Ô';
  if (HCode='&Otilde;') or (HCode = 'Õ') then Result := 'Õ';
  if (HCode='&Ouml;') or (HCode = 'Ö') then Result := 'Ö';
  if (HCode='&times;') or (HCode = '×') then Result := '×';
  if (HCode='&Oslash;') or (HCode = 'Ø') then Result := 'Ø';
  if (HCode='&Ugrave;') or (HCode = 'Ù') then Result := 'Ù';
  if (HCode='&Uacute;') or (HCode = 'Ú') then Result := 'Ú';
  if (HCode='&Ucirc;') or (HCode = 'Û') then Result := 'Û';
  if (HCode='&Uuml;') or (HCode = 'Ü') then Result := 'Ü';
  if (HCode='&Yacute;') or (HCode = 'Ý') then Result := 'Ý';
  if (HCode='&THORN;') or (HCode = 'Þ') then Result := 'Þ';
  if (HCode='&szlig;') or (HCode = 'ß') then Result := 'ß';
  if (HCode='&agrave;') or (HCode = 'à') then Result := 'à';
  if (HCode='&aacute;') or (HCode = 'á') then Result := 'á';
  if (HCode='&acirc;') or (HCode = 'â') then Result := 'â';
  if (HCode='&atilde;') or (HCode = 'ã') then Result := 'ã';
  if (HCode='&auml;') or (HCode = 'ä') then Result := 'ä';
  if (HCode='&aring;') or (HCode = 'å') then Result := 'å';
  if (HCode='&aeling;') or (HCode = 'æ') then Result := 'æ';
  if (HCode='&ccedil;') or (HCode = 'ç') then Result := 'ç';
  if (HCode='&egrave;') or (HCode = 'è') then Result := 'è';
  if (HCode='&eacute;') or (HCode = 'é') then Result := 'é';
  if (HCode='&ecirc;') or (HCode = 'ê') then Result := 'ê';
  if (HCode='&euml;') or (HCode = 'ë') then Result := 'ë';
  if (HCode='&igrave;') or (HCode = 'ì') then Result := 'ì';
  if (HCode='&iacute;') or (HCode = 'í') then Result := 'í';
  if (HCode='&icirc;') or (HCode = 'î') then Result := 'î';
  if (HCode='&iuml;') or (HCode = 'ï') then Result := 'ï';
  if (HCode='&eth;') or (HCode = 'ð') then Result := 'ð';
  if (HCode='&ntilde;') or (HCode = 'ñ') then Result := 'ñ';
  if (HCode='&ograve;') or (HCode = 'ò') then Result := 'ò';
  if (HCode='&oacute;') or (HCode = 'ó') then Result := 'ó';
  if (HCode='&ocirc;') or (HCode = 'ô') then Result := 'ô';
  if (HCode='&otilde;') or (HCode = 'õ') then Result := 'õ';
  if (HCode='&ouml;') or (HCode = 'ö') then Result := 'ö';
  if (HCode='&divide;') or (HCode = '÷') then Result := '÷';
  if (HCode='&oslash;') or (HCode = 'ø') then Result := 'ø';
  if (HCode='&ugrave;') or (HCode = 'ù') then Result := 'ù';
  if (HCode='&uacude;') or (HCode = 'ú') then Result := 'ú';
  if (HCode='&ucirc;') or (HCode = 'û') then Result := 'û';
  if (HCode='&uuml;') or (HCode = 'ü') then Result := 'ü';
  if (HCode='&yacute;') or (HCode = 'ý') then Result := 'ý';
  if (HCode='&thorn;') or (HCode = 'þ') then Result := 'þ';
  if (HCode='&yuml;') or (HCode = 'ÿ') then Result := 'ÿ';
end;

So allgemein wie deine Frage ist, so allgemein fällt leider auch meine Antwort aus:

Kuck dir mal in der Hilfe pos, copy, delete und alle zugehörigen Stringfunktionen an.

Hallo,

danke erstmal.

Das mit dem Umwandeln in Text ist ja schon gar nicht schlecht.
Jetzt bleibt das Problem mit der Formatierung.

Ich habe ein HTML-Dokument welches so aussehen könnte :

markieren

Code:

Anschrift :                                   Anschrift 2 :
Meier Müller                                  Max Moriz
Strasse :                                     Strasse :
Meierweg 22                                    Müllerstr. 55

u.s.w.

Bei der Umwandlung geht jetzt jede Formatierung verloren.


Hab ich noch eine andere Möglichkeit ?

Lars