' ----------------------------------------------------------
' Script de Conversion OEM -> ANSI
'
' Syntaxe:
'   oem2ansi <srce> <dest>
'   <srce> : fichier source (texte OEM)
'   <dest> : fichier destination (texte ANSI)
'
' JC BELLAMY © 2002
' ----------------------------------------------------------
Dim oem
oem=array( _
"00","01","02","03","04","05","06","07","08","09","0A","0B","0C","0D","0E","0F", _
"10","11","12","13","14","15","16","17","18","19","1A","1B","1C","1D","1E","1F", _
"20","21","22","23","24","25","26","27","28","29","2A","2B","2C","2D","2E","2F", _
"30","31","32","33","34","35","36","37","38","39","3A","3B","3C","3D","3E","3F", _
"40","41","42","43","44","45","46","47","48","49","4A","4B","4C","4D","4E","4F", _
"50","51","52","53","54","55","56","57","58","59","5A","5B","5C","5D","5E","5F", _
"60","61","62","63","64","65","66","67","68","69","6A","6B","6C","6D","6E","6F", _
"70","71","72","73","74","75","76","77","78","79","7A","7B","7C","7D","7E","7F", _
"C7","FC","E9","E2","E4","E0","E5","E7","EA","EB","E8","EF","EE","EC","C4","C5", _
"C9","E6","C6","F4","F6","F2","FB","F9","FF","D6","DC","F8","A3","D8","D7","83", _
"E1","ED","F3","FA","F1","D1","AA","BA","BF","AE","AC","BD","BC","A1","AB","BB", _
"A6","A6","A6","A6","A6","C1","C2","C0","A9","A6","A6","2B","2B","A2","A5","2B", _
"2B","2D","2D","2B","2D","2B","E3","C3","2B","2B","2D","2D","A6","2D","2B","A4", _
"F0","D0","CA","CB","C8","69","CD","CE","CF","2B","2B","A6","5F","A6","CC","AF", _
"D3","DF","D4","D2","F5","D5","B5","FE","DE","DA","DB","D9","FD","DD","AF","B4", _
"AD","B1","3D","BE","B6","A7","F7","B8","B0","A8","B7","B9","B3","B2","A6","A0")

ForReading = 1
ForWriting = 2

Dim args, fso, fsrce, fdest
Set fso   = WScript.CreateObject("Scripting.FileSystemObject")
Set args  = Wscript.Arguments

' Conversion OEM -> ANSI
If args.count<2 Then 
	strFullName =lcase(WScript.FullName)
	i=InStr(1,strFullName,".exe",1)
	j=InStrRev(strFullName,"\",i,1)
	strCommand=Mid(strFullName,j+1,i-j-1)
	if strCommand<>"cscript" then
		Mess=       "Conversion OEM -> ANSI" & VBCRLF
		Mess=Mess & "JCB © 2002" & VBCRLF
		Mess=Mess & "----------------------" & VBCRLF
		Mess=Mess & "Syntaxe : " & VBCRLF
		Mess=Mess & "   oem2ansi <srce> <dest>"  & VBCRLF
		Mess=Mess & "   <srce> : fichier source (texte OEM)" & VBCRLF
		Mess=Mess & "   <dest> : fichier destination (texte ANSI)" & VBCRLF & VBCRLF
		Mess=Mess & "NB: pour utiliser les flux standards 'stdin' et 'stdout'," & VBCRLF
		Mess=Mess & "    le moteur de script par défaut doit être cscript.exe" & VBCRLF
		Mess=Mess & "    Cela s'obtient par la commande : " & VBCRLF
		Mess=Mess & "    	cscript //H:CScript //S /Nologo" & VBCRLF & VBCRLF
		Mess=Mess & "Si le script récupère en entrée la sortie d'un autre logiciel (piping)," & VBCRLF
		Mess=Mess & "il faut indiquer explicitement 'cscript'" & VBCRLF
		Mess=Mess & "Exemple :" & VBCRLF
		Mess=Mess & "c:\>ping www.inria.fr | cscript oem2ansi.vbs > test.txt" & VBCRLF & VBCRLF
		wscript.echo Mess
		wscript.quit
	else
		Pipe=true
		Set fsrce = WScript.StdIn
		Set fdest = WScript.StdOut
		end if
else		
	Pipe=false
	srce=args(0)
	dest=args(1)
	If not fso.FileExists(srce) Then
		Mess="Le fichier " & srce & " n'existe pas"
		wscript.echo Mess
		wscript.quit
		End If
	Set fsrce=fso.OpenTextFile(srce, ForReading)
	Set fdest=fso.OpenTextFile(dest, ForWriting,true)
	end if
While not fsrce.AtEndOfStream
	oldline=fsrce.ReadLine
	newline=""
	For i = 1 To len(oldline)
		oldc=asc(mid(oldline,i,1))
		newc=oem(oldc)
		newline=newline & chr(hextobyte(newc))
		Next
	fdest.WriteLine newline
	Wend
fdest.close
fsrce.close
If not pipe Then wscript.echo "Conversion terminée"
Wscript.quit

' Utilitaires de conversion hexadécimale
' -------------------------------------
Function hextobyte(s)
c1=Left(s,1)
c2=Right(s,1)
hextobyte=hextobin(c1)*16+hextobin(c2)
End Function
' -------------------------------------
Function hextobin(c)
Select Case c
	Case "0","1","2","3","4","5","6","7","8","9" 
		hextobin=asc(c)-asc("0")		   
	Case else
		hextobin=asc(c)-asc("A")+10
	End Select	
End Function
' -------------------------------------