AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Programmieren allgemein An alle Programmierhengste: XML lesen
Thema durchsuchen
Ansicht
Themen-Optionen

An alle Programmierhengste: XML lesen

Ein Thema von golffahrer · begonnen am 5. Apr 2011 · letzter Beitrag vom 6. Apr 2011
Antwort Antwort
Seite 3 von 4     123 4      
golffahrer

Registriert seit: 5. Apr 2011
12 Beiträge
 
#21

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 17:33
Meinst Du den Inhalt der .HTM Datei?
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#22

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 17:37
@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:
Meinst Du den Inhalt der .HTM Datei?
Jo das wäre gut!
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
golffahrer

Registriert seit: 5. Apr 2011
12 Beiträge
 
#23

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 17:42
Anbei der Link: Hier
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#24

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 18:01
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.
Angehängte Dateien
Dateityp: 7z test.7z (2,0 KB, 3x aufgerufen)
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector

Geändert von p80286 ( 5. Apr 2011 um 18:03 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von himitsu
himitsu

Registriert seit: 11. Okt 2003
Ort: Elbflorenz
44.071 Beiträge
 
Delphi 12 Athens
 
#25

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 18:09
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?

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.

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
Neuste Erkenntnis:
Seit Pos einen dritten Parameter hat,
wird PoSex im Delphi viel seltener praktiziert.

Geändert von himitsu ( 5. Apr 2011 um 18:12 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#26

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 18:10
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

Geändert von ConnorMcLeod ( 5. Apr 2011 um 18:12 Uhr)
  Mit Zitat antworten Zitat
golffahrer

Registriert seit: 5. Apr 2011
12 Beiträge
 
#27

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 18:34
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.

Geändert von golffahrer ( 5. Apr 2011 um 18:40 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#28

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 18:46
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.
  Mit Zitat antworten Zitat
golffahrer

Registriert seit: 5. Apr 2011
12 Beiträge
 
#29

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 18:59
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.
  Mit Zitat antworten Zitat
Benutzerbild von ConnorMcLeod
ConnorMcLeod

Registriert seit: 13. Okt 2010
Ort: Bayern
490 Beiträge
 
Delphi 10.4 Sydney
 
#30

AW: An alle Programmierhengste: XML lesen

  Alt 5. Apr 2011, 19:02
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
  Mit Zitat antworten Zitat
Antwort Antwort
Seite 3 von 4     123 4      


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 06:44 Uhr.
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz