Discussion :

[Libesa]

Bonjour

J'ai un problème assez pointu, j'analyse un code vba mot par mot, et je voudrais que mon programme me sépare les mots réservés (dim, integer, string, as) du reste (noms des variables, chiffres, signes)

Connaissez-vous un moyen d'accéder au dictionnaire des mots réservés par VB.

Merci d'avance.

[mercatog]

Il y a Notepad++, c'est gratuit (je ne fais pas de publicité)

[Libesa]

Merci, mais en fait je cherche une commande vba qui en gros quand on lui passe en argument dim, as, integer, for ou autre mot du genre nous indique que c'est un mot réservé et quand on lui passe stChaine, wbClasseur, i indique que ce n'est pas un mot reservé.

Merci d'avance.

[EngueEngue]

Tu mets option explicit en haut de ton code... Ca va t'obliger à tout dimensionner... Une fois ceci fait, toutes tes variables déclarées seront des mots non réservés.

[mercatog]

Est ce que tu peux faire ceci? Je veux nommer ma variable For

Code :

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

Dim For As Integer

[EngueEngue]

Non, pourquoi cette question ?

[mercatog]

@EngueEngue

La question était destinée à Libesa. Ton intervention s'est placée entre temps.

Bon voilà tu as répondu car je n'appréhende pas le problème de Libesa

[NVCfrm]

Bonjour

J'ai un problème assez pointu, j'analyse un code vba mot par mot, et je voudrais que mon programme me sépare les mots réservés (dim, integer, string, as) du reste (noms des variables, chiffres, signes)

Connaissez-vous un moyen d'accéder au dictionnaire des mots réservés par VB.

Merci d'avance.

La liste des mots clés est disponible dans l'aide intégrée.

Si je comprends bien, tu voudrais examiner une source à travers un programme.

Merci, mais en fait je cherche une commande vba qui en gros quand on lui passe en argument dim, as, integer, for ou autre mot du genre nous indique que c'est un mot réservé et quand on lui passe stChaine, wbClasseur, i indique que ce n'est pas un mot reservé.

Non cette commande n'existe pas! Il te faut la programmer toi même.

[EngueEngue]

Ce que j'ai compris c'est qu'elle veut lister toutes les variables d'une routine; c'est pourquoi avec un option explicit elle se verra obligée de toute les déclarer et elle en aura la liste.

[Libesa]

Bonjour

Non je veux pas du tout lister les variables.
Voici ce que je veux faire, avec un exemple minimaliste comme celui ci

Code :

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

1
2
3
4
Dim stNombre as String
Dim intNombre as Integer
 
intNombre=Cint(stNombre)

Mon code possede 11 mots, je souhaite recup dans un tableau les valeurs: Dim, as, String, Dim, as, Integer, Cint; et dans un deuxième tableau stNombre, intNombre, intNombre, stNombre.

Merci pour vos idées.

[EngueEngue]

La fonction n'existe pas...

Tu peux te galérer à coder un truc dans le genre:

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
Sub toto()
Dim Tablo1(1 To 10)
Dim k As Integer
k = 1
reservvba = Array("AddHandler", "AddressOf", "Alias", "And", "Dim", "As", "String", "Integer", "CInt") '... Rajoute tous les autres
signes = Array("+", "-", "*", "=", "/")
Text = "Dim stNombre As String Dim intNombre As Integer intNombre = CInt(stNombre)"
Test = Split(Text, " ")
For i = LBound(Test) To UBound(Test)
For j = LBound(reservvba) To UBound(reservvba)
If Test(i) = reservvba(j) Then
Tablo1(k) = Test(i)
Debug.Print Tablo1(k)
k = k + 1
End If
Next j
Next i
End Sub

Ici la liste des mots clés:
http://msdn.microsoft.com/en-us/libr...(v=vs.90).aspx

Une fois ton code terminé poste le nous il sera intéressant de voir ta façon de gérer les "(" et les "." !

[Libesa]

Merci.

C'est la conclusion à laquelle j'étais arrivé il faut géré ca avec une liste exhaustive des mots reservés.

Pour les parenthèses et point, c'est facile aucun mot reservé ni aucune de mes variables ne fait moins de 2 lettres, donc avec une condition sur len<2, ca devrait le faire.

Mais effectivement en utilisant split (test, " ") je vais être embété par des expressions du genre ThisWorkbook.VBProject.VBComponents("TEST").

Faut que je reflechisse à tout ça.