A VBScript can convert HTML tags into MediaWiki using the MS Internet Explorer↑.
Usage[]
The VBScript manipulates the content of the clipboard. Most pages have to be edited after running the script, especially to reformat the links.
List of substituted characters and strings[]
HTML | MediaWiki |
---|---|
VBCRLF&VBCRLF&VBCRLF&VBCRLF | VBCRLF |
VBCRLF&VBCRLF&VBCRLF | VBCRLF |
VBCRLF&VBCRLF | VBCRLF |
<br> | VBCRLF |
<BR> | VBCRLF |
vbTab | |
" " | |
ä | Chr(0228) |
Ä | Chr(0196) |
ö | Chr(0246) |
Ö | Chr(0214) |
ü | Chr(0252) |
Ü | Chr(0220) |
ß | Chr(0223) |
" | 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= | [[Image: |
<IMG SRC= | [[Image: |
</a> | |
</A> | |
<center> | |
<CENTER> | |
</center> | |
</CENTER> | |
VBCRLF&VBCRLF&VBCRLF&VBCRLF | VBCRLF |
VBCRLF&VBCRLF&VBCRLF | VBCRLF |
VBCRLF&VBCRLF | VBCRLF |
VBCRLF&= | VBCRLF |
=&VBCRLF | VBCRLF |
Source code[]
<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_Window 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=","[[Image:") :clipboarddata.setdata "text", StrClipdata If Not IsNull(StrClipdata) Then StrClipdata=replace(trim(StrClipdata),"<IMG SRC=","[[Image:") :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_Window()"> <Span>HTML being replaced with MediaWiki<Span> </BODY> </HTML>