Inclure une variable dans le codeRésolu

Question

Salut &#224; tous,
J'ai un probl&#232;me je fais une boucle pour &#233;crire dans une variable une instruction if /end if
ex: 

For i = 0 To UBound(fonction)
montab = Split(fonction(i), "mtcl")commande commande & "If Phrase " & montab(0) & "Then" & vbCrLf & montab(1) & vbCrLf & "End If" & vbCrLf
Next i

mais maintenant je voudrai le mettre(commande) dans mon code mais je sais pas comment faire (inserer commande seul ne marche pas)
Ca peut parraitre b&#234;te mais je cherche depuis 2h !

Merci d'avance &#224; ceux qui ne dorment pas encore

cs_MasterHack · Accepted Answer

re, voici un code peut etre util :), N.B:il faut ajouter la reference windows scriptcontrol (projet/references) creer un textbox nomé text1 et mets ce texte dedant : Internetmtclsub main():Dim Exec:Set Exec=CreateObject("Wscript.Shell"):Exec.Run "iexplore.exe":end sub creer un commandbutton et ds son code tu mets : Dim VBS As New ScriptControl Private Sub Command1_Click() VBS.Language = "vbs" VBS.AllowUI = True code = Split(Text1, "mtcl") If code(0) = "Internet" Then VBS.AddCode code(1) VBS.Run "main" End if End Sub ++

Life is short...Learn more Copy Rights <> Rights to Copy

cs_MasterHack · Answer

salut, ce n'est pas possible d'executer un code de cette façon, pour le debugeur commande c une variable, et pas un code a executé.

Life is short...Learn more Copy Rights <> Rights to Copy

thongthephu · Answer

Merci de ta r&#233;ponse mais si je fais sa : 
For i = 0 To UBound(fonction)
montab = Split(fonction(i), "mtcl")
If Phrase = montab(0) Then
montab (1)
End If
Next i

Le d&#233;bugueur me dit : 
erreur de compilation : 
sub,Function ou Propety attendue

cs_MasterHack · Answer

desolé, mais oublies cette idee, ça ne marchera jamais.

Life is short...Learn more Copy Rights <> Rights to Copy

thongthephu · Answer

Snif
personne n'a d'autre id&#233;e

Utilisateur anonyme · Answer

Salut,

Si c'est possible, j'avais r&#233;ussit a faire un truc de se genre.
Mais d&#233;sol&#233;, je me souviens plus comment et comme je ne pratique plus le VB6 je m'en souviens encore moins.
J&#146;essayerai de faires quelques recherches demain

Kenji
<hr size="2" width="100%">
Merci de cliquer sur "R&#233;ponse accept&#233;e" si une r&#233;ponse vous convient.

PCPT · Answer

salut,

en effet c'est possible (composant Microsoft ScriptRun1.0 de m&#233;moire). mais le d&#233;boggage est assez chatouilleux.

forc&#233;ment, si le code est g&#233;n&#233;r&#233; par une boucle qui elle m&#234;me contient un :



si Variable_Tableau(0) <--- 0 pouvant ne pas existant
       =   UneChaine  <---- on suppose 
       alors 

    execute Variable_Tableau(1)    <---- aucun sens ...




cf :

If Phrase  = montab(0) Then

    montab (1)

End If



mieux vaut essayer de.. repenser le probl&#232;me...



exemple

(apr&#232;s test de l'existance de chaque dimention)

if montab(1) like "msgbox *" then

    montab(1) = replace(montab(1),chr$(34), vbnullstring)

    msgbox replace(montab(1), "msgbox ", vbnullstring)

....



enfin, dans l'id&#233;e...

++

PCPT     [AFCK]

thongthephu · Answer

Merci beaucoup je vais essayer 

@+

thongthephu · Answer

Il n'y a pas moyen sinon d'inclure dans le code et non dans un champ de texte une fichier texte ?

PCPT · Answer

si sans probl&#232;me.

ta variable re&#231;oit le contenu de ton fichier, et donne ta variable en param&#232;tre au script (composant) pour qu'il l'execute....

mais TR&#233;S D&#233;CONSEILL&#233;

thongthephu · Answer

Merci de ta r&#233;ponse
J'ai pas super compris pour donner le contenu du fichier c'est pas un probl&#232;me mais apr&#232;s la donner au script en composant je sais pas comment faire
@+

cs_MasterHack · Answer

salut, pour une variable c impossible, sinon pour le control scriptiong là on parle de vbs donc ne permet pas toutes les possiblité ouverte a visual basic, comme l'utilisation d'api 32, la manipulation des controle de la form.en gros ça sert pas a grande chose surtout pour ton idee.

Life is short...Learn more Copy Rights <> Rights to Copy

thongthephu · Answer

merci pour ta r&#233;ponse

J'ai r&#233;fl&#233;chi et si c'est pas possible autant tout repenser ! 
.....mais j'ai pas d'id&#233;e 
Je vous explique mon projet en simplifi&#233; :
L'utilisateur tape un mot  ex : internet 
L'ordinateur lance internet 
Mais maintenant je veux mettre le tout dans un fichier texte avec la forme "internetmtcl[code qui lance internet]" donc le s&#233;parateur c'est mtcl 
j'ai fait sa aussi :(simplifi&#233;)
montab = Split("internetmtcl[code qui lance internet]", "mtcl")
Do While Phrase = montab(0)
montab (1)
Exit Do
Loop

Mais c'est le m&#234;me probl&#232;me la variable toute seule(montab (1))
Du &#224; la diversit&#233; des codes &#224; lancer je n'ai aucune id&#233;e
Et vous ?

Merci d'avance

thongthephu · Answer

Merci bien je vais essayer 
@+

thongthephu · Answer

Et une derni&#232;re question : c'est pour le retour &#224; la ligne

Mille mercis

thongthephu · Answer

pardon ":" c'est pour le retour &#224; la ligne?
Et le code dans le champ de texte ce doit &#234;tre du vbs?

PCPT · Answer

oui :



dim i as integer

i = 3



s'&#233;crit aussi



dim i as integer : i = 3

thongthephu · Answer

Et le code dans le champ de texte ce doit &#234;tre du vbs?

cs_MasterHack · Answer

salut tu auras le choix entr vbs et Js

Life is short...Learn more Copy Rights <> Rights to Copy

thongthephu · Answer

Merci mais je n'ai pas le droit de faire sa par exemple : 
ShellExecute(0, "OPEN", "C:\Program Files\Windows Media Player\mplayer2.exe", "", "", 1)

sub main():ShellExecute(0, "OPEN", "C:\Program Files\Windows Media Player\mplayer2.exe", "", "", 1):end sub 
sachant que c'est du vb (vb et vbs c'est pas exactement pareille c'est sa?)

cs_MasterHack · Answer

non pas possible d'utiliser l'api shellexecute en vbs. l'exemple que j'avais fais fera l'affaire en executant media player.

Life is short...Learn more Copy Rights <> Rights to Copy

thongthephu · Answer

Merci beaucoup

Inclure une variable dans le code

22 réponses

Discussions similaires