[VB6] Compter le nombre d'attributs d'une fonctionRésolu

Question

Bonjour à tous! 
Je dois créer un fichier XML qui contient le nom d'une fonction, le nombre de ses attributs, ainsi que les attributs eux mêmes. Mon gros problême consiste à réussir à compter le nombre d'attributs de cette fonction.
Pour résumer, lorsque je recois la fonction test(att1,att2,att3), je devrai avoir une balise qui contient : nb att = 3.
Quelqu'un pourrait il me dire comment compter le nombre d'attributs?
Merci d'avance!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

jrivet · Accepted Answer

Salut,
L'objet ScriptControl disponible en réference Microsoft Script Control 1.0 peut peu être t'aider 
IL peu te retourner le nom des procédures et le nombre d'arguments.

Essaie ceci:
Dans un nouveau projet ajoute les références suivante:
- Microsoft Script Control 1.0
- Microsot Scripting Runtime

Ensuite dans un fichier "C:\Test.txt" colle ceci
Sub Test1(Arg1, Arg2, Arg3) 

End Sub 

Sub Test2(Arg1) 

End Sub 

Sub Test3(Argument2, Argument1, Argumenti) 

End Sub 

<hr size="2" width="100%" />Puis dans el code de la feuille place ceci:
Option Explicit 

Dim Sc As New ScriptControl 

Private Sub Form_Load() 
Dim Contenu As String 
Dim Fso As New FileSystemObject 
Dim p As Procedure 

Contenu = Fso.OpenTextFile("C:\Test.txt", ForReading).ReadAll 
Sc.Language = "VBScript" 
Call Sc.AddCode(Contenu) 
For Each p In Sc.Procedures 
    MsgBox "Procédure " & p.Name & " possède " & p.NumArgs & " Parametre" 
Next 
Set Sc = Nothing 
End Sub 

Voila j'espere que ca t'aide.
Je n'ai pas essayer avec des Procédures très difficile et je ne connais pas plus que cela le Script Control alors j'espere qu avec des fonction plus difficiles cela fonctionnera quand meme. En revanche je ne sais pas si il te permet de retrouve le nom des Parametres.

@+: Ju£i?n
Pensez: Réponse acceptée

tof008 · Answer

Eh ben merci Julien! 
Je voulais passer mon aprés midi la dessus, et toi tu m'arrange ca en 10 minutes... Merci beaucoup, mais heureusement que je ne suis pas payé à l'heure mdr!
Merci pour ton coup de pouce!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

tof008 · Answer

Par contre si je veux recuperer les procedures sans utiliser un fichier text, comment est ce que je peux faire? En les recuperant directement de mon prog?

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

jrivet · Answer

Re,
Alors la désolé mais je ne sais pas.

@+: Ju£i?n
Pensez: Réponse acceptée

tof008 · Answer

Pas grave, merci quand même, ton code va deja m etre utile... Il ne me reste plus qu'a trouver comment faire pour recuperer le code sans le sortir d un fichier texte et puis voila! Merci a toi!

         (Si la réponse vous convient, appuyez sur réponse acceptée...).

                           Noubliez pas de lire le REGLEMENT

[VB6] Compter le nombre d'attributs d'une fonction

5 réponses

Votre réponse

Discussions similaires