;~~Author~~.          PERDOUX
;~~Email_Address~~. perdoux@ifsic.univ-rennes1.fr
;~~Script_Type~~.   Kix
;~~Sub_Type~~. Misc
;~~Keywords~~.      ANSI, ASCII

;~~Comment~~.
;Characters without accents and numbers are represented by the same coding in ANSI and in ASCII. Emphasized character codes are different. This program allows to transform the text of error messages provide by the macro @ERROR of KiX32 v3.50. This program functions with French versions of Windows NT 4.0 and 95

;~~Script~~.

;Example :
;COPY "C:\File_dont_exist" "%TEMP%"
;$SError = @SERROR
;" Before : " + $SError ?
;CALL @SCRIPTDIR + "\ANS2ASC"
;" After  : " + $SError ?

;ANSI2ASCII
	$Ascii =	CHR( 132 ) + CHR( 148 ) + CHR( 129 ) + CHR( 225 ) +
				CHR( 142 ) + CHR( 153 ) + CHR( 154 ) + CHR( 128 ) +
				CHR( 130 ) + CHR( 131 ) + CHR( 133 ) + CHR( 134 ) +
				CHR( 135 ) + CHR( 136 ) + CHR( 137 ) + CHR( 138 ) +
				CHR( 139 ) + CHR( 140 ) + CHR( 143 ) + CHR( 144 ) +
				CHR( 147 ) + CHR( 150 ) + CHR( 151 )
	$Ansi =	"äöüßÄÖÜÇéâàåçêëèïîÅÉôûù"

	$i = 1
	WHILE $i < LEN( $Ansi )
		$j = INSTR( $SError, SUBSTR( $Ansi, $i, 1 ) )
		WHILE $j
			$SError = SUBSTR( $SError, 1, $j - 1 ) + SUBSTR( $Ascii, $i, 1 ) +
				SUBSTR( $SError, $j + 1, LEN( $SError ) - $j )
			$j = INSTR( $SError, SUBSTR( $Ansi, $i, 1 ) )
		LOOP
		$i = $i + 1
	LOOP
RETURN