Fonction dans un fichier externe

Bonjour
je travail actuellement sur un script qui traite la conjugaison de la phrase utilisateur
à plusieurs moments (une bonne cinquantaine de fois) je suis obligé de mettre au propre la phrase (pb avec les espaces).
pour cela je cherche a appelé une fonction dans un fichier externe.

VOICI LE L'EXEMPLE DANS LE SCRIPT PRINCIPAL

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

'----------------------------------------------------------------------- 1 Dim fsObj : Set fsObj = CreateObject("Scripting.FileSystemObject") 2 Dim vbsFile : Set vbsFile = fsObj.OpenTextFile("IruFunction.vbs", 1, False) 3 Dim IruFormat : IruFormat = vbsFile.ReadAll 4 vbsFile.Close 5 Set vbsFile = Nothing 6 Set fsObj = Nothing 7 ExecuteGlobal IruFormat '------------------------------------------------------------------------- 'ici j'appel la fonction pour la mise au propre des espaces suite aux différents traitements que le script a appliqué sur la phrase utilisateur.   10 Sentence = IruFormat (Sentence)

---

VOICI LE FICHIER EXTERNE

Code:

---

1 2 3 4 5 6 7 8 9 10 11

'------------------------------------------------------------------------ Fonction IruFormat (Sentence) Sentence = " " & Sentence & " " Ori = Sentence Do Sentence = Replace (Sentence, " ", " ") If Ori = Sentence Then Exit Do Loop End If End Function '-------------------------------------------------------------------------

---

Cela donne un code erreur 1024 sur la ligne 7 du code principal

Il est honnête de ma part, de dire que je suis débutant dans la programmation.

Merci d'avance pour votre aide

Bonjour,

:tagcode: svp :zoubi:.

Je ne suis pas sûr mais il te manque un paramètre à la ligne 7.

Ici, tu as ta fonction :

Code:

---

1 2 3 4 5 6 7 8 9

Fonction IruFormat (Sentence) Sentence = " " & Sentence & " " Ori = Sentence Do Sentence = Replace (Sentence, " ", " ") If Ori = Sentence Then Exit Do Loop End If End Function

---

Elle demande un paramètre d'entrée.

Et dans ton code, tu as:

Code:

---

ExecuteGlobal IruFormat

---

Il faudrait faire

Code:

---

ExecuteGlobal IruFormat(uneVariable)

---

.

il me semble pas logique de rajouter une variable à
ExecuteGlobal IruFormat
-Par principe j'ai quand même essayé et cela ne change rien.

Bon je creuse encore 8O

:salut:
Votre demande n'est pas bien clair. Si vous détaillez votre problème avec un exemple de conjugaison et :tagcode:
:merci:

une autre chose ===> Fonction, il faut la remplacer par Function

Bon mon code qui fait +- 7000 lignes doit retrouver dans la phrase utilisateur les adjectifs les sujets et les verbes.Cataloguer le féminin du masculin le singulier du pluriel, trouver les pronoms je et vous pour inverser la conjugaison du verbe.
je ne vous parle pas encore des synonymes et des centaines de conditions pour une réponse.
tous cela afin de construire une réponse cohérente à la requête de l'utilisateur.
Donc
je Split un certain nombre de fois la phrase utilisateur ce qui a pour conséquence l'absence d'espaces entre les chaines trouvées.
j'ai donc besoin de mettre un espace au début et à la fin de chaque chaîne trouvée par le Split afin de passer aux traitements suivants.

je peux très bien le faire sans fonction externe
je peux à la place écrire une ligne comme cela
Sentence = " " & Sentence & " "
Mais voila je veux que mon IruFormat corrige divers choses en plus
C"est pour cela que j'ai besoin d'utiliser cette fonction externe.

Merci d'avance d'avoir pris le temps de lire ma demande.

Merci hackoofr
J'ai vu cette erreur après avoir édite mon message
Mais cela ne change rien.
à vrai dire oui ça change,maintenant je trouve un code erreur 1015 à la ligne ci-dessous.
ExecuteGlobal IruFormat
Comme Miistik pensait

:salut:
un exemple d'ajout d'espace , je ne sais pas si vous voulez comme ceci ou autrement :koi:

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12

Titre = "Ajout Espace dans une phrase" Phrase = "Salut comment allez-vous ?" Tab = Split(Phrase," ") For i=0 to UBound(Tab) Msgbox AjoutEspace(Tab(i)),64,Titre Next MsgBox Join(Tab," "),64,Titre   Function AjoutEspace(Sentence) Sentence = " " & Sentence & " " AjoutEspace = Sentence End Function

---