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