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

'*** v3.6 *** www.dieseyer.de *******************************
'
' Datei: toansi2.vbs
' Autor: joerg.zuehlke@gmx.de
' Auf: www.dieseyer.de
'
' Wandelt die deutschen ASCII-Zeichen in ANSI-Zeichen oder
' umgekehrt.
'
'************************************************************

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 & Asc2Ans( Text, True ) & vbCRLF & "ASCII: " & vbTAb & Asc2Ans( Asc2Ans( Text, True ) , False ) , 4096, WScript.ScriptName

WScript.Quit

'*** v3.6 *** www.dieseyer.de *******************************
Function Asc2Ans(Txt, As2An)
'************************************************************
' von joerg.zuehlke@gmx.de
'Txt ist der umzuwandelnde Text
'As2An ist True fr Umwandlung von Ascii nach Ansi
'As2An ist False fr Umwandlung von Ansi nach Ascii
Dim um, s, i, j
um=Array("", "߱")
s=Txt
j=Abs(As2An)
For i=1 To Len(um(0))
s=Replace(s, Mid(um(1-j), i, 1), Mid(um(j), i, 1))
Next
Asc2Ans=s
End Function ' Asc2Ans(Txt, As2An)

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