Recuperer commandes externesRésolu

Question

Bonjour,

J'aimerai savoir si il y'avait un moyen de récuperer des commandes dans un fichier externe, je m'explique :

Dans mon programme, je lit un tableau de booleen de 5 cases

Puis j'attribue des sorties par rapport aux entrées actives
du genre :

D(0) = input(1) And input(3)
D(1) = Not(input(2) Or input(3))

Enfin j'ecrit les sorties

J'aimerai que les equations D(0), D(1), etc... soit contenus dans un fichier externe afin de pouvoir les modifier par la suite a souhait, on m'a conseillé d'utiliser une classe dynamique afin de recuperer ces valeurs, mais je n'ai pas tout compris...

Merci d'avance pour votre réponse

jrivet · Accepted Answer

Salut,
Si j'ai bien compris tu veux que ceci:
D(0) =  input(1) And input(3)
D(1) = Not(input(2) Or input(3))

Soit contenu dans un fichier text de maniere à être modifiable sans avoir à recompiler l'EXE?

Il y a une référence  Microsoft Script Control 1.0  qui peut te permettre de calculer des expression passer en chaine de caractere.

@+: =89254 Ju£i?n
Pensez: Réponse acceptée

Droudrou2000 · Answer

merci beaucoup, je vais essayer de trouver un peu de doc sur cette reference

Droudrou2000 · Answer

pourrait tu me mettre un exemple d'utilisation ?
Je dois dire que je rame un peu...

jrivet · Answer

Salut,
c'est un exemple qui sort un epu de ton contexte mais c'est un copier coller d'un de mes codes pour que tu vois le proncipe de fonctionnement
Option Explicit

Private Const CALCUL_CODE As String = "Function Calcul(Fin): Fin=%1:End Function"

Private Sub Form_Load()
'Objet necessaire a l'interpretation d une fonction
Dim SCalcul As New ScriptControl
Dim StrFonction As String
'Valeur retournée par SCalcul
Dim ValDef
   
   StrFonction = "((360 - (267 * X / 180) + B) Mod 360)"
   'On remplace dans la formule B Par une valeur
   StrFonction = Replace(StrFonction, "B", 15)
   'On remplace dans la formule X Par une valeur
   StrFonction = Replace(StrFonction, "X", 60)
   'On remplace dans le code "Type" voir en haut %1 par la formule mofidier
   StrFonction = Replace(CALCUL_CODE, "%1", StrFonction)
   'parametre et usage de l'objet Script Control
   With SCalcul
       'Language utilise
       .Language = "VBScript"
       'Reset eventuel
       .Reset
       'Ajout du code dree
       Call .AddCode(StrFonction)
       'Execution du code ajouter (fonction Calcul)
       Call .Run("Calcul", ValDef)
       
   End With
   MsgBox ValDef
   'Destruction de l'objet
   Set SCalcul = Nothing
End Sub , ----
[code.aspx?ID=41455 By Renfield]

@+: Ju£i?n
Pensez: Réponse acceptée

Recuperer commandes externes

4 réponses

Votre réponse

Discussions similaires