Delphi-PRAXiS
Seite 3 von 4     123 4      
40 Beiträge dieses Themas auf einer Seite anzeigen

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   An alle Programmierhengste: XML lesen (https://www.delphipraxis.net/159614-alle-programmierhengste-xml-lesen.html)

golffahrer 5. Apr 2011 16:33
AW: An alle Programmierhengste: XML lesen
 
Meinst Du den Inhalt der .HTM Datei?

p80286 5. Apr 2011 16:37
AW: An alle Programmierhengste: XML lesen
 
Zitat:
Zitat von Deep-Sea (Beitrag 1093170)
@p80286:
Wie was?! Alles, was du in [NOPARSE] und [/NOPARSE] schreibst, wird eben nicht nach BB-Code geparst, dann kann man eben auch [DELPHI] oder [/DELPHI] schreiben.
Naja beinahe, Danke! Gutes Beispiel

Gruß
K-H

Edith:
Zitat:
Zitat von golffahrer (Beitrag 1093208)
Meinst Du den Inhalt der .HTM Datei?
Jo das wäre gut!

golffahrer 5. Apr 2011 16:42
AW: An alle Programmierhengste: XML lesen
 
Anbei der Link: Hier

p80286 5. Apr 2011 17:01
AW: An alle Programmierhengste: XML lesen
 
Liste der Anhänge anzeigen (Anzahl: 1)
So geht's:
Delphi-Quellcode:
var
  start,
  ende : integer;
  ll:tstringlist;
begin
  ll:=tstringlist.Create;
  ll.LoadFromFile('C:\temp\test.htm');
  start:=pos('<body>',ll.Text);
  if start>0 then begin
    ende:=pos('</body>',ll.Text);
    form1.Memo1.Text:=copy(ll.Text,start+6,ende-(start+6));
  end;
  ll.free;
end;
(ich weiß dafür gibt's keinen Schönheitspreis)
Gruß
K-H

Edith:
die Test.htm hab ich mal angehängt.

himitsu 5. Apr 2011 17:09
AW: An alle Programmierhengste: XML lesen
 
Zitat:
P.S: Ich weiß man kann es sauberer lösen. Ich bin auch kein Crack, aber es erfüllt "eigentlich" seinen Zweck!
Gerade da sollte man doch etwas nehmen, was mit XML umgehen kann, als alles selber zu versuchen?
Also einen XML-Parser, welcher genau dafür gedacht ist.
Und wenn es wirklich seinen Zweck erfüllen würde, dann würde es doch wohl funktionieren? :zwinker:

PS:
Zitat:
<item>
<number>123456789</number>
<unitprice>0,00</unitprice>
<description1>Testartikel</description1>
<description2>und so weiter...</description2>
<infourl>
http://testpfad.de/test.HTM
</infourl>
<pictureurl>
http://testpfad.de/test.JPG
</pictureurl>
</item>
Ich sehe hier weder body noch BODY. :gruebel:

Wobei das Ganze irgendwie ein bissl nach XML-RPC aussieht und dafür hat INDY und/oder MSXML sogar was direkt eingebaut.
http://www.delphipraxis.net/111790-x...-download.html

ConnorMcLeod 5. Apr 2011 17:10
AW: An alle Programmierhengste: XML lesen
 
IMHO holt er sich den Inhalt der Url vom Tag <infourl> und dann krachts.

Die Seite hat 39248 Bytes (lt. Notepad++). Passt das in Dein Tabellenfeld?
Wenn ja, dann prüf das mal auf Sonderzeichen und chr(0)'s => Unicode vs. utf-8 und so. Kann sein, dass die DB damit ein Problem hat.

Und ... beherzige den Tip bez. UpperCase('body'), dann wird der Code übersichtlicher und Du musst nur eine Stelle im Quelltext berücksichtigen.

lg W

golffahrer 5. Apr 2011 17:34
AW: An alle Programmierhengste: XML lesen
 
es funktioniert immer noch nicht! :(
verdammte sch...
Wie könnte man das umgehen mit den Sonderzeichen. Guter Ansatz, oder?

P.S: Habe den Inhalt manuell in die Datenbank eingetragen, also das geht. Das Memo-Feld frißt das.

ConnorMcLeod 5. Apr 2011 17:46
AW: An alle Programmierhengste: XML lesen
 
OK, dann versuchs mal programmatisch mit einem Teil des HTML-Strings. Solange, bis es wieder kracht, dann hast Du das Zeichen, das dran schuld ist, IMHO.

golffahrer 5. Apr 2011 17:59
AW: An alle Programmierhengste: XML lesen
 
Zitat:
Zitat von ConnorMcLeod (Beitrag 1093236)
OK, dann versuchs mal programmatisch mit einem Teil des HTML-Strings. Solange, bis es wieder kracht, dann hast Du das Zeichen, das dran schuld ist, IMHO.
Habe den Inhalt manuell in die Datenbank eingetragen, also das geht. Das Memo-Feld frißt das. Hmmmm... Ich weiss nicht so recht.

ConnorMcLeod 5. Apr 2011 18:02
AW: An alle Programmierhengste: XML lesen
 
Hab ich schon das vorige Mal gelesen ...
offenbar gibt es einen Unterschied zw. händisch und programmatisch ...
Bugs suchen ist leider mehr Aufwand als Code schreiben. Da musst Du durch ;-)


Alle Zeitangaben in WEZ +1. Es ist jetzt 15:29 Uhr.
Seite 3 von 4     123 4      
40 Beiträge dieses Themas auf einer Seite anzeigen

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz