Education
 

Conversion from HTML to MediaWiki

From Museums

A VBScript can convert HTML tags into MediaWiki using the MS Internet Explorer↑.

Contents

[edit] Usage

The VBScript manipulates the content of the clipboard. Most pages have to be edited after running the script, especially to reformat the links.

[edit] 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
" "
&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= [[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

[edit] 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>

[edit] See also

Retrieved from "http://museums.wikia.com/wiki/Conversion_from_HTML_to_MediaWiki"