Discussion :

[bailamos]

salut tous le monde
j'ai fait cette function pour coder les lettre arabe en ascw sauf que la boucle do while prend boucoup de temps meme si le texte ne contient que 100cacactere ce qui est peut je croit pour que ca prend plus que 15 min

merci d'avance

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
Private Sub convert()
Do While i.Caption < Len(a.Text) + 1
m = Mid(a.Text, i.Caption, 1)
If m Like "[A-Z]#[a-z]#[0-9]" Then 
c = m
Else
c = "&#" & AscW(m) & ";"
End If
b.Text = b.Text & c
i.Caption = i.Caption + 1
Loop
End Sub

[ucfoutu]

Bonjour,

déjà :

- Pourquoi diable passer par le caption d'un contrôle et non utiliser directement une variable ?
- un caption est de surcroît une chaîne de caractères et non un numérique ... et alors :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Do While i.Caption < Len(a.Text) + 1

n'est pas ce qu'il y a de plus orthodoxe ...
Au bout du compte :

on ne lit qu'une fois a.text (dans toto, par exemple)

dim toto as string
toto = a.text

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
for i = 1 to len(toto)
  m = mid(toto,i,1)
  etc...
next

et regarde donc ce que fait ceci, qui utilise un tableau d'octets et est donc plus rapide que Mid :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
Private Sub Command1_Click()
 toto = "bonjour ami"
 Dim titi() As Byte
 titi = StrConv(toto, vbFromUnicode)
 For i = 0 To UBound(titi)
   MsgBox titi(i) & " =====>> " & Chr(titi(i))
 Next
End Sub

analyse, comprends et sers-t-en ....

[ProgElecT]

Pour ajouter à ucfoutu (Salut), car j'etais en train de rediger ce qui suit.

j'ai fait cette function

Une fonction renvoie le résultat dans son nom, là tu nous as fait une Sub.

Malgré le temps important, ta sub te permet-elle de convertir correctement la chaîne?

Un Doevents, dans une boucle et une bonne précaution (mais ne fait pas gagner de temps).

Plutôt que d'incrémenter par le biais de i.Caption, il serait plus propre de le faire par une variable de type Integer, rien ne t'empêchant de l'afficher dans un label , un léger gain en temps est même envisageable, VB n'ayant pas a interpréter un String (i.Caption) qu'il converti en Integer pour lui ajouter le +1.
En règle générale, passes par des variables typées plutôt que par des objets, ceci étant valables pour m = Mid(a.Text, i.Caption, 1), m = Mid(Chaine1, i, 1), Chaine1 étant de type String et i de type Integer.

[Delbeke]

Heu, je comprends pas trop pourquoi tu utilises un do while, une for / next serait largement suffisante , non ?

De plus, il serait plus judicieux de faire une fonction, a mon avis, ce qui rendrait la routine plus polyvalente

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Private Function Convert(Text as String) as String
  Dim iPnt as Integer
  Dim Char as String
  Dim strTemp as String
  For iPnt = 1 to Len(Text)
     Char = mid(Text ,iPnt ,1)
     If Char Like "[A-Z]#[a-z]#[0-9]" Then 
        strTemp = strTemp & Char
     Else
       strTemp = strTemp & "&#" & AscW(Char) & ";"
     End If
  Next
  Convert= strTemp
End Function

Apres on utilise comme ceci

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

A.Text=Convert(B.Text)

[Delbeke]

Décidement, C'est le grand rendez vous, Amitiés ucfoutu et progelect.

Ta solution est très élégante, ucfoutu, la mienne fait plutot , hum, clodo , à coté.

[ucfoutu]

Re (et salut à Progelect et à Delbeke).

Disons ici en outre que :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

If Char Like "[A-Z]#[a-z]#[0-9]" Then

n'est pas vraiment souhaitable dans un tel cas ! Le like est lourd et étrange car le filtre "[A-Z]#[a-z]#[0-9]" ne correspondra JAMAIS à UN SEUL caractère (Char = mid(Text ,iPnt ,1))....!!!!

Je continuerais volontiers, mais les choses sont trop simples et je préfère voir notre ami se creuser un peu les méninges, d'abord !!!