http://dieseyer.de • all rights reserved • © 2011 v11.4

'*** 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 luft 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 )


http://dieseyer.de • all rights reserved • © 2011 v11.4