ZUR�CK !!!!!! Ich habe die letzten Postings �bersehen.......
ZUR�CK !!! ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!!ZUR�CK !!! -----Urspr�ngliche Nachricht----- Von: Regge, Olaf [mailto:[EMAIL PROTECTED]] Gesendet: Donnerstag, 24. Januar 2002 10:28 An: AspGerman Kaffeehaus Betreff: [aspdecoffeehouse] RE: Meta und Titelangaben aus Seite auslesen Hallo Leute, so l�uft es jetzt: ----------- ' *** HTML der Seite kleine Zeichen f�r Suche *** GrossStrHTML = Trim(strHTML) KleinStrHTML = LCase(Trim(strHTML)) ' *** Komplette Zeichenl�nge der HTML-Codes *** LaengerStrHTML= Len(KleinStrHTML) ' *** Auslesen des Titels *** WoIstTitel = Instr(KleinStrHTML,"<title>") WoIstEndeTitel = Instr(KleinStrHTML,"</title>") LaengeDesTitels = WoIstEndeTitel-WoIstTitel-7 ' 7 = len("<title") Titel = MID(GrossStrHTML, WoIstTitel+7, LaengeDesTitels) ----------- Nun habe ich aber noch zwei Sachen: 1.) Es gibt solche komischen Leute *r�usper*, die haben in Ihrem Titel Sonderzeichen. Dann kriege ich nur noch Bl�dsinn angezeigt. 2.) Wie bekomme ich Metaangaben ausgelesen. Diese sind ja leider nicht in zwei Tags eingeschlossen, so das ich das selbe Prinzip anwenden kann. Habe ich leider vorher nicht dar�ber nachgedacht. *sch...* Gru� Olaf -----Urspr�ngliche Nachricht----- Von: Speidel Patrick [mailto:[EMAIL PROTECTED]] Gesendet: Mittwoch, 23. Januar 2002 15:29 An: AspGerman Kaffeehaus Betreff: [aspdecoffeehouse] RE: Meta und Titelangaben aus Seite auslesen > ' *** Auslesen des Titels *** > WoIstTitel = Instr(KleinStrHTML,"<title>") > WoIstEndeTitel = Instr(KleinStrHTML,"</title>") > LaengeDesTitels = LaengerStrHTML-WoIstTitel-WoIstEndeTitel+18 > Titel = MID(KleinStrHTML, WoIstTitel+7, LaengeDesTitels) > Hallo Olaf, ich w�rde die L�nge des Titels so bestimmen: LaengeDesTitels = WoIstEndeTitel-WoIstTitel-7 ' 7 = len("<title") dann: Titel = mid(trim(StrHTML), WoIstTitel+7, LaengeDesTitles) ^^^^^^^ ^^^^-> Vorteil hier: Du nutzt die Originalschreibweise des Titels und hast nicht alles in lowerCase! funzt das? Gr��e Patrick > -----Original Message----- > From: Regge, Olaf [mailto:[EMAIL PROTECTED]] > Sent: Wednesday, January 23, 2002 3:18 PM > To: AspGerman Kaffeehaus > Subject: [aspdecoffeehouse] Meta und Titelangaben aus Seite auslesen > > > Hallo Leute, > > ich versuche mit folgendem Code die Titelangaben aus einer > anderen Seite > auszulesen: > > ---- > Set objXmlHttp = Server.CreateObject("Microsoft.XMLHTTP") > objXmlHttp.open "GET", Testurl, False > objXmlHttp.send > > strHTML = objXmlHttp.responseText > Set objXmlHttp = Nothing > > ' *** HTML der Seite kleine Zeichen f�r Suche *** > KleinStrHTML = LCase(Trim(strHTML)) > > ' *** Komplette Zeichenl�nge der HTML-Codes *** > LaengerStrHTML= Len(KleinStrHTML) > > ' *** Auslesen des Titels *** > WoIstTitel = Instr(KleinStrHTML,"<title>") > WoIstEndeTitel = Instr(KleinStrHTML,"</title>") > LaengeDesTitels = LaengerStrHTML-WoIstTitel-WoIstEndeTitel+18 > Titel = MID(KleinStrHTML, WoIstTitel+7, LaengeDesTitels) > > Response.Write "<br>"& WoIstTitel &"<br>" > Response.Write Titel &"<br>" > Response.Write WoIstEndeTitel &"<br>" > Response.Write LaengerStrHTML &"<br>" > Response.Write StrHTML > ---- > > Bei Testurl = "http://www.edvkids.de.vu"; gibt er zu viel Text > in den Str von > Titel > bei Testurl = "http://www.edvkids.de"; ist es OK..... > > Was vergesse ich zu beachten? > > Gru� > Olaf > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp ________________________________________________________________________ This email has been scanned for all viruses by the MessageLabs SkyScan service. For more information on a proactive anti-virus service working around the clock, around the globe, visit http://www.messagelabs.com ________________________________________________________________________ | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
