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

tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 15 nov. 2006 à 09:40 - Dernière réponse : tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention
- 15 nov. 2006 à 14:03
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 
Afficher la suite 

Votre réponse

5 réponses

jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 15 nov. 2006 à 10:01
+3
Utile
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
Cette réponse vous a-t-elle aidé ?  
Commenter la réponse de jrivet
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 15 nov. 2006 à 11:01
0
Utile
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 
Commenter la réponse de tof008
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 15 nov. 2006 à 12:01
0
Utile
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 
Commenter la réponse de tof008
jrivet 7401 Messages postés mercredi 23 avril 2003Date d'inscription 6 avril 2012 Dernière intervention - 15 nov. 2006 à 13:40
0
Utile
Re,
Alors la désolé mais je ne sais pas.

@+: Ju£i?n
Pensez: Réponse acceptée
Commenter la réponse de jrivet
tof008 707 Messages postés jeudi 5 mai 2005Date d'inscription 5 janvier 2010 Dernière intervention - 15 nov. 2006 à 14:03
0
Utile
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 
Commenter la réponse de tof008

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.