<html>
<title>Espizo ( VBScript )</title>
<head> </head>
<body>
<script language="VBScript">
<!--
Rem *----*----* *----*----* *----*----* *----*----*
Rem エスペラント語 代用文字 一括置換処理
Rem 作譜：Hitrock Camellia Shinopy
Rem 言語：VBScript
Rem 機能...
Rem エスペラント語代用文字を正書文字に置換する。
Rem エスペラント語正書文字を代用文字に置換する。
Rem 注記...
Rem html形式ファイルで使用｡
Rem [Copy][Paste]ボタンはローカルディスクにこのファイルを置いて、
Rem 起動した場合のみ有効。
Rem 履歴...
Rem 第01版 2003/09/28 算法見直し・ボタン追加。
Rem 第02版 2003/12/01 算法見直し・ボタン追加。
Rem 第03版 2003/12/15 ボタン追加。（「&#nnn;」を文字に置換）
Rem 第04版 2004/01/03 算法見直し。（「_」に対応）
Rem 第05版 2004/01/19 算法見直し。（myTextArea.Focusを追加）
Rem 第06版 2004/01/20 Copy・Pasteボタン追加。
Rem 第07版 2004/02/19：EspizoUcAeiouを修正。
Rem 第08版 2004/03/01：Replace関数部分を修正。
Rem 第09版：2004/03/19...
Rem EspiloParaからEspRepsに改名。
Rem EspizoUcCghjsuのLatin-3処理除外。
Rem EspizoUcOthersを文字符号変換処理に追加。
Rem 第10版：2004/12/28：EspXpに改名。
Rem 第11版：2005/08/02：Espizoに改名。
Rem 第12版：2006/07/27：処理選択内容を変更。
Rem *----*----* *----*----* *----*----* *----*----*
Sub EspizoBttn()
Rem *----*----* *----*----* *----*----* *----*----*
Rem 各ボタン処理
Rem *----*----* *----*----* *----*----* *----*----*
For i = 0 To 9
If myFormOption.Elements(i).Checked Then
bttn = myFormOption.Elements(i).Value
End If
Next ' i
'
Select Case bttn
Case 1
Call EspizoSffx("x")
Case 2
Call EspizoSffx("^")
Case 3
Call EspizoUcs2
Case 4
Call EspizoSffx("'")
Case 5
Call EspizoSffx("h")
Case 6
Call EspizoSuff("x")
Case 7
Call EspizoSuff("^")
Case 8
Call EspizoSuff("")
Case 10
Call EspizoPrfx("^") ' ^接頭字記法
Case Else
myText = "頁別処理が設定されていません。"
MsgBox myText, vbOKOnly & vbCritical, myTitle
End Select
End Sub ' EspizoBttn *----*----* *----*----* *----*----* *----*----*
Sub EspizoSffx(mySffx)
Rem *----*----* *----*----* *----*----* *----*----*
Rem 各接尾字記法処理
Rem mySffxの値...
Rem 「^」の場合：^接尾字付き文字を置換する。
Rem 「x」の場合：^接尾字付き文字・x接尾字付き文字ともに置換する。
Rem 「'」の場合：^接尾字付き文字・'接尾字付き文字ともに置換する。
Rem 「h」の場合：^接尾字付き文字・h接尾字付き文字ともに置換する。
Rem *----*----* *----*----* *----*----* *----*----*
myText = myTextArea.Value
'
Call EspizoAeiou("", "^", myText)
Call EspizoAeiou("", "_", myText)
Call EspizoCghjsu("", "^", myText)
If mySffx <> "^" Then
Call EspizoCghjsu("", mySffx, myText)
End If
'
myTextArea.Value = myText
myTextArea.Focus
End Sub ' EspizoSuffix *----*----* *----*----* *----*----* *----*----*
Sub EspizoUcs2()
Rem *----*----* *----*----* *----*----* *----*----*
Rem &;記法処理
Rem 「&〜;」（UCS_2十進符号表記）を検索し、文字列を置換する。
Rem *----*----* *----*----* *----*----* *----*----*
myText = myTextArea.Value
'
Call EspizoUcAeiou(myText)
Call EspizoUcCghjsu(myText)
Call EspizoUcOthers(myText)
'
myTextArea.Value = myText
myTextArea.Focus
End Sub ' EspizoUcs2 *----*----* *----*----* *----*----* *----*----*
Sub EspizoSuff(mySffx)
Rem *----*----* *----*----* *----*----* *----*----*
Rem 代用文字表記処理
Rem 各国文字など各種の文字（Unicodeで160〜511の範囲）を検索し、
Rem (1)：検索した文字列を、UCS_2十進表記に置換する。
Rem (2)：エスペラント語文字を、指定した文字列接尾字付きの文字列に置換する。
Rem (3)：屈音符付き母音字は、「_」接尾字付き文字列に置換する。
Rem mySffxの値...
Rem 「」の場合：検索した総ての文字列を対象に(1)処理。
Rem 「^」の場合：(3)処理をし、(2)処理で「^」接尾字付きの文字列に置換する。
Rem 「x」の場合：(3)処理をし、(2)処理で「x」接尾字付きの文字列に置換する。
Rem *----*----* *----*----* *----*----* *----*----*
myText = myTextArea.Value
'
If mySffx = "" Then
Call EspizoRvOthers(myText)
Else
Call EspizoRvAeiou("", "_", myText)
Call EspizoRvCghjsu("", mySffx, myText)
Call EspizoRvOthers(myText)
End If
'
myTextArea.Value = myText
myTextArea.Focus
End Sub ' EspizoSuff *----*----* *----*----* *----*----* *----*----*
Sub EspizoPrfx(myPrfx)
Rem *----*----* *----*----* *----*----* *----*----*
Rem 各接頭尾字記法処理
Rem myPrfxの値...
Rem 「^」の場合：^接尾字付き文字を置換する。
Rem *----*----* *----*----* *----*----* *----*----*
myText = myTextArea.Value
'
Call EspizoAeiou("^", "", myText)
Call EspizoAeiou("_", "", myText)
Call EspizoCghjsu("^", "", myText)
If myPrfx <> "^" Then
Call EspizoCghjsu(myPrfx, "", myText)
End If
'
myTextArea.Value = myText
myTextArea.Focus
End Sub ' EspizoPrfx *----*----* *----*----* *----*----* *----*----*
Sub PutInClipboard()
If myTextArea.Value = "" Then
myTextArea.Focus
Exit Sub
End If
Set WshShell = CreateObject("Wscript.Shell")
myTextArea.Select
WshShell.SendKeys ("^c") ' コピー
WshShell.SendKeys ("{END}") ' [End]
myTextArea.Focus
End Sub ' PutInClipboard *----*----* *----*----* *----*----*
Sub GetFromClipboard()
Set WshShell = CreateObject("Wscript.Shell")
WshShell.SendKeys ("^v") ' 貼り付け
WshShell.SendKeys ("{END}") ' [End]
myTextArea.Focus
End Sub ' GetFromClipboard *----*----* *----*----* *----*----*
Sub EspizoAeiou(prefixC, suffixC, myText)
myText = Replace(myText, prefixC & "A" & suffixC, ChrW(194)) ' A^
myText = Replace(myText, prefixC & "E" & suffixC, ChrW(202)) ' E^
myText = Replace(myText, prefixC & "I" & suffixC, ChrW(206)) ' I^
myText = Replace(myText, prefixC & "O" & suffixC, ChrW(212)) ' O^
If prefixC = "" Then
myText = Replace(myText, "U_", ChrW(219)) ' U_
Else
myText = Replace(myText, "_U", ChrW(219)) ' U_
End If
'
myText = Replace(myText, prefixC & "a" & suffixC, ChrW(226)) ' a^
myText = Replace(myText, prefixC & "e" & suffixC, ChrW(234)) ' e^
myText = Replace(myText, prefixC & "i" & suffixC, ChrW(238)) ' i^
myText = Replace(myText, prefixC & "o" & suffixC, ChrW(244)) ' o^
If prefixC = "" Then
myText = Replace(myText, "u_", ChrW(251)) ' u_
Else
myText = Replace(myText, "_u", ChrW(251)) ' u_
End If
End Sub ' EspizoAeiou *----*----* *----*----* *----*----* *----*----*
Sub EspizoCghjsu(prefixC, suffixC, myText)
myText = Replace(myText, prefixC & "C" & suffixC, ChrW(264)) ' C^
myText = Replace(myText, prefixC & "G" & suffixC, ChrW(284)) ' G^
myText = Replace(myText, prefixC & "H" & suffixC, ChrW(292)) ' H^
myText = Replace(myText, prefixC & "J" & suffixC, ChrW(308)) ' J^
myText = Replace(myText, prefixC & "S" & suffixC, ChrW(348)) ' S^
If prefixC = "" Then
myText = Replace(myText, "U^", ChrW(364)) ' U^
myText = Replace(myText, "U~", ChrW(364)) ' U^
Select Case suffixC
Case "x"
myText = Replace(myText, "Ux", ChrW(364)) ' U^
Case "h"
myText = Replace(myText, "Uh", ChrW(364)) ' U^
Case "'"
myText = Replace(myText, "U'", ChrW(364)) ' U^
Case ChrW(8217)
myText = Replace(myText, "U" & ChrW(8217), ChrW(364)) ' U^
End Select
Else
myText = Replace(myText, "~U", ChrW(364)) ' U^
If Not (prefixC = "q" Or prefixC = "y") Then
myText = Replace(myText, prefixC & "U", ChrW(364)) ' U^
End If
Select Case prefixC
Case "x"
myText = Replace(myText, "xW", ChrW(364)) ' U^
Case "q"
myText = Replace(myText, "qW", ChrW(364)) ' U^
Case "y"
myText = Replace(myText, "yW", ChrW(364)) ' U^
End Select
End If
'
myText = Replace(myText, prefixC & "c" & suffixC, ChrW(265)) ' c^
myText = Replace(myText, prefixC & "g" & suffixC, ChrW(285)) ' g^
myText = Replace(myText, prefixC & "h" & suffixC, ChrW(293)) ' h^
myText = Replace(myText, prefixC & "j" & suffixC, ChrW(309)) ' j^
myText = Replace(myText, prefixC & "s" & suffixC, ChrW(349)) ' s^
If prefixC = "" Then
myText = Replace(myText, "u^", ChrW(365)) ' u^
myText = Replace(myText, "u~", ChrW(365)) ' u^
Select Case suffixC
Case "x"
myText = Replace(myText, "ux", ChrW(365)) ' u^
Case "h"
myText = Replace(myText, "uh", ChrW(365)) ' u^
Case "'"
myText = Replace(myText, "u'", ChrW(365)) ' U^
Case ChrW(8217)
myText = Replace(myText, "u" & ChrW(8217), ChrW(365)) ' U^
End Select
Else
myText = Replace(myText, "~u", ChrW(365)) ' u^
If Not (prefixC = "q" Or prefixC = "y") Then
myText = Replace(myText, prefixC & "u", ChrW(365)) ' u^
End If
Select Case prefixC
Case "x"
myText = Replace(myText, "xw", ChrW(365)) ' u^
Case "q"
myText = Replace(myText, "qw", ChrW(365)) ' u^
Case "y"
myText = Replace(myText, "yw", ChrW(365)) ' u^
End Select
End If
End Sub ' EspizoCghjsu *----*----* *----*----* *----*----* *----*----*
Sub EspizoUcAeiou(myText)
myText = Replace(myText, "Â", ChrW(194)) ' A_
myText = Replace(myText, "Ê", ChrW(202)) ' E_
myText = Replace(myText, "Î", ChrW(206)) ' I_
myText = Replace(myText, "Ô", ChrW(212)) ' O_
myText = Replace(myText, "Û", ChrW(219)) ' U_
'
myText = Replace(myText, "â", ChrW(226)) ' a_
myText = Replace(myText, "ê", ChrW(234)) ' e_
myText = Replace(myText, "î", ChrW(238)) ' i_
myText = Replace(myText, "ô", ChrW(244)) ' o_
myText = Replace(myText, "û", ChrW(251)) ' u_
End Sub ' EspizoUcAeiou *----*----* *----*----* *----*----* *----*----*
Sub EspizoUcCghjsu(myText)
Rem UTF
myText = Replace(myText, "Ĉ", ChrW(264)) ' C^
myText = Replace(myText, "Ĝ", ChrW(284)) ' G^
myText = Replace(myText, "Ĥ", ChrW(292)) ' H^
myText = Replace(myText, "Ĵ", ChrW(308)) ' J^
myText = Replace(myText, "Ŝ", ChrW(348)) ' S^
myText = Replace(myText, "Ŭ", ChrW(364)) ' U^
'
myText = Replace(myText, "ĉ", ChrW(265)) ' c^
myText = Replace(myText, "ĝ", ChrW(285)) ' g^
myText = Replace(myText, "ĥ", ChrW(293)) ' h^
myText = Replace(myText, "ĵ", ChrW(309)) ' j^
myText = Replace(myText, "ŝ", ChrW(349)) ' s^
myText = Replace(myText, "ŭ", ChrW(365)) ' u^
'
Exit Sub
Rem Latin-3
myText = Replace(myText, ChrW(198), ChrW(264)) ' C^
myText = Replace(myText, ChrW(216), ChrW(284)) ' G^
myText = Replace(myText, ChrW(166), ChrW(292)) ' H^
myText = Replace(myText, ChrW(172), ChrW(308)) ' J^
myText = Replace(myText, ChrW(222), ChrW(348)) ' S^
myText = Replace(myText, ChrW(221), ChrW(364)) ' U^
'
myText = Replace(myText, ChrW(230), ChrW(265)) ' c^
myText = Replace(myText, ChrW(248), ChrW(285)) ' g^
myText = Replace(myText, ChrW(182), ChrW(293)) ' h^
myText = Replace(myText, ChrW(188), ChrW(309)) ' j^
myText = Replace(myText, ChrW(254), ChrW(349)) ' s^
myText = Replace(myText, ChrW(253), ChrW(365)) ' u^
End Sub ' EspizoUcCghjsu *----*----* *----*----* *----*----* *----*----*
Sub EspizoUcOthers(myText)
Dim i
Rem
myText = Replace(myText, " ", ChrW(160))
myText = Replace(myText, "¡", ChrW(161))
myText = Replace(myText, "¢", ChrW(162))
myText = Replace(myText, "£", ChrW(163))
myText = Replace(myText, "¤", ChrW(164))
myText = Replace(myText, "¥", ChrW(165))
myText = Replace(myText, "¦", ChrW(166))
Rem
Rem
myText = Replace(myText, "©", ChrW(169))
myText = Replace(myText, "ª", ChrW(170))
myText = Replace(myText, "«", ChrW(171))
myText = Replace(myText, "¬", ChrW(172))
myText = Replace(myText, "­", ChrW(173))
myText = Replace(myText, "®", ChrW(174))
myText = Replace(myText, "¯", ChrW(175))
Rem
Rem
myText = Replace(myText, "²", ChrW(178))
myText = Replace(myText, "³", ChrW(179))
Rem
myText = Replace(myText, "µ", ChrW(181))
Rem
myText = Replace(myText, "·", ChrW(183))
myText = Replace(myText, "¸", ChrW(184))
myText = Replace(myText, "¹", ChrW(185))
myText = Replace(myText, "º", ChrW(186))
myText = Replace(myText, "»", ChrW(187))
myText = Replace(myText, "¼", ChrW(188))
myText = Replace(myText, "½", ChrW(189))
myText = Replace(myText, "¾", ChrW(190))
myText = Replace(myText, "¿", ChrW(191))
myText = Replace(myText, "À", ChrW(192))
myText = Replace(myText, "Á", ChrW(193))
myText = Replace(myText, "Â", ChrW(194))
myText = Replace(myText, "Ã", ChrW(195))
myText = Replace(myText, "Ä", ChrW(196))
myText = Replace(myText, "Å", ChrW(197))
myText = Replace(myText, "Æ", ChrW(198))
myText = Replace(myText, "Ç", ChrW(199))
myText = Replace(myText, "È", ChrW(200))
myText = Replace(myText, "É", ChrW(201))
myText = Replace(myText, "Ê", ChrW(202))
myText = Replace(myText, "Ë", ChrW(203))
myText = Replace(myText, "Ì", ChrW(204))
myText = Replace(myText, "Í", ChrW(205))
myText = Replace(myText, "Î", ChrW(206))
myText = Replace(myText, "Ï", ChrW(207))
myText = Replace(myText, "Ð", ChrW(208))
myText = Replace(myText, "Ñ", ChrW(209))
myText = Replace(myText, "Ò", ChrW(210))
myText = Replace(myText, "Ó", ChrW(211))
myText = Replace(myText, "Ô", ChrW(212))
myText = Replace(myText, "Õ", ChrW(213))
myText = Replace(myText, "Ö", ChrW(214))
Rem
myText = Replace(myText, "Ø", ChrW(216))
myText = Replace(myText, "Ù", ChrW(217))
myText = Replace(myText, "Ú", ChrW(218))
myText = Replace(myText, "Û", ChrW(219))
myText = Replace(myText, "Ü", ChrW(220))
myText = Replace(myText, "Ý", ChrW(221))
myText = Replace(myText, "Þ", ChrW(222))
myText = Replace(myText, "ß", ChrW(223))
myText = Replace(myText, "à", ChrW(224))
myText = Replace(myText, "á", ChrW(225))
myText = Replace(myText, "â", ChrW(226))
myText = Replace(myText, "ã", ChrW(227))
myText = Replace(myText, "ä", ChrW(228))
myText = Replace(myText, "å", ChrW(229))
myText = Replace(myText, "æ", ChrW(230))
myText = Replace(myText, "ç", ChrW(231))
myText = Replace(myText, "è", ChrW(232))
myText = Replace(myText, "é", ChrW(233))
myText = Replace(myText, "ê", ChrW(234))
myText = Replace(myText, "ë", ChrW(235))
myText = Replace(myText, "ì", ChrW(236))
myText = Replace(myText, "í", ChrW(237))
myText = Replace(myText, "î", ChrW(238))
myText = Replace(myText, "ï", ChrW(239))
myText = Replace(myText, "ð", ChrW(240))
myText = Replace(myText, "ñ", ChrW(241))
myText = Replace(myText, "ò", ChrW(242))
myText = Replace(myText, "ó", ChrW(243))
myText = Replace(myText, "ô", ChrW(244))
myText = Replace(myText, "õ", ChrW(245))
myText = Replace(myText, "ö", ChrW(246))
Rem
myText = Replace(myText, "ø", ChrW(248))
myText = Replace(myText, "ù", ChrW(249))
myText = Replace(myText, "ú", ChrW(250))
myText = Replace(myText, "û", ChrW(251))
myText = Replace(myText, "ü", ChrW(252))
myText = Replace(myText, "ý", ChrW(253))
myText = Replace(myText, "þ", ChrW(254))
myText = Replace(myText, "ÿ", ChrW(255))
'
For i = 256 To 511
myText = Replace(myText, "&#" & i & ";", ChrW(i))
Next ' i
End Sub ' EspizoUcOthers *----*----* *----*----* *----*----* *----*----*
Sub EspizoRvAeiou(prefixC, suffixC, myText)
myText = Replace(myText, ChrW(194), prefixC & "A" & suffixC) ' A^
myText = Replace(myText, ChrW(202), prefixC & "E" & suffixC) ' E^
myText = Replace(myText, ChrW(206), prefixC & "I" & suffixC) ' I^
myText = Replace(myText, ChrW(212), prefixC & "O" & suffixC) ' O^
If prefixC = "" Then
myText = Replace(myText, ChrW(219), "U_") ' U_
Else
myText = Replace(myText, ChrW(219), "_U") ' U_
End If
'
myText = Replace(myText, ChrW(226), prefixC & "a" & suffixC) ' a^
myText = Replace(myText, ChrW(234), prefixC & "e" & suffixC) ' e^
myText = Replace(myText, ChrW(238), prefixC & "i" & suffixC) ' i^
myText = Replace(myText, ChrW(244), prefixC & "o" & suffixC) ' o^
If prefixC = "" Then
myText = Replace(myText, ChrW(251), "u_") ' u_
Else
myText = Replace(myText, ChrW(251), "_u") ' u_
End If
End Sub ' EspizoRvAeiou *----*----* *----*----* *----*----* *----*----*
Sub EspizoRvCghjsu(prefixC, suffixC, myText)
myText = Replace(myText, ChrW(264), prefixC & "C" & suffixC) ' C^
myText = Replace(myText, ChrW(284), prefixC & "G" & suffixC) ' G^
myText = Replace(myText, ChrW(292), prefixC & "H" & suffixC) ' H^
myText = Replace(myText, ChrW(308), prefixC & "J" & suffixC) ' J^
myText = Replace(myText, ChrW(348), prefixC & "S" & suffixC) ' S^
If prefixC = "" Then
Select Case suffixC
Case "x"
myText = Replace(myText, ChrW(364), "Ux") ' U^
Case "h"
myText = Replace(myText, ChrW(364), "Uh") ' U^
Case Else
myText = Replace(myText, ChrW(364), "U^") ' U^
End Select
Else
If Not (prefixC = "q" Or prefixC = "y") Then
myText = Replace(myText, ChrW(364), "^U") ' U^
End If
Select Case prefixC
Case "x"
myText = Replace(myText, ChrW(364), "xW") ' U^
Case "q"
myText = Replace(myText, ChrW(364), "qW") ' U^
Case "y"
myText = Replace(myText, ChrW(364), "yW") ' U^
Case Else
myText = Replace(myText, ChrW(364), "^U") ' U^
End Select
End If
'
myText = Replace(myText, ChrW(265), prefixC & "c" & suffixC) ' c^
myText = Replace(myText, ChrW(285), prefixC & "g" & suffixC) ' g^
myText = Replace(myText, ChrW(293), prefixC & "h" & suffixC) ' h^
myText = Replace(myText, ChrW(309), prefixC & "j" & suffixC) ' j^
myText = Replace(myText, ChrW(349), prefixC & "s" & suffixC) ' s^
If prefixC = "" Then
Select Case suffixC
Case "x"
myText = Replace(myText, ChrW(365), "ux") ' u^
Case "h"
myText = Replace(myText, ChrW(365), "uh") ' u^
Case Else
myText = Replace(myText, ChrW(365), "u^") ' u^
End Select
Else
If Not (prefixC = "q" Or prefixC = "y") Then
myText = Replace(myText, ChrW(365), "^u") ' u^
End If
Select Case prefixC
Case "x"
myText = Replace(myText, ChrW(365), "xw") ' u^
Case "q"
myText = Replace(myText, ChrW(365), "qw") ' u^
Case "y"
myText = Replace(myText, ChrW(365), "yw") ' u^
Case Else
myText = Replace(myText, ChrW(365), "^u") ' u^
End Select
End If
End Sub ' EspizoRvCghjsu *----*----* *----*----* *----*----* *----*----*
Sub EspizoRvOthers(myText)
Dim i
Rem
myText = Replace(myText, ChrW(160), " ")
myText = Replace(myText, ChrW(161), "¡")
myText = Replace(myText, ChrW(162), "¢")
myText = Replace(myText, ChrW(163), "£")
myText = Replace(myText, ChrW(164), "¤")
myText = Replace(myText, ChrW(165), "¥")
myText = Replace(myText, ChrW(166), "¦")
Rem
Rem
myText = Replace(myText, ChrW(169), "©")
myText = Replace(myText, ChrW(170), "ª")
myText = Replace(myText, ChrW(171), "«")
myText = Replace(myText, ChrW(172), "¬")
myText = Replace(myText, ChrW(173), "­")
myText = Replace(myText, ChrW(174), "®")
myText = Replace(myText, ChrW(175), "¯")
Rem
Rem
myText = Replace(myText, ChrW(178), "²")
myText = Replace(myText, ChrW(179), "³")
Rem
myText = Replace(myText, ChrW(181), "µ")
Rem
myText = Replace(myText, ChrW(183), "·")
myText = Replace(myText, ChrW(184), "¸")
myText = Replace(myText, ChrW(185), "¹")
myText = Replace(myText, ChrW(186), "º")
myText = Replace(myText, ChrW(187), "»")
myText = Replace(myText, ChrW(188), "¼")
myText = Replace(myText, ChrW(189), "½")
myText = Replace(myText, ChrW(190), "¾")
myText = Replace(myText, ChrW(191), "¿")
myText = Replace(myText, ChrW(192), "À")
myText = Replace(myText, ChrW(193), "Á")
myText = Replace(myText, ChrW(194), "Â")
myText = Replace(myText, ChrW(195), "Ã")
myText = Replace(myText, ChrW(196), "Ä")
myText = Replace(myText, ChrW(197), "Å")
myText = Replace(myText, ChrW(198), "Æ")
myText = Replace(myText, ChrW(199), "Ç")
myText = Replace(myText, ChrW(200), "È")
myText = Replace(myText, ChrW(201), "É")
myText = Replace(myText, ChrW(202), "Ê")
myText = Replace(myText, ChrW(203), "Ë")
myText = Replace(myText, ChrW(204), "Ì")
myText = Replace(myText, ChrW(205), "Í")
myText = Replace(myText, ChrW(206), "Î")
myText = Replace(myText, ChrW(207), "Ï")
myText = Replace(myText, ChrW(208), "Ð")
myText = Replace(myText, ChrW(209), "Ñ")
myText = Replace(myText, ChrW(210), "Ò")
myText = Replace(myText, ChrW(211), "Ó")
myText = Replace(myText, ChrW(212), "Ô")
myText = Replace(myText, ChrW(213), "Õ")
myText = Replace(myText, ChrW(214), "Ö")
Rem
myText = Replace(myText, ChrW(216), "Ø")
myText = Replace(myText, ChrW(217), "Ù")
myText = Replace(myText, ChrW(218), "Ú")
myText = Replace(myText, ChrW(219), "Û")
myText = Replace(myText, ChrW(220), "Ü")
myText = Replace(myText, ChrW(221), "Ý")
myText = Replace(myText, ChrW(222), "Þ")
myText = Replace(myText, ChrW(223), "ß")
myText = Replace(myText, ChrW(224), "à")
myText = Replace(myText, ChrW(225), "á")
myText = Replace(myText, ChrW(226), "â")
myText = Replace(myText, ChrW(227), "ã")
myText = Replace(myText, ChrW(228), "ä")
myText = Replace(myText, ChrW(229), "å")
myText = Replace(myText, ChrW(230), "æ")
myText = Replace(myText, ChrW(231), "ç")
myText = Replace(myText, ChrW(232), "è")
myText = Replace(myText, ChrW(233), "é")
myText = Replace(myText, ChrW(234), "ê")
myText = Replace(myText, ChrW(235), "ë")
myText = Replace(myText, ChrW(236), "ì")
myText = Replace(myText, ChrW(237), "í")
myText = Replace(myText, ChrW(238), "î")
myText = Replace(myText, ChrW(239), "ï")
myText = Replace(myText, ChrW(240), "ð")
myText = Replace(myText, ChrW(241), "ñ")
myText = Replace(myText, ChrW(242), "ò")
myText = Replace(myText, ChrW(243), "ó")
myText = Replace(myText, ChrW(244), "ô")
myText = Replace(myText, ChrW(245), "õ")
myText = Replace(myText, ChrW(246), "ö")
Rem
myText = Replace(myText, ChrW(248), "ø")
myText = Replace(myText, ChrW(249), "ù")
myText = Replace(myText, ChrW(250), "ú")
myText = Replace(myText, ChrW(251), "û")
myText = Replace(myText, ChrW(252), "ü")
myText = Replace(myText, ChrW(253), "ý")
myText = Replace(myText, ChrW(254), "þ")
myText = Replace(myText, ChrW(255), "ÿ")
'
For i = 256 To 511
myText = Replace(myText, ChrW(i), "&#" & i & ";")
Next ' i
End Sub ' EspizoRvOthers *----*----* *----*----* *----*----* *----*----*
-->
</script>
<p align="center"><textarea rows="6" cols="81" name="myTextArea"></textarea></p>
<p align="center"><input type="button" value=" Run " name="myBttn" onclick="EspizoBttn()" ></p>
<br>
<p align="center">
<input type="button" value="Copy" name="btnCopy" onclick="PutInClipboard()">
<input type="button" value="Paste" name="btnPaste" onclick="GetFromClipboard()">
</p>
<form name="myFormOption">
<p align="center">
<input type="radio" name="myOption" value="1" checked >^x記法
<input type="radio" name="myOption" value="2" >^記法
<input type="radio" name="myOption" value="3" >&;記法
<input type="radio" name="myOption" value="4" >’記法
<input type="radio" name="myOption" value="5" >^h記法
<input type="radio" name="myOption" value="6" >x代用表記
<input type="radio" name="myOption" value="7" >^代用表記
<input type="radio" name="myOption" value="8" >&;代用表記
<input type="radio" name="myOption" value="9" >====
<input type="radio" name="myOption" value="10" >^接頭字記法
</p>
</form>
</body>
</html>
