Fandom

Museums

Konvertierung von HTML nach MediaWiki

429pages on
this wiki
Add New Page
Talk0 Share

Für die Konvertierung von HTML-Auszeichnungen in MediaWiki-Formatierung kann ein VBScript mit dem MS Internet Explorer benutzt werden.

Verwendung Edit

Das VBScript bearbeitet den Inhalt der Zwischenablage. Bei den meisten Seiten ist eine Nachbearbeitung notwendig, vor allem bei Verknüpfungen (links).

Liste der ersetzen Zeichen und Zeichenfolgen Edit

HTML MediaWiki
VBCRLF&VBCRLF&VBCRLF&VBCRLF VBCRLF
VBCRLF&VBCRLF&VBCRLF VBCRLF
VBCRLF&VBCRLF VBCRLF
<br> VBCRLF
<BR> VBCRLF
vbTab
" "
&auml; Chr(0228)
&Auml; Chr(0196)
&ouml; Chr(0246)
&Ouml; Chr(0214)
&uuml; Chr(0252)
&Uuml; Chr(0220)
&szlig; Chr(0223)
&quot; Chr(34)
<p> VBCRLF
<P> VBCRLF
</p> VBCRLF
</P> VBCRLF
<html>
<HTML>
</html>
</HTML>
<head>
<HEAD>
</head>
</HEAD>
<body>
<BODY>
</body>
</BODY>
<title>&VBCRLF <title>
<TITLE>&VBCRLF <TITLE>
VBCRLF&</title> </title>
VBCRLF&</TITLE> </TITLE>
<title> =
<TITLE> =
</title> =
</TITLE> =
<hr> ----
<HR> ----
<i> ''
<I> ''
</i> ''
</I> ''
<b> '''
<B> '''
</b> '''
</B> '''
<h1>&VBCRLF <h1>
<H1>&VBCRLF <H1>
VBCRLF&</h1> </h1>
VBCRLF&</H1> </H1>
<h2>&VBCRLF <h2>
<H2>&VBCRLF <H2>
VBCRLF&</h2> </h2>
VBCRLF&</H2> </H2>
<h3>&VBCRLF <h3>
<H3>&VBCRLF <H3>
VBCRLF&</h3> </h3>
VBCRLF&</H3> </H3>
<h4>&VBCRLF <h4>
<H4>&VBCRLF <H4>
VBCRLF&</h4> </h4>
VBCRLF&</H4> </H4>
<h5>&VBCRLF <h5>
<H5>&VBCRLF <H5>
VBCRLF&</h5> </h5>
VBCRLF&</H5> </H5>
<h1> ==
<H1> ==
</h1> ==
</H1> ==
<h2> ===
<H2> ===
</h2> ===
</H2> ===
<h3> ====
<H3> ====
</h3> ====
</H3> ====
<h4> =====
<H4> =====
</h4> =====
</H4> =====
<h5> ======
<H5> ======
</h5> ======
</H5> ======
<ul>
<UL>
</ul>
</UL>
<li>&VBCRLF <li>
<LI>&VBCRLF <LI>
<li> *
<LI> *
</li>
</LI>
<ol>
<OL>
</ol>
</OL>
<dir>
<DIR>
</dir>
</DIR>
<table> {|
<TABLE> {|
<tr>
<TR>
</tr> |-
</TR> |-
<th> !
<TH> !
</th>
</TH>
<td> |
<TD> |
</td>
</TD>
</table> |}
</TABLE> |}
<a href= [[
<A HREF= [[
<img src= [[Bild:
<IMG SRC= [[Bild:
</a>
</A>
<center>
<CENTER>
</center>
</CENTER>
VBCRLF&VBCRLF&VBCRLF&VBCRLF VBCRLF
VBCRLF&VBCRLF&VBCRLF VBCRLF
VBCRLF&VBCRLF VBCRLF
VBCRLF&= VBCRLF
=&VBCRLF VBCRLF

Quelltext Edit

<HTML>
 <HEAD>
  <TITLE>HTML - MediaWiki</TITLE>
  <HTA:APPLICATION ID = "FIXURL" APPLICATIONNAME = "HTMLtoMediaWiki" BORDER = "dialog" CAPTION = "yes" SHOWINTASKBAR = "NO" SINGLEINSTANCE = "yes" SYSMENU = "NO" WINDOWSTATE = "normal" SCROLL = "yes" SCROLLFLAT = "yes" INNERBORDER = "no" SELECTION = "NO" MAXIMIZEBUTTON = "NO" MINIMIZEBUTTON = "NO" NAVIGABLE = "NO" CONTEXTMENU = "NO" BORDERSTYLE = "normal">   
  <STYLE type="text/css">
  body 	 { background-color:buttonface }
  </STYLE>
 </HEAD>
 <SCRIPT LANGUAGE="VBScript">
 Option Explicit
 Dim IntervalID, StrClipdata
 
 Sub Init_Fenster
 	self.ResizeTo 200, 100
 	self.MoveTo 1, 1
 	StrClipdata=clipboarddata.getdata("text")
	IntervalID=window.setInterval("Set_ClipData", 500)
 End Sub
 
 Sub Set_ClipData
 	window.clearInterval(IntervalID)

If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&VBCRLF&VBCRLF&VBCRLF,VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&VBCRLF&VBCRLF,VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&VBCRLF,VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<br>",VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<BR>",VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),vbTab,"") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"  "," ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"ä",Chr(0228)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"Ä",Chr(0196)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"ö",Chr(0246)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"Ö",Chr(0214)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"ü",Chr(0252)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"Ü",Chr(0220)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"ß",Chr(0223)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),""",Chr(34)) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<p>",VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<P>",VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</p>",VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</P>",VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<html>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<HTML>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</html>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</HTML>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<head>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<HEAD>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</head>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</HEAD>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<body>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<BODY>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</body>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</BODY>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<title>"&VBCRLF,"<title>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<TITLE>"&VBCRLF,"<TITLE>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</title>","</title>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</TITLE>","</TITLE>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<title>","= ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<TITLE>","= ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</title>"," =") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</TITLE>"," =") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<hr>","----") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<HR>","----") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<i>","''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<I>","''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</i>","''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</I>","''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<b>","'''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<B>","'''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</b>","'''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</B>","'''") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h1>"&VBCRLF,"<h1>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H1>"&VBCRLF,"<H1>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</h1>","</h1>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</H1>","</H1>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h2>"&VBCRLF,"<h2>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H2>"&VBCRLF,"<H2>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</h2>","</h2>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</H2>","</H2>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h3>"&VBCRLF,"<h3>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H3>"&VBCRLF,"<H3>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</h3>","</h3>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</H3>","</H3>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h4>"&VBCRLF,"<h4>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H4>"&VBCRLF,"<H4>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</h4>","</h4>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</H4>","</H4>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h5>"&VBCRLF,"<h5>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H5>"&VBCRLF,"<H5>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</h5>","</h5>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"</H5>","</H5>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h1>","== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H1>","== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</h1>"," ==") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</H1>"," ==") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h2>","=== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H2>","=== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</h2>"," ===") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</H2>"," ===") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h3>","==== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H3>","==== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</h3>"," ====") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</H3>"," ====") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h4>","===== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H4>","===== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</h4>"," =====") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</H4>"," =====") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<h5>","====== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<H5>","====== ") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</h5>"," ======") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</H5>"," ======") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<ul>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<UL>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</ul>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</UL>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<li>"&VBCRLF,"<li>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<LI>"&VBCRLF,"<LI>") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<li>","*") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<LI>","*") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</li>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</LI>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<ol>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<OL>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</ol>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</OL>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<dir>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<DIR>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</dir>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</DIR>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<table>","{|") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<TABLE>","{|") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<tr>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<TR>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</tr>","|-") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</TR>","|-") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<th>","!") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<TH>","!") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</th>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</TH>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<td>","|") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<TD>","|") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</td>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</TD>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</table>","|}") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</TABLE>","|}") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<a href=""","[[") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<A HREF=""","[[") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<img src=","[[Bild:") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<IMG SRC=","[[Bild:") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</a>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</A>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<center>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<CENTER>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</center>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"</CENTER>","") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&VBCRLF&VBCRLF&VBCRLF,VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&VBCRLF&VBCRLF,VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&VBCRLF,VBCRLF) :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),VBCRLF&"=",VBCRLF&VBCRLF&"=") :clipboarddata.setdata "text", StrClipdata
If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"="&VBCRLF,"="&VBCRLF&VBCRLF) :clipboarddata.setdata "text", StrClipdata


  	window.Close
 End Sub
 
 </SCRIPT>
 <BODY scroll="no" onload="Init_Fenster()">

  <Span>HTML wird ersetzt durch MediaWiki<Span>
 </BODY>
</HTML>

See also Edit

Ad blocker interference detected!


Wikia is a free-to-use site that makes money from advertising. We have a modified experience for viewers using ad blockers

Wikia is not accessible if you’ve made further modifications. Remove the custom ad blocker rule(s) and the page will load as expected.