Also den
html code hol ich mir mit
variabledeclaration hab ich weggelassen
Delphi-Quellcode:
htmlcode:=WebBrowser1.OleObject.Document.Body.InnerHtml;
wort:= copy(htmlcode,i+10,10);
//wort aus html holen
for J:=0
to length(wort)
do
begin
for H:=0
to 10
do
begin
if(copy(wort,j,1)=IntToStr(H))
then //Prüfen ob zeichen eine Zahl ist
begin zahl := true;
end;
// wenn Zahl dann true wenn net dann net *g*
end;
if(zahl = false)
then
begin Delete(wort,j,1);
end //wenn nicht zahl zeichen löschen
else zahl := false;
end;
weiß isch a bissle amateurhaft geschrieben aber ich wollt schnell nur die ideen ausarbeiten bevor ich wieder was
neues in meinem Kopf hatte.
MfG Command3000
[edit=Admin]Code in Delphi-Tags gesetzt. Künftig bitte selber machen. Mfg, Daniel[/edit]