Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Jean-Marc
"Carlos Castro" a écrit dans le message de news:%
Comment puis-je savoir les variables qui sont utilissées par la fonction Environ?
Salut, on utilise le fait que environ(n) renvoie la n-ieme variable d'environnement et sa valeur on utilise aussi le fait que si il n'y a pas de variables 'n' alors option(n) renvoie une chaine vide.
Comme ça:
Dim n As Integer Dim s As String Dim t(1000, 2) As String ' recup les valeurs dans un tableau
n = 1 s = Environ(n) While (s <> "") t(n, 1) = Mid$(s, 1, InStr(s, "=") - 1) ' le nom de la variable t(n, 2) = Mid$(s, InStr(s, "=") + 1) ' la valeur de la variable n = n + 1 s = Environ(n) Wend Debug.Print n
Jean-Marc
Merci.
"Carlos Castro" <henpat63@hotmail.com> a écrit dans le message de
news:%23ohKtJDuDHA.2208@TK2MSFTNGP10.phx.gbl...
Comment puis-je savoir les variables qui sont utilissées par la fonction
Environ?
Salut,
on utilise le fait que environ(n) renvoie la n-ieme variable d'environnement
et sa valeur
on utilise aussi le fait que si il n'y a pas de variables 'n' alors
option(n) renvoie une chaine vide.
Comme ça:
Dim n As Integer
Dim s As String
Dim t(1000, 2) As String ' recup les valeurs dans un tableau
n = 1
s = Environ(n)
While (s <> "")
t(n, 1) = Mid$(s, 1, InStr(s, "=") - 1) ' le nom de la variable
t(n, 2) = Mid$(s, InStr(s, "=") + 1) ' la valeur de la
variable
n = n + 1
s = Environ(n)
Wend
Debug.Print n
Comment puis-je savoir les variables qui sont utilissées par la fonction Environ?
Salut, on utilise le fait que environ(n) renvoie la n-ieme variable d'environnement et sa valeur on utilise aussi le fait que si il n'y a pas de variables 'n' alors option(n) renvoie une chaine vide.
Comme ça:
Dim n As Integer Dim s As String Dim t(1000, 2) As String ' recup les valeurs dans un tableau
n = 1 s = Environ(n) While (s <> "") t(n, 1) = Mid$(s, 1, InStr(s, "=") - 1) ' le nom de la variable t(n, 2) = Mid$(s, InStr(s, "=") + 1) ' la valeur de la variable n = n + 1 s = Environ(n) Wend Debug.Print n
Jean-Marc
Merci.
Zoury
Salut Carlos! :O)
Si tu lis bien dans l'aide (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctEnviron.asp), tu verras que tu peux passer une chaine ou encore un index.. les valeurs retournées contiennent et le nom de la variable et sa valeur, donc pour obtenir la liste des variables, tu n'a qu'à faire ceci :
'*** ' Module1 Option Explicit
Private Sub Main()
Dim i As Long Dim s As String
On Error Resume Next For i = 0 To 1000 s = Environ$(i) If (LenB(s) > 0) Then Debug.Print Left$(s, InStr(s, "=") - 1) End If Next i
End Sub '***
tu peux également utilisé l'API GetEnvironmentStrings() (avec FreeEnvironmentStrings() et CopyMemory()) pour obtenir le liste des variables environnements. Télécharge l'API-Guide (voir ma sig) pour un exemple ou regarde l'exemple sur ce site : http://www.mentalis.org/apilist/GetEnvironmentStrings.shtml
Merci de poster les réponses au groupe afin d'en faire profiter à tous
"Carlos Castro" wrote in message news:%
Comment puis-je savoir les variables qui sont utilissées par la fonction Environ?
Merci.
Salut Carlos! :O)
Si tu lis bien dans l'aide
(http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctEnviron.asp), tu
verras que tu peux passer une chaine ou encore un index.. les valeurs
retournées contiennent et le nom de la variable et sa valeur, donc pour
obtenir la liste des variables, tu n'a qu'à faire ceci :
'***
' Module1
Option Explicit
Private Sub Main()
Dim i As Long
Dim s As String
On Error Resume Next
For i = 0 To 1000
s = Environ$(i)
If (LenB(s) > 0) Then
Debug.Print Left$(s, InStr(s, "=") - 1)
End If
Next i
End Sub
'***
tu peux également utilisé l'API GetEnvironmentStrings() (avec
FreeEnvironmentStrings() et CopyMemory()) pour obtenir le liste des
variables environnements. Télécharge l'API-Guide (voir ma sig) pour un
exemple ou regarde l'exemple sur ce site :
http://www.mentalis.org/apilist/GetEnvironmentStrings.shtml
Si tu lis bien dans l'aide (http://msdn.microsoft.com/library/en-us/vbenlr98/html/vafctEnviron.asp), tu verras que tu peux passer une chaine ou encore un index.. les valeurs retournées contiennent et le nom de la variable et sa valeur, donc pour obtenir la liste des variables, tu n'a qu'à faire ceci :
'*** ' Module1 Option Explicit
Private Sub Main()
Dim i As Long Dim s As String
On Error Resume Next For i = 0 To 1000 s = Environ$(i) If (LenB(s) > 0) Then Debug.Print Left$(s, InStr(s, "=") - 1) End If Next i
End Sub '***
tu peux également utilisé l'API GetEnvironmentStrings() (avec FreeEnvironmentStrings() et CopyMemory()) pour obtenir le liste des variables environnements. Télécharge l'API-Guide (voir ma sig) pour un exemple ou regarde l'exemple sur ce site : http://www.mentalis.org/apilist/GetEnvironmentStrings.shtml
