Discussion :

[bombjack91]

Bonjour,
je suis à la recherche de code pour pour modifier 10 variables avec un nom différents.
Elles contiennent toutes la valeur "vrai" ou "faux", et il faut transformer le "vrai" en "1", et le "faux" en "zero".
Et je ne sais pas si une boucle serait utile pour ce genre de chose.
Les variables sont de forme "as string".

[olsimare]

Bonjour.

Là je vois pas trop le probléme et à mon avis je suis pas le seul perplexe...

Tu te fais un class de conversion avec une méthode shared et tu appelles cette méthode pour tes 10 variables.

Comme c'est mon soir de bonté, voici un exemple à 20 centimes :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
Public Class MonConvertisseurToutBebete
    Public Shared Sub convertiMoiTouteSilTePlait(ByRef machaine As String)
        Select Case machaine
            Case "Vrai"
                machaine = "1"
            Case "Faux"
                machaine = "0"
            Case Else
                machaine = "Arrêtons de déconner 2 minutes !"
        End Select
    End Sub
End Class
...
' Pour l'utiliser
        Dim a As String = "Vrai"
        Dim b As String = "Faux"
        Dim c As String = "Yop"
 
        MonConvertisseurToutBebete.convertiMoiTouteSilTePlait(a)
        MonConvertisseurToutBebete.convertiMoiTouteSilTePlait(b)
        MonConvertisseurToutBebete.convertiMoiTouteSilTePlait(c)
        MsgBox(a & vbCrLf & b & vbCrLf & c)

Cdt.

[Aspic]

Autre solution plus bete encore

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
'tu mets tes variables dans un tableau et tu listes :
For Each Var as String in MonTableau
   If Var = "Vrai" then
       Var = "1"
   Else
       Var = "0"
   End If
Next

Enfin je sais pas si c'est une bonne idée au fait

[SaumonAgile]

Quelle manque d'élégance, je serais plutot tenté de calculer la distance de levenstein de ta chaine par rapport à "false", et si c'est supérieur à 3, tu renvoies 1 sinon 0.

Qui a dit usine à gaz ?