EXECUTE "SET-THOUS ."
EXECUTE "SET-DEC ,"
EXECUTE "DATE.FORMAT"
OPEN "","DADS-U" TO F.DADSU ELSE STOP
PRINT "Nom de fichier ?"
INPUT W_NomFic
READ ENR FROM F.DADSU,W_NomFic THEN
W_Count = DCOUNT(ENR,CHAR(254))
FOR i = 1 TO W_Count
	IF ENR<i>[1,14]='S30.G01.00.002' OR ENR<i>[1,14]='S30.G01.00.010' THEN
		PRINT i:"/":W_Count
		W_TXTACONVERTIR = FIELD(ENR<i>,"'",2)
		GOSUB 999999
		IF W_TXTACONVERTIR # FIELD(ENR<i>,"'",2) THEN
			PRINT i
			DEBUG
		END
	END
NEXT i
END
STOP
999999
	FOR Z = 1 TO LEN(W_TXTACONVERTIR)
		IF Z > LEN(W_TXTACONVERTIR) THEN EXIT
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 33 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 38 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) = 39 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:" ":W_TXTACONVERTIR[Z+1,999]
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 40 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 44 THEN
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) = 45 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:" ":W_TXTACONVERTIR[Z+1,999]
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 46 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 47 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 91 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 96 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 123 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 159 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 161 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 191 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:" ":W_TXTACONVERTIR[Z+1,999]
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 208 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 209 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 215 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 216 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 222 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 223 THEN 
			W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:W_TXTACONVERTIR[Z+1,999]
			Z = Z - 1
		END
		* A
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 192 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 198 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"A":W_TXTACONVERTIR[Z+1,999]
		* C
		IF SEQ(W_TXTACONVERTIR[Z,1]) = 199 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"C":W_TXTACONVERTIR[Z+1,999]
		* E
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 200 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 203 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"E":W_TXTACONVERTIR[Z+1,999]
		* I
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 204 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 207 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"I":W_TXTACONVERTIR[Z+1,999]
		* O
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 210 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 214 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"O":W_TXTACONVERTIR[Z+1,999]
		* U
		IF SEQ(W_TXTACONVERTIR[Z,1]) >= 217 AND SEQ(W_TXTACONVERTIR[Z,1]) <= 220 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"U":W_TXTACONVERTIR[Z+1,999]
		* Y
		IF SEQ(W_TXTACONVERTIR[Z,1]) = 221 THEN W_TXTACONVERTIR = W_TXTACONVERTIR[1,Z-1]:"Y":W_TXTACONVERTIR[Z+1,999]		
	NEXT Z
	W_TXTACONVERTIR = TRIM(W_TXTACONVERTIR)
RETURN
