Tout les If dans un .txt

Question

Bonjour, j'ai ce code :

Sub

 Article()   Dim Art

   Dim CodeArt

   Dim Prix

   CodeArt = TextBox2.Text

   If CodeArt = "3596710188345"Then

      Art = "Brownie"

      Prix = "1.07"

   EndIf

   TextBox1.Text = Art & " " & Prix & " ?"

EndSub

Je voudrais savoir comment faire pour mettre tout les If CodeArt = [...] End If dans un fichier .txt de façon à pouvoir éditer la liste comme je veux sans devoir changer le code de ma Form.

Merci

 Dri60

cs_DARKSIDIOUS · Answer

Salut, Hum t'es sûr que c'est du vb.net ton code ??? Ca ressemble à du VB6, ou du VBA... Concernant les "if ... endif" dans une feuille, tu ne pourra pas ! Par contre, tu peux très bien faire ton propre format pour pouvoir le traduire ensuite en code, du style, dans le fichier : > 10 < 100 = 50 Et ensuite, dans une boucle : String ligne() = ligneFichier.split(fichier, " ") select case (ligne(0) case ">" if (CodeArt > ligne(1)) then ... end if case "<" if (CodeArt < ligne(1)) then ... end if case "=" if (CodeArt = ligne(1)) then ... end if end select ______________________________________ DarK Sidious

Dri60 · Answer

Merci pour ta réponse

 Dri60

Dri60 · Answer

Sinon, c'est possible de comparer avec une base de données access ?

 Dri60

Dri60 · Answer

Finalement, j'ai trouvé un code qui m'a aidé.

http://www.vbfrance.com/codes/PETITE-GESTION-CONTACT-ACCESS-NET_16808.aspx

Bonne soirée

 Dri60

Tout les If dans un .txt

4 réponses

Votre réponse