'*** 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� 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 & 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 f�r Umwandlung von Ascii nach Ansi 

'As2An ist False f�r 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)