Discussion :

[Ehjoe]

Bonjour,

Je ne sais pas si c'est possible :

Peut-on déclarer unee variable avec le contenu d'une autre variable ?

Exemple, une variable serait ainsi

Code :

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

1
2
3
4
5
6
7
8
9
10
 
Dim v1 as string = "bonjour"
 
' il faudrait qu'ensuite on puisse faire (principe) :
 
Dim contenu_de_v1 As type_de_v1
 
' ce qui donnerait in fine une utilisation du genre :
 
bonjour = "string..."

Ah, je me demande si avec adressOf on ne peut pas faire quelque chose, mais bon ... là je suis largeement dépassé, si quelqu'un sait, merci d'avance, cordialement.

Joe.
.

[Nathanael Marchand]

http://msdn.microsoft.com/fr-fr/libr...t.gettype.aspx ?

[Ehjoe]

http://msdn.microsoft.com/fr-fr/libr...t.gettype.aspx ?

Merci de ta réponse,

Alors pour le type, a priori ça peut être ce que tu m'indiques, toutefois il reste le problème de savoir si on peut ensuite reprednre dynamiquement le contenu pour nommer une autre variable avec ?

Merci, cordialement.

Joe.
.

[Nathanael Marchand]

Qu'appelles tu nommer la variable?

[Ehjoe]

Qu'appelles tu nommer la variable?

Bonjour toujours,

Je pensais avoir bien expliqué ma demande avec exemple, je me serais donc mal expliqué, alors je recommence

Je cherche à idetifier le type d'une variable (ce qui est fait grace à toi, bien que la boucle soit un peu volumineuse, voici le code pour le plaisir) :

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
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
 
Option Explicit On
Public Class Form1
	Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
		Dim re As Boolean	' réponse
		Dim letype As String = ""	' type de la variable
		Dim i As Integer
		'----------------
		Dim vr As Decimal	' type de la variable recherchér = vr si STRING : mettre une "= valeur"
		'----------------
		Dim v01 As UShort = 1	' type de variable à tester
		Dim v02 As Short = 1
		Dim v03 As Char = "a"
		Dim v04 As Byte = 1
		Dim v05 As SByte = 1
		Dim v06 As Boolean = False
		Dim v07 As Integer = 1
		Dim v08 As UInteger = 1
		Dim v09 As Long = 1
		Dim v10 As ULong = 1
		Dim v11 As Single = 1
		Dim v12 As Double = 1
		Dim v13 As Decimal = 1
		Dim v14 As Date = "12/02/2011"
		Dim v15 As String = "test"
		Dim v16 As Object = Nothing
		'
		For i = 1 To 16
			re = False
			Select Case i
				Case 1 : re = Object.ReferenceEquals(vr.GetType(), v01.GetType())
				Case 2 : re = Object.ReferenceEquals(vr.GetType(), v02.GetType())
				Case 3 : re = Object.ReferenceEquals(vr.GetType(), v03.GetType())
				Case 4 : re = Object.ReferenceEquals(vr.GetType(), v04.GetType())
				Case 5 : re = Object.ReferenceEquals(vr.GetType(), v05.GetType())
				Case 6 : re = Object.ReferenceEquals(vr.GetType(), v06.GetType())
				Case 7 : re = Object.ReferenceEquals(vr.GetType(), v07.GetType())
				Case 8 : re = Object.ReferenceEquals(vr.GetType(), v08.GetType())
				Case 9 : re = Object.ReferenceEquals(vr.GetType(), v09.GetType())
				Case 10 : re = Object.ReferenceEquals(vr.GetType(), v10.GetType())
				Case 11 : re = Object.ReferenceEquals(vr.GetType(), v11.GetType())
				Case 12 : re = Object.ReferenceEquals(vr.GetType(), v12.GetType())
				Case 13 : re = Object.ReferenceEquals(vr.GetType(), v13.GetType())
				Case 14 : re = Object.ReferenceEquals(vr.GetType(), v14.GetType())
				Case 15 : re = Object.ReferenceEquals(vr.GetType(), v15.GetType())
				Case 16 : re = Object.ReferenceEquals(vr.GetType(), v16.GetType())
			End Select
			If re = False Then Continue For
			Select Case i
				Case 1 : letype = "v" & Format(i, "00") & " est de type UNSIGNED SHORT"
				Case 2 : letype = "v" & Format(i, "00") & " est de type SHORT"
				Case 3 : letype = "v" & Format(i, "00") & " est de type CHAR"
				Case 4 : letype = "v" & Format(i, "00") & " est de type BYTE"
				Case 5 : letype = "v" & Format(i, "00") & " est de type SIGNED BYTE"
				Case 6 : letype = "v" & Format(i, "00") & " est de type BOOLEAN"
				Case 7 : letype = "v" & Format(i, "00") & " est de type INTEGER"
				Case 8 : letype = "v" & Format(i, "00") & " est de type UNSIGNED INTEGER"
				Case 9 : letype = "v" & Format(i, "00") & " est de type LONG"
				Case 10 : letype = "v" & i & " est de type UNSIGNED LONG"
				Case 11 : letype = "v" & i & " est de type SINGLE"
				Case 12 : letype = "v" & i & " est de type DOUBLE"
				Case 13 : letype = "v" & i & " est de type DECIMAL"
				Case 14 : letype = "v" & i & " est de type DATE"
				Case 15 : letype = "v" & i & " est de type STRING"
				Case 16 : letype = "v" & i & " est de type OBJET"
			End Select
			If re = True Then
				MsgBox("La variable  " & letype, vbInformation)
				End
			End If
		Next
		MsgBox("Type indéterminé", vbExclamation)
		End
	End Sub
End Class

Et maintenant il me reste à utiliser le contenu d'une variable pour en déclarer unen autre, exemple :

Nous aurions une variable comme suit :

Code :

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

1
2
 
msgbox(variableX) ' = "bonjour"

Je voudrais avec le contenu de cette variableX en faire une variable qui se nomme "bonjour", soit, qui se nomme avec le contenu de la première, ce qui serait censé faire sur le principe :

Code :

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

1
2
3
 
Dim contenu_de_variableX
bonjour = "nouvelle variable du contenu de la première"

Peut être est-ce possible avec AdressOff, ou d'aute codes de ce genre, je ne sais pas, ce qui permettrait de déclarer d'ynamiquement des variable en les prénomant par exemple à partir de la lecture d'un fichier ou du contenu d'une variable (dans cet exemple).

Au plaisir, cordialement.

Joe.
.

[Nathanael Marchand]

Question idiote: A quoi ca sert? Quelle est l'application?