Problème de RegExp

Je ne vois pas de polémique.

Code:

---

mot_valable("abc123456ABCG€")

---

Renvoi faux alors qu'il y a plus de 8 caractères, des minuscules, des majuscules, des chiffres et des caractères spéciaux.

Performances :
Ma fonction : 3,00390625 s
Celle avec StrConv : 10,265625 s

Je me suis donc "penché" sur les raisons de ce retour "Faux" -->>
Le caractère "€" n'est pas un caractère de la table ASCII.
Il est déjà le caractère unicode U+20AC de valeur décimale 8364
Il suffit donc de le remplacer d'emblée par n'importe quel autre caractère spécial, par exemple "#" -->>

Code:

---

1 2 3

Private Function mot_valable(by val ch As String) As Boolean ch = Replace(ch, "€", "#") '... etc ..

---

attention : déclarer du coup ch par valeur (pour ne pas transformer la chaîne initiale)

Remplacer les caractères très spéciaux n'est qu'un pansement à mon avis.

Alors oui on peut dire qu'il n'y a que peu de caractères très spéciaux sur un clavier français.
Mais quand on travaille dans une entreprise internationale, on a des utilisateurs avec d'autres claviers.

Certes, Arkham
Ce problème-là est bien réel.
Mais dis-moi : comment l'éviter, que ce soit avec MID ou avec STRCONV, pour éviter de définir universellement en dur dans le contrôle de validité les lettres alphabétiques, tant en majuscule qu'en minuscule ?

Ouais ... tout bien pensé, il reste l'utilisation de strconv, mais avec le paramètre vbfromunicode, de sorte à obtenir , plutôt qu'une chaîne de caractères à "éclater" en un array, diretement un array d'octets à analyser (va falloir alors inévitablement aller à la lourde pêche des codes ascii :pleure:). ;)

EDIT : Bon .. je vais faire cela avec beaucoup de patience ce soir.

Quelque soit le langage de l'utilisateur, les lettres non accentués et les chiffres sont les mêmes.
Ensuite le plus simple est de considérer que tout autre caractère est un caractère spécial, y compris les caractères accentués.

Sinon on peut avoir un tableau de byte directement avec StrConv et vbUnicode, il suffit que la variable qui reçoit le retour soit un tableau de byte.
Mais on obtient 4 bytes par caractère, difficile à analyser.
Avec vbFromUnicode on n'a qu'un byte par caractère, mais avec une conversion qui altère les données.

Si tu souhaites convertir une chaîne en tableau, il suffit d'une simple d'affection sans conversion :

Code:

---

1 2	Dim b() As Byte b = "€aABCG$0"

---

Ensuite il faut faire un traitement sur chaque élément du tableau, pris 2 par 2 :

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

Public Function motValable2(pText As String) As Boolean Const cMin = 8 Dim hasMaj As Boolean Dim hasMin As Boolean Dim hasNumber As Boolean Dim hasSpecial As Boolean Dim i As Long Dim buffer() As Byte Dim b As Byte If Len(pText) >= cMin Then buffer = pText For i = LBound(buffer) To UBound(buffer) - 1 Step 2 If buffer(i + 1) = 0 Then b = buffer(i) If b >= 65 And b <= 90 Then hasMaj = True ElseIf b >= 97 And b <= 122 Then hasMin = True ElseIf b >= 48 And b <= 57 Then hasNumber = True Else hasSpecial = True End If Else hasSpecial = True End If If hasMaj And hasMin And hasNumber And hasSpecial Then motValable2 = True Exit For End If Next End If End Function

---

C'est 3 fois plus rapide que la méthode avec Mid.
Mais si on ne cherche pas la performance, j'éviterais de passer par un tableau de byte et des codes ascii ; plus difficile à lire et à maintenir.

StrConv est pratique et fonctionne très bien pour des conversions vers et depuis des librairies externes qui travaillent en ANSI.
Je l'ai utilisé souvent mais pas pour faire du traitement de chaîne de caractères ; je ne connais pas assez son fonctionnement interne pour m'y fier dans ce cas.

Voilà avec strconv et conversion en array d'octets -->>

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

Private Sub CommandButton1_Click() Dim deb As Double deb = Timer For k = 1 To 100000 resu = mot_valide("12à3456ABCGA€") Next TextBox1.Text = resu & " en " & Timer - deb & " secondes" End Sub   Private Function mot_valide(ByVal ch As String) As Boolean Dim titi() As Byte N = Array(0, 0, 0, 0) titi = StrConv(ch, vbFromUnicode) For k = 0 To UBound(titi) Select Case titi(k) Case 65 To 90, 192 To 220 N(0) = 1 Case 97 To 122, 221 To 255 N(1) = 1 Case 48 To 57 N(2) = 1 Case Else N(3) = 1 End Select Next If WorksheetFunction.Sum(N) = 4 Then mot_valide = True End Function

---

Et dans cet exemple : j'accepte les lettres accentuées, tant minuscules que majuscules, comme des lettres de l'alphabet. Il est clair que l'on peut les "bouger" de place et les considérer comme caractères spéciaux, si on le désire ;)
Et pour ce qui est du temps de traitement (sur ma vieille bécane), cette image "parle" --->>
Pièce jointe 452160

Citation:

---

Envoyé par unparia

Voilà avec strconv et conversion en array d'octets

---

Attention quand même, ce n'est pas qu'une conversion en array, c'est une conversion de ansi vers unicode.
C'est pour cela qu'on obtient 4 octets par caractère : vb travaille déjà en unicode donc on converti en fait n'importe quoi.

Vraiment je ne comprend pourquoi s'obstiner à utiliser StrConv.

Bonjour,

je ne suis pas expert dans les conversions d'octets et autres (j'aimerai m'y pencher), mais je trouve le sujet intéressant

Les paramètres :

Citation:

---

Envoyé par joss_villiers

Bonjour,
On accepte tout les caractères spéciaux.
Au minimum 1 Maj, 1 min, 1 chiffre, 1 caractère spécial pour un mot de passe de 8 caractère minimum.

---

Donc si l'on prends ce string "12à3456ABCGA€" on devrait logiquement avoir vrai
j'ai testé les 2 derniers code déjà pour le résultat (PS : Jacques rien de grave mais je crois qu'il manque le : If Len(MonString) >= 8 then …) :

Code:

---

1 2	Debug.Print "unparia : pour 12à3456ABCGA€ => résultat = " & mot_valide("12à3456ABCGA€") Debug.Print "Arkham46 : pour 12à3456ABCGA€ => résultat = " & motValable2("12à3456ABCGA€")

---

unparia : pour 12à3456ABCGA€ => résultat = Vrai
Arkham46 : pour 12à3456ABCGA€ => résultat = Faux

Petite précision : testé sur Mac, je ne suis pas sur que cela change grand chose

Autre petite chose (pardonnez moi si c'est moi qui a une incompréhension) différence de certains caractères selon si l'on passe par Byte ou Asc ?? :
Exp :

Code:

---

1 2 3 4 5 6

Sub certainCara() Dim titi() As Byte titi = StrConv("€", vbFromUnicode) Debug.Print "via titi => " & titi(0) Debug.Print "via Asc => " & Asc("€") End Sub

---

via titi => 128
via Asc => 219
Alors que pour d'autre comme par exemple le "A" … etc, la correspondance est ok
Pouvez vous me dire ce que j'ai loupé ??

Bonjour Ryu,

Dans ma fonction motValable2 je considère les caractères accentués comme des caractères spéciaux (ne sachant pas le besoin j'ai fait au plus simple).
unparia a géré les caractères accentués différemment (considérés comme des lettres non accentuées) dans sa dernière fonction.
Donc c'est normal qu'on ait pas le même résultat.

Pour le signe €, j'obtiens 128 dans les deux cas sur Windows.
Là du coup c'est peut-être du au Mac ?

Arkham46 merci pour ta réponse
Que devrais-je faire/chercher (quelle direction) pour comprendre d'où vient le résultat Asc("€") => 219 ??

Apparemment, je devrais peut être plus me fier à l'avenir, pour le résultat des caractères spéciaux,
ceux dont le résultat sont donnés par Byte !!??
Surtout pour du code transverse Mac/PC !! ??

Edit : Chr(128) me donne : Ä sur Mac

Ryu,

Essaye les fonctions AscW et ChrW (versions unicode de ces fonctions).
Elles semblent être moins dépendante du système.

re
bonjour a tous
en effet avec chrw et ascw ont a pas les meme résultats sur windows non plus

Code:

---

1 2 3 4 5 6 7 8

Sub test() Debug.Print "avec ascW sur ""€"" =" & AscW("€") Debug.Print "avec asc sur ""€"" =" & Asc("€") Debug.Print "avec Chr sur 128 =" & Chr(128) Debug.Print "avec ChrW sur 8364 =" & ChrW(8364) Debug.Print "avec int et ascW + calcul sur ""€"" =" & Int(AscW("€") / 65) End Sub

---

- Merci Arkham46 je vais me pencher dessus

- Salut Patrick : sur quoi tu es parti pour faire ce calcul (pourquoi le int et le 65 et la division) ??

Édit : mauvaise nouvelle, je suis tombé sur cela :

Citation:

---

Notes
Visual Basic pour Macintosh ne prend pas en charge les chaînes Unicode. Par conséquent, AscW (n) ne peut pas renvoyer tous les caractères Unicode pour les valeurs n dans la plage de 128–65 535, tel qu’il le fait dans l’environnement de Windows. Au lieu de cela, AscW (n) tente une « estimation » des valeurs Unicode n supérieures à 127. Par conséquent, vous ne devriez pas utiliser AscW dans l’environnement Macintosh.

---

Le lien : https://docs.microsoft.com/fr-fr/off...p/asc-function

Tant pis pour AscW...
Je vois qu'il est également indiqué dans l'aide que Mac ne supporte pas StrConv avec vbFromUnicode ou vbUnicode.

Citation:

---

Envoyé par RyuAutodidacte

Que devrais-je faire/chercher (quelle direction) pour comprendre d'où vient le résultat Asc("€") => 219 ??

---

219 c'est le code Mac pour € :
http://ascii-table.com/ascii-extended-mac-table.php

Ce qui serait intéressant c'est de voir comment est stocké le caractère dans le VBE Mac :

Code:

---

1 2 3 4 5

Dim b() As Byte, i As Long b = "€" For i = LBound(b) To UBound(b) Debug.Print b(i) Next

---

Sous Windows et le bon vieux éditeur, j'ai :

Citation:

---

172
32

---

Il faut également noter que ce qui se passe dans VBE (y compris dans les userForms) est peut-être différent de ce qui se passe dans une cellule (qui semble être en UTF-8 contrairement à l'éditeur qui s'adapte au code page du système):
Si je mets € dans la cellule active, le même code avec :

Code:

---

b = ActiveCell.Value

---

me renvoi la même chose.

Re,

je viens de faire les tests ci-dessus avec le € dans les code puis la cellule active :

Résultat :

• Dans le code :
172
32

• Dans la cellule active :
172
32

le résultat est identique au tiens

Merci, au moins ça c'est identique.
Donc apparemment un String VB est bien en Unicode sur Mac également (en tout cas sur ta version).

C'est la fonction Asc qui doit faire une conversion vers le code page Mac.

Les chaînes de caractères VB/VBA ne sont pas en unicode

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Private Declare Function IsTextUnicode Lib "advapi32" (ByVal lpBuffer As String, ByVal cb As Long, lpi As Long) As Long   Private Sub CommandButton1_Click() Dim ch As String ch = "n'importe quoi" MsgBox "ch est_elle en unicode ? --->> " & CBool(IsTextUnicode(ch, Len(ch), &H2)) ch = StrConv(ch, vbUnicode) MsgBox "ch est-elle maintenant en unicode? --->> " & CBool(IsTextUnicode(ch, Len(ch), &H2)) ch = StrConv(ch, vbFromUnicode) MsgBox "ch est-elle encore en unicode? --->> " & CBool(IsTextUnicode(ch, Len(ch), &H2)) End Sub

---

Les caractères ascii 128 à 159 inclus ne sont pas pris en charge par Windows
Bonne chance à tous.

Si elle ne sont pas en unicode, elles sont en quoi ?

Et windows qui ne gère pas les caractères 128 à 159 ça vient d'où ?

Il faut qu'on cherche ?

Entre autres : Rubrique Jeu de caractères (128 à 255) de l'aide interne.

Et pourquoi &h2 dans l'appel à isTextUnicode ?
Pour faire beau ?

On était reparti dans quelque chose de constructif, tant pis.