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