Nettoyage des chaînes de caractères en ASP

Version imprimable

26/10/2015, 11h42
webshop2

Nettoyage des chaînes de caractères en ASP

Bonjour,

J'ai une chaîne de caractères saisies dans une base de données. Je souhaite remplacer tous les caractères que ne sont pas des lettres (non accentuées) ou des chiffres par un "tiret" afin de nettoyer ces caractères.
Aujourd'hui, je sais remplacer des accents par leur équivalent en lettre (ex. é en e), mais je ne sais pas remplacer des caractères bizarres en "tiret" (exemple de chaîne : "Analyse facture Funecap 1 Premie��re page").

Je travaille en ASP (pas en .Net) et VBScript.

Merci de votre aide
27/10/2015, 23h37
NoSmoking

Bonjour,
si tu as un problème d'encodage autant le régler
:fleche: Passez à l'UTF-8 sans manquer une étape

Si non teste la valeur "ascii" des caractères de ta chaine et agis en conséquence.
31/10/2015, 15h47
webshop2

Bonjour,

Merci de ton aide, mais ma page est en ASP (VBScript) et non PHP, donc le tuto ne me sert pas à grand chose.
Sinon, je cherche une méthode ou un code à incorporer. Je peux effectivement tester les codes Ascii mais c'est fastidieux, il y en a 256.
Je préfèrerais une méthode qui consisterait à dire "tous les caractères qui ne sont pas des lettres de "A à Z" ou de "a à z" et des chiffres de "0 à 9" sont remplacés par des "tirets".

Comment je fais pour faire ça ?

Merci
31/10/2015, 17h13
NoSmoking

Pour ton cas cela vaut surtout pour la façon de gérer les fichiers à l'enregistrement.
Concernant le remplacement des caractères as tu regardé du coté des regExp ? (cela doit bien exister même en ASP)

Bonjour,
Il y a plusieurs niveaux à considérer :
1) ces caractères sont-ils en clair dans la BD ? --> c'est pas sun problème ASP mais BD
2) les pages d'affichages sont-elles déclarées dans le même encodage que la BD ? (UTF-8 ?)
3) l'accès à la base se fait probablement via ODBC : est-il lui-même défini avec le bon encodage ?
4) le fonction ASP server.htmlencode a-t-elle été testée ?
5) voici quelques fonctions ASP autour du codage des caractères, trouvées sur le web : il faut savoir chercher un peu...

Pour répondre au problème indiqué (usage des RegExp) : ça tiens si il n'y a pas d'incoherence d'encodage...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Function epure(st)
     st = lcase(st)
     set regex = new regexp
     regex.ignorecase = true
     regex.global = true
     regex.pattern = "[àâä]"
     st = regex.replace(st,"a")
     regex.pattern = "[îï]"
     st = regex.replace(st,"i")
     regex.pattern = "[ôö]"
     st = regex.replace(st,"o")
     regex.pattern = "[ùûü]"
     st = regex.replace(st,"u")
     regex.pattern = "[éèêëÉ]"
     st = regex.replace(st,"e")
     regex.pattern = "[ç]"
     st = regex.replace(st,"c")
     epure = st
End Function

D'autres fonctions à tester...

Code:

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
'DecodeUTF8
'  Decodes a UTF-8 string to the Windows character set
'  Non-convertable characters are replace by an upside
'  down question mark.
'Returns:
'  A Windows string
function DecodeUTF8(s)
  dim i
  dim c
  dim n
 
  i = 1
  do while i <= len(s)
    c = asc(mid(s,i,1))
    if c and &H80 then
      n = 1
      do while i + n <= len(s)
        if (asc(mid(s,i+n,1)) and &HC0) <> &H80 then
          exit do
        end if
        n = n + 1
      loop
      if n = 2 and ((c and &HE0) = &HC0) then
        c = asc(mid(s,i+1,1)) + &H40 * (c and &H01)
      else
        c = 191 
      end if
      s = left(s,i-1) + chr(c) + mid(s,i+n)
    end if
    i = i + 1
  loop
  DecodeUTF8 = s 
end function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
'EncodeUTF8
'  Encodes a Windows string in UTF-8
'Returns:
'  A UTF-8 encoded string
function EncodeUTF8(s)
  dim i
  dim c
 
  i = 1
  do while i <= len(s)
    c = asc(mid(s,i,1))
    if c >= &H80 then
      s = left(s,i-1) + chr(&HC2 + ((c and &H40) / &H40)) + chr(c and &HBF) + mid(s,i+1)
      i = i + 1
    end if
    i = i + 1
  loop
  EncodeUTF8 = s 
end function

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
Function Utf8ToUnicode(strText)
   With CreateObject("ADODB.Stream")
 
      .Open
      .Charset = "Windows-1252"
 
      .WriteText strText
 
      .Position = 0
      .Type = 2 ' adTypeText
      .Charset = "utf-8"
 
      Utf8ToUnicode = .ReadText(-1) 'adReadAll
 
      .Close
   End With
End Function