'*** v5.9 *** www.dieseyer.de ******************************** ' ' Datei: toansi.vbs ' Autor: dieseyer@gmx.de ' Auf: www.dieseyer.de ' ' Wandelt die deutschen ASCII-Zeichen in ANSI-Zeichen. ' '************************************************************ Option Explicit ' Siehe http://dieseyer.de/dse-wsh-lernen.html#OptionExpl Dim WSHShell : Set WSHShell = WScript.CreateObject("WScript.Shell") Dim fso : Set fso = WScript.CreateObject("Scripting.FileSystemObject") Dim TmpDatei, Text TmpDatei = fso.GetbaseName( WScript.ScriptName ) & ".tmp" WSHShell.Run "%comspec% /c echo YYY daß läuft übers Öhr ÖöüÜäÄß YYY > " & TmpDatei, , True WScript.Sleep( 333 ) Dim FileIn : Set FileIn = FSO.OpenTextFile( TmpDatei, 1 ) Text = FileIn.ReadAll FileIn.Close Set FileIn = Nothing fso.DeleteFile( TmpDatei ) MsgBox "ASCII: " & vbTAb & Text & vbCRLF & "ANSI: " & vbTAb & ToANSI( Text ), 4096, WScript.ScriptName WScript.Quit '*** v5.9 *** www.dieseyer.de ******************************** Function ToANSI( ASCIIz ) '*********************************************************** ' von Christoph Basedau aus ' http://groups.google.de/groups?q=ToANSI+%3D+Replace&hl=de&lr=&newwindow=1&selm=ugGVQok3AHA.1604%40tkmsftngp02&rnum=1 ToANSI = Replace(ASCIIz, chr(132), chr(228)) ToANSI = Replace(ToANSI, chr(129), chr(252)) ToANSI = Replace(ToANSI, chr(142), Chr(196)) ToANSI = Replace(ToANSI, chr(154), Chr(220)) ToANSI = Replace(ToANSI, chr(153), Chr(214)) ToANSI = Replace(ToANSI, chr(148), Chr(246)) ToANSI = Replace(ToANSI, chr(225), Chr(223)) End Function ' ToANSI( ASCIIz )