HTML Tags entfernen

[knolli]

also sowohl bei mkinzler als auch bei tr909 kommt folgende fehlermeldung:

http://img169.imageshack.us/img169/650/fehleriz4.png

ich möchte das ganze ohne webbrowser machen. ich habe den quelltext in einem memofeld und daraus möchte ich alles Tags entfernen.

[tr909]

ich bekomme bei mkinzlers Variante eine Zugriffsverletzung an der Stelle :

Delphi-Quellcode:

if p1 <> nil then
      begin
        p2 := StrScan( p1, '>');
        if p2 <> Nil then
        begin
          StrLCopy( pr, p, p1-p);    <---- an dieser Stelle knallt es
          Result := Result +  pr;
          p := p2+1;
        end
        else

@knolli
probier mal bei mir in der Funktion html2txt die Zeile html := ReplaceHTMLChar(html); auszukommentieren / wegzulassen
und alles ab slRes := TStringList.Create; kann auch weg (ist dazu da um die Leerzeilen zu entfernen

Gruß
tr909

[knolli]

ok funktioniert soweit...

aus dem quelltext

kommt das raus:

XML-Code:

@import url("./formIE.css");






Delphi-PRAXiS :: HTML Tags entfernen




if ( 0 ) { window.open('privmsg.php?mode=newpm', '_phpbbprivmsg', 'HEIGHT=225,resizable=no,WIDTH=400'); }

//-->






function openDPWindow(docURL, wndName, wndWidth, wndHeight, posLeft, posTop)

{

var session_id = '43861d35d1712e67c427884297b7a05b';


if (!posLeft)

var posLeft = (screen.width - wndWidth) / 2;

if (!posTop)

var posTop = ((screen.height - wndHeight) / 2)-20;


docURL = docURL.replace( '[SID]', session_id );


var parameters = "width="+wndWidth+",height="+wndHeight+",left="+posLeft+",top="+posTop+",
dependent=no,menubar=no,location=no,resizable=yes,scrollbars=yes,status=no";

window.open(docURL, wndName, parameters );

}

//-->





var L_EXPANDTEXT   = "aufklappen";

var L_COLLAPSETEXT = "zusammenfalten";

var clpHeight = "123px";



function toggle(elementId, allowToggle) {

var srcId, srcImage, srcLink = null;


if (allowToggle=='0') return false;


srcId = document.getElementById(elementId + "_code");

srcImage = document.getElementById(elementId + "_image");

srcLink = document.getElementById(elementId + "_link");


if (srcId != null)

srcId.style.height = (srcId.style.height=="") ? clpHeight : "";


if (srcImage != null && srcId != null)

srcImage.src = (srcId.style.height==clpHeight) ? './images/common/plus.png' : './images/common/minus.png';


if (srcLink != null)

{

txt = (document.documentElement) ? srcLink.firstChild.nodeValue : srcLink.innerText;

txt = (srcId.style.height==clpHeight) ? L_EXPANDTEXT : L_COLLAPSETEXT;

if (document.documentElement)

srcLink.firstChild.nodeValue = txt;

else

srcLink.innerText = txt;

}


//

//  Im Beitragseditor muessen die DHTML-Elemente neu angeordnet werden,

//  wenn wir getoggelt haben. Dazu stellt der Editor die Methode

//  "doRealignEditorElemets" bereit. Wenn diese Methode existiert, dann

//  muss sie jetzt aufgerufen werden.

if ( window.doRealignEditorElemets ) {

doRealignEditorElemets();

}


return false;

}


function selectAll(elementId) {

var element = document.getElementById(elementId);

if ( document.selection ) {

var range = document.body.createTextRange();

range.moveToElementText(element);

range.select();

} else

if ( window.getSelection ) {

var range = document.createRange();

range.selectNodeContents(element);

var blockSelection = window.getSelection();

blockSelection.removeAllRanges();

blockSelection.addRange(range);

} else {

alert( 'Dein Browser unterstützt diese Funktion leider nicht.' );

}

return false;

}


var init_toggle = 0;

var init_linenumbers = 0;

//-->



window.name = 'wndDelphiPRAXiSMain';

















Site-Map

Suchen

Code-Library

Mailbox


Logout[knolli]

































var dpSearchURL = "http://www.delphipraxis.net/search.php";


function post_time_edit(topic_id, post_id) {

window.open("./edit_post_time.php?t="+topic_id+"&p="+post_id, '_postedittime', 'HEIGHT=200,WIDTH=500,resizable=no,scrollbars=no');

}


//-->
















Titel:-->HTML Tags entfernen

Ein Delphi (Win32)-Thema von knolli.


Vorheriges Thema anzeigen|Nächstes Thema anzeigen

Avatare einblenden





sdrucken" border="0" hspace="2" vspace="2">









Delphi-PRAXiS Forum - Übersicht->Object-Pascal / Delphi-Language




Seite 1 von 1[ 10 Beiträge ]












Autor

Nachricht













knolli


#1|Verfasst am:Heute um 11:53Titel:HTML Tags entfernen











MitgliedStatus:onlineBeiträge: 9angemeldet: 22.09.2006

Sprache: Delphi (Win32) Hi!





Ich melde mich nun schon wieder mit einem euene Problem.


Mir geht es darum, alle HTML-Tags zu entfernen, damit ich nur noch  z.B.: Linkbeschriftungen oder den auf der Seite 
sichtbaren Text habe und diesen bearbeiten kann. Wer kann mir sagen, wie das funktionieren könnte? Wohlgemerkt es soll alles mit delphi passieren^^.




Ich freue mich schon auf eure Hilfe und hoffe das ich mir auch selbst eine Antwort geben kann!











*] -->



test -->

























DeddyH


#2|Verfasst am:Heute um 11:59Titel:Re: HTML Tags entfernen











"Rüsselmops" ;-)Alter: 41Status:onlineBeiträge: 3.281angemeldet: 17.09.2006Wohnort: Schweina/ThüringenDelphi 7 Enterprise


Ein Anfang wäre, alle < zu ermitteln und von deren Position bis zum folgenden > alles zu löschen.



Gruß Deddy


21 ist nur die halbe Antwort








*] -->


test -->


























tr909


#3|Verfasst am:Heute um 12:04Titel:Re: HTML Tags entfernen











MitgliedStatus:offlineBeiträge: 145angemeldet: 05.11.2004Turbo Delphi für Win32

Hatte gerade das gleiche Problem und habe nu provisorisch erst mal folgendes gebastelt und zusammengesucht



Delphi-Quellcode:     zusammenfalten | markieren

ace: nowrap; width: 100%; overflow-x: auto; overflow-y: auto; overflow: auto;">
1···5····10····15···
·20···&middot
;25····30····35[/b]
····40····45····50··
··55····60····65····
70····75····80····85··
··

0;">90····95····100····105·
···110····115····120···
·125····130····135····140·
···

180····185····190191function GiveSZ(HCode: string): Char;



var


 i             : Integer;



begin


 Result := ' ';


 if (HCode = '"') or (HCode = '"') then Result := '"';



 if (HCode = '&') or (HCode = '&') then Result := '&';



 if (HCode = '<') or (HCode = '<') then Result := '<';



 if (HCode = '>') or (HCode = '>') then Result := '>';



 // ISO 160 bis ISO 255 Codes


 if (HCode = ' ') or (HCode = ' ') then Result := ' ';



 if (HCode = '&iexl;') or (HCode = '¡') then Result := '¡';



 if (HCode = '¢') or (HCode = '¢') then Result := '¢';



 if (HCode = '£') or (HCode = '£') then Result := '£';



 if (HCode = '¤') or (HCode = '¤') then Result := '¤';



 if (HCode = '¥') or (HCode = '¥') then Result := '¥';



 if (HCode = '&brkbar;') or (HCode = '¦') then Result := '¦';



 if (HCode = '§') or (HCode = '§') then Result := '§';



 if (HCode = '¨') or (HCode = '¨') then Result := '¨';



 if (HCode = '©') or (HCode = '©') then Result := '©';



 if (HCode = 'ª') or (HCode = 'ª') then Result := 'ª';



 if (HCode = '«') or (HCode = '«') then Result := '«';



 if (HCode = '¬') or (HCode = '¬') then Result := '¬';



 if (HCode = '­') or (HCode = '­') then Result := '­';



 if (HCode = '®') or (HCode = '®') then Result := '®';



 if (HCode = '&hibar;') or (HCode = '¯') then Result := '¯';



 if (HCode = '°') or (HCode = '°') then Result := '°';



 if (HCode = '±') or (HCode = '±') then Result := '±';



 if (HCode = '²') or (HCode = '²') then Result := '²';



 if (HCode = '³') or (HCode = '³') then Result := '³';



 if (HCode = '´') or (HCode = '´') then Result := '´';



 if (HCode = 'µ') or (HCode = 'µ') then Result := 'µ';



 if (HCode = '¶') or (HCode = '¶') then Result := '¶';



 if (HCode = '·') or (HCode = '·') then Result := '·';



 if (HCode = '¸') or (HCode = '¸') then Result := '¸';



 if (HCode = '¹') or (HCode = '¹') then Result := '¹';



 if (HCode = 'º') or (HCode = 'º') then Result := 'º';



 if (HCode = '»') or (HCode = '»') then Result := '»';



 if (HCode = '¼') or (HCode = '¼') then Result := '¼';



 if (HCode = '½') or (HCode = '½') then Result := '½';



 if (HCode = '¾') or (HCode = '¾') then Result := '¾';



 if (HCode = '¿') or (HCode = '¿') then Result := '¿';



 if (HCode = 'À') or (HCode = 'À') then Result := 'À';



 if (HCode = 'Á') or (HCode = 'Á') then Result := 'Á';



 if (HCode = 'Â') or (HCode = 'Â') then Result := 'Â';



 if (HCode = 'Ã') or (HCode = 'Ã') then Result := 'Ã';



 if (HCode = 'Ä') or (HCode = 'Ä') then Result := 'Ä';



 if (HCode = 'Å') or (HCode = 'Å') then Result := 'Å';



 if (HCode = '&AEling;') or (HCode = 'Æ') then Result := 'Æ';



 if (HCode = 'Ç') or (HCode = 'Ç') then Result := 'Ç';



 if (HCode = 'È') or (HCode = 'È') then Result := 'È';



 if (HCode = 'É') or (HCode = 'É') then Result := 'É';



 if (HCode = '&Ecirce;') or (HCode = 'Ê') then Result := 'Ê';



 if (HCode = 'Ë') or (HCode = 'Ë') then Result := 'Ë';



 if (HCode = 'Ì') or (HCode = 'Ì') then Result := 'Ì';



 if (HCode = 'Í') or (HCode = 'Í') then Result := 'Í';



 if (HCode = '&Icirce;') or (HCode = 'Î') then Result := 'Î';



 if (HCode = 'Ï') or (HCode = 'Ï') then Result := 'Ï';



 if (HCode = 'Ð') or (HCode = 'Ð') then Result := 'Ð';



 if (HCode = 'Ñ') or (HCode = 'Ñ') then Result := 'Ñ';



 if (HCode = 'Ò') or (HCode = 'Ò') then Result := 'Ò';



 if (HCode = 'Ó') or (HCode = 'Ó') then Result := 'Ó';



 if (HCode = 'Ô') or (HCode = 'Ô') then Result := 'Ô';



 if (HCode = 'Õ') or (HCode = 'Õ') then Result := 'Õ';



 if (HCode = 'Ö') or (HCode = 'Ö') then Result := 'Ö';



 if (HCode = '×') or (HCode = '×') then Result := '×';



 if (HCode = 'Ø') or (HCode = 'Ø') then Result := 'Ø';



 if (HCode = 'Ù') or (HCode = 'Ù') then Result := 'Ù';



 if (HCode = 'Ú') or (HCode = 'Ú') then Result := 'Ú';



 if (HCode = 'Û') or (HCode = 'Û') then Result := 'Û';



 if (HCode = 'Ü') or (HCode = 'Ü') then Result := 'Ü';



 if (HCode = 'Ý')

java und der ganze rest muss auch raus... ich brauche nur das was wirklich auf der seite steht...

[edit=mkinzler]Zeilenumbrüche eingefügt Mfg, mkinzler[/edit]

[mkinzler]

Delphi-Quellcode:

function StripTags( line: string; c1, c2: Char): string;
var
   p, p1, p2, pr, pt: PChar;
   res: string;
   Buf: string;
   i: Integer;
begin
   p:= PChar(line);
   SetLength( Buf, Length( line));
   while( p <> nil) and ( p <> '')  do
   begin
      p1 := StrScan( p, c1);
      if p1 <> nil then
      begin
        p2 := StrScan( p1, c2);
        pt := StrScan( p1+1, c1);
        if pt <> Nil then
            if pt < p2 then //Weitere Tagöffnung vor Tagschliessung
            begin
              pr := PChar( Buf);
              StrLCopy( pr, p, p1-p);
              Res := Res + pr;
              p := p1;
              p1 := pt;
            end;
        if p2 <> Nil then
        begin
          pr := PChar( Buf);
          StrLCopy( pr, p, p1-p);
          Res := Res + pr;
          p := p2+1;
        end
        else
        begin
          Res := Res + p;
          p:= nil;
        end
      end
      else
      begin
        Res := Res + p;
        p:= nil;
      end;
   end;
   result := res;
end;

[omata]

Hier auch nochmal ein Vorschlag mit regulären Ausdrücken...

Delphi-Quellcode:

function CleanHtmlTags(Html:string):string;
var RegExpr:TRegExpr;
begin
  Result:='';
  RegExpr:=TRegExpr.Create;
  try
    RegExpr.ModifierG:=false;
    RegExpr.Expression:='<body>(.*)</body>';
    if RegExpr.Exec(Html) then begin
      Html:=RegExpr.Match[0];
      RegExpr.Expression:='<.*>';
      Result:=RegExpr.Replace(Html, ' ', false);
      Result:=trim(StringReplace(Result, '  ', ' ', [rfReplaceAll]));
    end;
  finally
    RegExpr.Free;
  end;
end;

RegExpr

Gruss
Thorsten

[marabu]

Hallo,

Zitat:

Zitat von Blackheart

Delphi-Quellcode:

WebBrowser1.OleObject.Document.documentElement.innerText;

vermutlich ist Beitrag #6 ein wenig untergegangen ...

Grüße vom marabu

[knolli]

hm... nein ist nicht untergegangen... ich hab ein problem mit dem browser.. selbst wenn ich ihm erlaube ins internet zu verbinde, steht da das die seite nicht angezeigt werden kann... wie muss ich den browser konfigurieren damit er seiten auch anzeigt?

[edit= ich hab meinen fehler gefunden... hatte keinen IE installiert... funktioniert jetz alles! herzlichen dank!]

[knolli]

ähm... ich hab mal noch ne frage...

gibt es mit dem WebBrowser AUCH ne möglichkeit die links zu holen?
wenn ja wie heißt die?

[marabu]

Du kannst hier im Forum mehrere Versionen von ExtractLinks() finden, die dir dabei helfen.

[himitsu]

Zitat:

Zitat von knolli

gibt es mit dem WebBrowser AUCH ne möglichkeit die links zu holen?
wenn ja wie heißt die?

Zitat:

WebBrowser1.OleObject.Document.documentElement.innerText

das Rote entspricht dem, was in HTML>JavaScript möglich ist ...


also einfach mal versuchen dort analog zum JavaScript (z.B. siehe SelfHTML) versuchen darauf zuzugreifen :angel2: