Fandom

Museums

Conversion from HTML to MediaWiki

429pages on
this wiki
Add New Page
Talk0 Share

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

Usage Edit

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 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= [[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 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_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>

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.