Museums

You might consider creating an account so that your contributions will be attributed to your name.

Wenn Sie ein Benutzerkonto einrichten (Warum ein Benutzerkonto erstellen?), werden Ihre Beiträge Ihrem Namen zugeordnet.

READ MORE

Museums

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

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