@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····
;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 = '&quot;') or (HCode = '"') then Result := '"';
if (HCode = '&amp;') or (HCode = '&') then Result := '&';
if (HCode = '&lt;') or (HCode = '<') then Result := '<';
if (HCode = '&gt;') or (HCode = '>') then Result := '>';
// ISO 160 bis ISO 255 Codes
if (HCode = '&nbsp;') or (HCode = ' ') then Result := ' ';
if (HCode = '&iexl;') or (HCode = '¡') then Result := '¡';
if (HCode = '&cent;') or (HCode = '¢') then Result := '¢';
if (HCode = '&pound;') or (HCode = '£') then Result := '£';
if (HCode = '&curren;') or (HCode = '¤') then Result := '¤';
if (HCode = '&yen;') or (HCode = '¥') then Result := '¥';
if (HCode = '&brkbar;') or (HCode = '¦') then Result := '¦';
if (HCode = '&sect;') or (HCode = '§') then Result := '§';
if (HCode = '&
uml;') or (HCode = '&
uml;') then Result := '&
uml;';
if (HCode = '&copy;') or (HCode = '©') then Result := '©';
if (HCode = '&ordf;') or (HCode = 'ª') then Result := 'ª';
if (HCode = '&laquo;') or (HCode = '«') then Result := '«';
if (HCode = '&not;') or (HCode = '¬') then Result := '¬';
if (HCode = '&shy;') or (HCode = '­') then Result := '­';
if (HCode = '&reg;') or (HCode = '®') then Result := '®';
if (HCode = '&hibar;') or (HCode = '¯') then Result := '¯';
if (HCode = '&deg;') or (HCode = '°') then Result := '°';
if (HCode = '&plusmn;') or (HCode = '±') then Result := '±';
if (HCode = '&sup2;') or (HCode = '²') then Result := '²';
if (HCode = '&sup3;') or (HCode = '³') then Result := '³';
if (HCode = '&acute;') or (HCode = '´') then Result := '´';
if (HCode = '&micro;') or (HCode = 'µ') then Result := 'µ';
if (HCode = '&para;') or (HCode = '¶') then Result := '¶';
if (HCode = '&middot;') or (HCode = '·') then Result := '·';
if (HCode = '&cedil;') or (HCode = '¸') then Result := '¸';
if (HCode = '&sup1;') or (HCode = '¹') then Result := '¹';
if (HCode = '&ordm;') or (HCode = 'º') then Result := 'º';
if (HCode = '&raquo;') or (HCode = '»') then Result := '»';
if (HCode = '&frac14;') or (HCode = '¼') then Result := '¼';
if (HCode = '&frac12;') or (HCode = '½') then Result := '½';
if (HCode = '&frac34;') or (HCode = '¾') then Result := '¾';
if (HCode = '&iquest;') or (HCode = '¿') then Result := '¿';
if (HCode = '&Agrave;') or (HCode = 'À') then Result := 'À';
if (HCode = '&Aacute;') or (HCode = 'Á') then Result := 'Á';
if (HCode = '&Acirc;') or (HCode = 'Â') then Result := 'Â';
if (HCode = '&Atilde;') or (HCode = 'Ã') then Result := 'Ã';
if (HCode = '&Auml;') or (HCode = 'Ä') then Result := 'Ä';
if (HCode = '&Aring;') or (HCode = 'Å') then Result := 'Å';
if (HCode = '&AEling;') or (HCode = 'Æ') then Result := 'Æ';
if (HCode = '&Ccedil;') or (HCode = 'Ç') then Result := 'Ç';
if (HCode = '&Egrave;') or (HCode = 'È') then Result := 'È';
if (HCode = '&Eacute;') or (HCode = 'É') then Result := 'É';
if (HCode = '&Ecirce;') or (HCode = 'Ê') then Result := 'Ê';
if (HCode = '&Euml;') or (HCode = 'Ë') then Result := 'Ë';
if (HCode = '&Igrave;') or (HCode = 'Ì') then Result := 'Ì';
if (HCode = '&Iacute;') or (HCode = 'Í') then Result := 'Í';
if (HCode = '&Icirce;') or (HCode = 'Î') then Result := 'Î';
if (HCode = '&Iuml;') or (HCode = 'Ï') then Result := 'Ï';
if (HCode = '&ETH;') or (HCode = 'Ð') then Result := 'Ð';
if (HCode = '&Ntilde;') or (HCode = 'Ñ') then Result := 'Ñ';
if (HCode = '&Ograve;') or (HCode = 'Ò') then Result := 'Ò';
if (HCode = '&Oacute;') or (HCode = 'Ó') then Result := 'Ó';
if (HCode = '&Ocirc;') or (HCode = 'Ô') then Result := 'Ô';
if (HCode = '&Otilde;') or (HCode = 'Õ') then Result := 'Õ';
if (HCode = '&Ouml;') or (HCode = 'Ö') then Result := 'Ö';
if (HCode = '&times;') or (HCode = '×') then Result := '×';
if (HCode = '&Oslash;') or (HCode = 'Ø') then Result := 'Ø';
if (HCode = '&Ugrave;') or (HCode = 'Ù') then Result := 'Ù';
if (HCode = '&Uacute;') or (HCode = 'Ú') then Result := 'Ú';
if (HCode = '&Ucirc;') or (HCode = 'Û') then Result := 'Û';
if (HCode = '&Uuml;') or (HCode = 'Ü') then Result := 'Ü';
if (HCode = '&Yacute;')