[VB6] Quelltext bearbeiten

MichaelFE

Grünschnabel
Hallo miteinander :)

Ich habe vor kurzer Zeit mir vB 6 begonnen. Ich arbeite an einem kleinen Projekt das den Quelltext einer Seite holt z.B von ( Google ) und ihn , in einer Textbox einfügt .So weit bin ich schon , aber ich möchte das am schluss nur noch ein Wort übrig bleibt!


Hier ein Beispiel :

Code:
<html><head><meta http-equiv="content-type" content="text/html; charset=UTF-8"><title>Google</title><style><!--
body,td,a,p,.h{font-family:arial,sans-serif}
.h{font-size:20px}
.h{color:#3366cc}
.q{color:#00c}
--></style>
<script>
<!--
function sf(){document.f.q.focus();}
window.clk=function(b,c,d,h,i,j){if(document.images){var a=window.encodeURIComponent?encodeURIComponent:escape,e="",f="",g="";if(b){e="&url="+a(b.replace(/#.*/,"")).replace(/\+/g,"%2B")}if(c){f="&oi="+a(c)}if(d){g="&cad="+a(d)}(new Image).src="/url?sa=T"+f+g+"&ct="+a(h)+"&cd="+a(i)+e+"&ei=DFJDRuTSFpHO-QKnmaCZCw"+j}return true};// -->
</script>
</head><body bgcolor=#ffffff text=#000000 link=#0000cc vlink=#551a8b alink=#ff0000 onload="sf();if(document.images){new Image().src='/images/nav_logo3.png'}" topmargin=3 marginheight=3><div align=right id=guser style="font-size:84%;padding-bottom:4px" width=100%><nobr><a href="/url?sa=p&pref=ig&pval=3&q=http://www.google.de/ig%3Fhl%3Dde&usg=AFrqEzeUzD1o1GgJgMQgOvR29z-_r4FgHw">iGoogle</a>&nbsp;|&nbsp;<a href="https://www.google.com/accounts/Login?continue=http://www.google.de/&hl=de">Anmelden</a></nobr></div><center><img alt="Google" height=110 src="/intl/de_de/images/logo.gif" width=301><br><br><form action="/search" name=f><script defer><!--
function qs(el){if(window.RegExp&&window.encodeURIComponent){var ue=el.href,qe=encodeURIComponent(document.f.q.value);if(ue.indexOf("q=")!=-1){el.href=ue.replace(new RegExp("q=[^&$]*"),"q="+qe);}else{el.href=ue+"&q="+qe;}}return 1;}
//-->
</script><table border=0 cellspacing=0 cellpadding=4><tr><td nowrap><font size=-1><b>Web</b>&nbsp;&nbsp;&nbsp;&nbsp;<a class=q href="http://images.google.de/imghp?ie=UTF-8&oe=UTF-8&hl=de&tab=wi" onclick="return qs(this)">Bilder</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class=q href="http://groups.google.de/grphp?ie=UTF-8&oe=UTF-8&hl=de&tab=wg" onclick="return qs(this)">Groups</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class=q href="http://news.google.de/nwshp?ie=UTF-8&oe=UTF-8&hl=de&tab=wn" onclick="return qs(this)">News</a>&nbsp;&nbsp;&nbsp;&nbsp;<a class=q href="http://www.google.de/prdhp?ie=UTF-8&oe=UTF-8&hl=de&tab=wf" onclick="return qs(this)">Products</a>&nbsp;&nbsp;&nbsp;&nbsp;<b><a href="/intl/de/options/" class=q>Mehr&nbsp;&raquo;</a></b></font></td></tr></table><table cellpadding=0 cellspacing=0><tr valign=top><td width=25%>&nbsp;</td><td align=center nowrap><input name=hl type=hidden value=de><input maxlength=2048 name=q size=55 title="Google-Suche" value=""><br><input name=btnG type=submit value="Google-Suche"><input name=btnI type=submit value="Auf gut Glück!"></td><td nowrap width=25%><font size=-2>&nbsp;&nbsp;<a href=/advanced_search?hl=de>Erweiterte Suche</a><br>&nbsp;&nbsp;<a href=/preferences?hl=de>Einstellungen</a><br>&nbsp;&nbsp;<a href=/language_tools?hl=de>Sprachtools</a></font></td></tr><tr><td align=center colspan=3><font size=-1>Suche: <input id=all type=radio name=meta value="" checked><label for=all> Das Web </label><input id=lgr type=radio name=meta value="lr=lang_de"><label for=lgr> Seiten auf Deutsch </label><input id=cty type=radio name=meta value="cr=countryDE"><label for=cty> Seiten aus Deutschland </label></font></td></tr></table></form><br><br><font size=-1><a href="/intl/de/ads/">Werbung</a> - <a href="/services/">Unternehmensangebote</a> - <a href="/intl/de/about.html">Über Google</a> - <a href=http://www.google.com/ncr>Google.com in English</a><span id=hp style="behavior:url(#default#homepage)"></span><script><!--
(function() {var a="http://www.google.de/",b=document.getElementById("hp"),c=b.isHomePage(a);_rptHp=function(){(new Image).src="/gen_204?sa=X&ct=mgyhp&cd="+(b.isHomepage(a)?1:0)};if(!c){document.write('<p><a href=/mgyhp.html onClick=document.getElementById("hp").setHomepage("'+a+'");_rptHp();>Machen Sie Google zu Ihrer Startseite!</a>')};})();//-->
</script></font><p><font size=-2>&copy;2007 Google</font></p></center></body></html>

Das war jetzt der gesamte Quelltext von Google , aber wie kriege ich es hin das am schluss nur noch z.B table border= und die Zahl die nach border= kommt in der Textbox angezeigt wird?

Ich bin mir nicht sicher aber ich habe irgendwo gelesen das so was mit Split oder so möglich ist :eek:

Ich wäre sehr dankbar , wenn ihr mir Helfen könntet :)

Danke

MFG Michi :)
 

Neue Beiträge

Zurück