Option Explicit Rem *----*----* *----*----* *----*----* *----*----* Rem Espizo(エスペラント語用代用文字変換処理VBScript) Rem 作譜:Hitrock Camellia Shinopy Rem 言語:VBScript Rem 機能... Rem エスペラント語代用文字を正書文字に置換する。 Rem 注記... Rem 当面は、代用文字→正書文字のみ対処可能。文字化け注意。 Rem 履歴... Rem 第1版:2003/04/20 作成。 Rem 第2版:2003/05/01 算法見直し。 Rem 第3版:2004/01/03 算法見直し。 Rem 第4版:2004/03/19... Rem EspiloParaからEspRepsに改名。 Rem EspizoUcCghjsuのLatin-3処理除外。 Rem EspizoUcOthersを文字符号変換処理に追加。 Rem 第5版:2004/12/28:Espizoに改名。 Rem 第6版:2005/07/28:プロシージャ名変更。 Rem 第7版:2006/07/07:InputBox表示を見直し。 Rem *----*----* *----*----* *----*----* *----*----* Dim myDrop, myFso, myInFile, myOtFile Dim myAns, myFileName, myText Dim myValue, myMenue, myTitle ' myTitle = "Espizo" myTitle = myTitle & ":エスペラント語 代用文字 一括変換" If WScript.Arguments.Count <= 0 Then myAns = MsgBox("テキスト形式ファイルのアイコンを、" & vbCrLf _ & WScript.ScriptName & "のアイコン上に、" & _ "ドラッグ&ドロップして下さい。" & vbCrLf _ & "ファイル名の後に「Eo」を付けたファイルを作成します。", _ vbOKonly+vbInformation, myTitle) WScript.Quit End If ' myDrop = Wscript.Arguments(0) myAns = MsgBox("入力元ファイル:" & vbCrLf & myDrop, vbOKCancel+vbInformation, myTitle) If myAns = vbCancel Then WScript.Quit End If ' Set myFso = WScript.CreateObject("Scripting.FileSystemObject") Set myInFile = myFso.OpenTextFile(myDrop, 1, -1) ' myFileName = myFso.GetParentFolderName(myDrop) _ & "\" & myFso.GetBaseName(myDrop) & "Eo." & myFso.GetExtensionName(myDrop) myAns = MsgBox("出力先ファイル:" & vbCrLf & myFileName, vbOKCancel+vbInformation, myTitle) If myAns = vbCancel Then myInFile.Close WScript.Quit End If myMenue = "表記を選択して下さい。" & vbCrLf & _ " 1. ^x記法" & vbCrLf & _ " 2. x記法" & vbCrLf & _ " 3. &;記法" & vbCrLf & _ " 4. ^’記法" & vbCrLf & _ " 5. ^h記法" & vbCrLf & _ "10. ^接頭字記法" ' " 6. x代用記法" & vbCrLf & _ ' " 7. ^代用記法" & vbCrLf & _ ' " 8. &;代用記法" & vbCrLf & _ ' " 9. =====" & vbCrLf & _ myValue = InputBox(myMenue, myTitle, 1) If myValue = "" Then Rem キャンセル myInFile.Close WScript.Quit End If If IsNumeric(myValue) Then Select Case myValue Case 1, 2, 3, 4, 5, 10 Rem ' Case 6, 7, 8 ' Rem Case Else MsgBox "数字が範囲外です。", vbCritical, myTitle myInFile.Close WScript.Quit End Select Else MsgBox "数字を入力して下さい。", vbCritical, myTitle myInFile.Close WScript.Quit End If ' Set myOtFile = myFso.CreateTextFile(myFileName, True, True) ' Do While Not myInFile.AtEndOfStream myText = myInFile.ReadLine Rem Select Case myValue Case 1 Call EspizoAeiou("", "^", myText) Call EspizoAeiou("", "_", myText) Call EspizoCghjsu("", "^", myText) Call EspizoCghjsu("", "x", myText) Case 2 Call EspizoAeiou("", "^", myText) Call EspizoAeiou("", "_", myText) Call EspizoCghjsu("", "^", myText) Case 3 Call EspizoUcAeiou(myText) Call EspizoUcCghjsu(myText) Call EspizoUcOthers(myText) Case 4 Call EspizoAeiou("", "^", myText) Call EspizoAeiou("", "_", myText) Call EspizoCghjsu("", "^", myText) Call EspizoCghjsu("", "'", myText) Call EspizoCghjsu("", ChrW(8217), myText) Case 5 Call EspizoAeiou("", "^", myText) Call EspizoAeiou("", "_", myText) Call EspizoCghjsu("", "^", myText) Call EspizoCghjsu("", "h", myText) Case 6 Call EspizoRvAeiou("", "_", myText) Call EspizoRvCghjsu("", "x", myText) Call EspizoRvOthers(myText) Case 7 Call EspizoRvAeiou("", "_", myText) Call EspizoRvCghjsu("", "^", myText) Call EspizoRvOthers(myText) Case 8 Call EspizoRvOthers(myText) Case 9 Rem 処理しない。 Case 10 Call EspizoAeiou("^", "", myText) Call EspizoAeiou("_", "", myText) Call EspizoCghjsu("^", "", myText) Case Else myText = "処理が設定されていません。" MsgBox myText, vbOKOnly & vbCritical, myTitle WScript.Quit End Select Rem myOtFile.WriteLine (myText) Loop ' myInFile.Close myOtFile.Close MsgBox "処理が終了しました。", vbOKonly+vbInformation, myTitle WScript.Quit Rem *----*----* *----*----* *----*----* *----*----* 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 *----*----* *----*----* *----*----* *----*----*