Bonjour à tous

J'utilise une fonction qui a pour rôle de :
- convertir des caractères accentués en caractères normaux
- transformer les minuscule en majuscule
- supprimer des caractères interdit (genre '@' ...)

Jusqu'à ce jour tout fonctionnait parfaitement jusqu'à ce que je change mon database character set ... en UNICODE.

Mon moteur Oracle est une 9i r2 (9.2.0.7)
Côté base de donnée :
- NCHAR : AL16UTF16
- CHAR : AL32UTF8
Côté client oracle :
- version 9.2.0.7
- NLS_LANG= AMERICAN_AMERICA.WE8ISO8859P1

Mon premier problème est que lorsque j'installe la fonction (exécution du script SQL pour compiler l'objet), j'ai des pertes des caractères accentués contenu dans le script !
exemple :
CONTENU DU FICHIER = V_STRING := TRANSLATE ( V_STRING, 'àâ', 'aa' );
CONTENU DE LA BASE = V_STRING := TRANSLATE ( V_STRING, '┐┐', 'aa' );

Une idée sur comment importer la chose ?

Merci à vous...

La fameuse fonction :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
FUNCTION FCT_TRT_E( X_STRING IN VARCHAR2 ) RETURN VARCHAR2 IS
	V_STRING 	VARCHAR2(255);
	V_STRING1 	VARCHAR2(255);
	V_STRING2 	VARCHAR2(2);
	V_LEN		NUMBER;
	V_NUM		NUMBER;
	V_NUM2		NUMBER;
BEGIN
	V_STRING := X_STRING;
 
	-- Libelle
	V_STRING := TRANSLATE ( V_STRING, 'àâ', 'aa' );
	V_STRING := TRANSLATE ( V_STRING, 'ç', 'c' );
	V_STRING := TRANSLATE ( V_STRING, 'éèêë', 'eeee' );
	V_STRING := TRANSLATE ( V_STRING, 'ïî', 'ii' );
	V_STRING := TRANSLATE ( V_STRING, 'ô', 'o' );
	V_STRING := TRANSLATE ( V_STRING, 'ùû', 'uu' );
	V_STRING := REPLACE( V_STRING, CHR(13), ' ' );
	V_STRING := REPLACE( V_STRING, CHR(10), ' ' );
 
	V_STRING := UPPER( V_STRING );
	V_STRING1 := '';
	IF ( V_STRING IS NOT NULL ) THEN
		V_LEN 	 := LENGTH( V_STRING );
		V_NUM 	 := 1;
		<<boucle1>>
		LOOP
		-- FOR V_NUM IN 1..V_LEN LOOP
			IF V_NUM > V_LEN THEN
				exit boucle1;
			END IF;
			V_STRING2 := substr( V_STRING, V_NUM, 1 );
			V_NUM2 := ascii( V_STRING2);
			IF ( ( V_NUM2 > 38 and V_NUM2 < 64 ) or ( V_NUM2 > 64 and V_NUM2 < 94 ) ) THEN
				V_STRING1 := V_STRING1 || V_STRING2;
			ELSE
				V_STRING1 := V_STRING1 || ' ';
			END IF;
			V_NUM := V_NUM +1;
		END LOOP boucle1;
		V_STRING := V_STRING1;
	END IF;
 
	return V_STRING ;
END FCT_TRT_E;