.html Datei zeilenweise lesen

**af99**

Hallo Zusammen,

ich habe mal wieder ein Problem mit Strings bzw. Text. Ich möchte eine .html Datei zeilenweise lesen und nach bestimmten Texten suchen. Die Datei ist mal wieder irgendwie codiert und der Text wird nicht erkannt.

zusammenfalten · markieren

Delphi-Quellcode:

			var

  errortext: string;

AssignFile(rein, datei);

reset(rein);

errortext := 'test1';

repeat

   readln(rein, s);

   //showmessage(s);

   if ansipos('<TR class=', s) > 0 then

    repeat

       readln(rein, s);

       readln(rein, s);

       if pos('Missed', s) > 0 then

         errortext := 'test2';

       if pos('Failed', s) > 0 then

         errortext := 'test3';

       readln(rein, s);

       readln(rein, s);

       readln(rein, s);

       readln(rein, s);

       readln(rein, s);

       readln(rein, s);

     until ansipos('</TD></TR>', s) > 0;

   until eof(rein);

   CloseFile(rein);

   ShowMessage(errortext);

in der Variabke errortext steht aber immer der Text "test1" also werden die if Pos... nicht gefunden. Auch wenn ich mir mit Showmessage den Inhalt von s anzeigen lasse wird das Fenster abhängig vom Text größer und kleiner. Der Text wird jedoch nicht angezeigt.

Hier dann noch die ersten Zeichen in der .html Date1

markieren

Code:

			in HEX

FF FE 3C 00...

in DEZ

ÿþ<

Wie muss ich hier denn was umwandeln damit ich die Zeichen aus der Datei in den IF's vergleichen kann und wie um diese an der Console auszugeben.

Vielen Dank für Eure Hilfe.
Andreas

**Mavarik**

Sicher das das eine HTML Datei ist?

**af99**

ist ne .htm

markieren

Code:

			<html>

<head>

<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">

<meta name="GENERATOR" content="TSM Operational Reporting">

<meta name="ProgId" content="FrontPage.Editor.Document">

<title>TSM Operational Reporting</title>

</head>

<STYLE>

<!--

.HeaderBar {

 BORDER-RIGHT: #9fabbb 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #9fabbb 1px solid; PADDING-LEFT: 10px; FONT-WEIGHT: bold; FONT-SIZE: 11pt; MARGIN-BOTTOM: 5px; PADDING-BOTTOM: 1px; BORDER-LEFT: #9fabbb 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: #9fabbb 1px solid; FONT-FAMILY: arial,verdana,sans-serif; BACKGROUND-COLOR: #bed2fc

}

.FooterBar {

 BORDER-RIGHT: #9fabbb 1px solid; PADDING-RIGHT: 10px; BORDER-TOP: #9fabbb 1px solid; PADDING-LEFT: 10px; FONT-WEIGHT: bold; FONT-SIZE: 8pt; MARGIN-BOTTOM: 5px; PADDING-BOTTOM: 1px; BORDER-LEFT: #9fabbb 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: #9fabbb 1px solid; FONT-FAMILY: arial,verdana,sans-serif; BACKGROUND-COLOR: #bed2fc

}

.HeaderText {

  FONT-WEIGHT: bold; FONT-SIZE: 11pt; FONT-FAMILY: arial,verdana,sans-serif

  }

...

**af99**

wenn ich das FF FE aus der Datei rauslösche dann erhalte ich das gewünschte Ergebnis.

**Mavarik**

.htm .html .php .aspx

"Eigentlich" alles das selbe, ne Text Datei

Sieht nach UTF8 aus, steh aber etwas anderes drinn...?

Mavarik

Also Html entwickelt sich natürlich weiter, aber nach meiner Kenntnis hat FF FE am Anfang der Datei keinen Sinn.

**Morphie**

http://de.wikipedia.org/wiki/Byte_Order_Mark

markieren

Code:

			Kodierung      hexadezimale Darstellung   dezimale Darstellung   Darstellung nach Windows-1252

UTF-16 (LE)    FF FE                      255 254               ÿþ

**p80286**

Es scheint sich bei der Datei um eine Unicode (16Bit) Datei zu handeln.
Da hast du mit Delphi5 erst einmal schlechte Karten. Und mit readln und Konsorten erst recht.

Kannst du die Datei unter einem anderen Namen im ANSI-Format abspeichern? (Notepad)
Dann versuch es doch nochmal mit der Kopie.

Gruß
K-H
---- vergiß es, das kommt davon, wenn der chef stört

.html Datei zeilenweise lesen

.html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

AW: .html Datei zeilenweise lesen

Forumregeln

Mavarik Registriert seit: 9. Feb 2006 Ort: Stolberg (Rhld) 4.152 Beiträge Delphi 10.3 Rio	#2 AW: .html Datei zeilenweise lesen 2. Jan 2013, 15:33 Sicher das das eine HTML Datei ist? Frank Lauter Embarcadero MVP •FDK das Firemonkey-Development-Kit • Mein Blog • Schulungen für FMX •Mein YouTube Channel • Wiki unserer Delphifrühstück Usergroup
	Zitat

af99 Registriert seit: 22. Apr 2004 84 Beiträge Delphi XE5 Ultimate	#4 AW: .html Datei zeilenweise lesen 2. Jan 2013, 16:00 wenn ich das FF FE aus der Datei rauslösche dann erhalte ich das gewünschte Ergebnis.
	Zitat

Mavarik Registriert seit: 9. Feb 2006 Ort: Stolberg (Rhld) 4.152 Beiträge Delphi 10.3 Rio	#5 AW: .html Datei zeilenweise lesen 2. Jan 2013, 16:00 .htm .html .php .aspx "Eigentlich" alles das selbe, ne Text Datei Sieht nach UTF8 aus, steh aber etwas anderes drinn...? Mavarik Frank Lauter Embarcadero MVP •FDK das Firemonkey-Development-Kit • Mein Blog • Schulungen für FMX •Mein YouTube Channel • Wiki unserer Delphifrühstück Usergroup
	Zitat

Popov (Gast) n/a Beiträge	#6 AW: .html Datei zeilenweise lesen 2. Jan 2013, 16:05 Also Html entwickelt sich natürlich weiter, aber nach meiner Kenntnis hat FF FE am Anfang der Datei keinen Sinn.
	Zitat

Morphie Registriert seit: 27. Apr 2008 Ort: Rahden 630 Beiträge	#7 AW: .html Datei zeilenweise lesen 2. Jan 2013, 16:10 http://de.wikipedia.org/wiki/Byte_Order_Mark markieren Code: Kodierung hexadezimale Darstellung dezimale Darstellung Darstellung nach Windows-1252 UTF-16 (LE) FF FE 255 254 ÿþ
	Zitat