Discussion :

[bubu92]

Bonjour a tous ,

pensez vous qu'il soit possible d'ameliorer cette fonction :

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
 
Public Sub Test(ByVal UdtSrc)
 
Select Case UdtSrc
    Case Udt1:
        Open "c:\test1.txt" For Binary As #1 Len = Len(Udt1)
        Get #1, 1, Udt1
    Case Udt2:
        Open "c:\test2.txt" For Binary As #1 Len = Len(Udt2)
        Get #1, 1, Udt2
    Case Udt3:
        Open "c:\test2.txt" For Binary As #1 Len = Len(Udt3)
        Get #1, 1, Udt3
End Select
 
Close
 
End Sub

Comment virer le Select Case ? j'ai 14 Udt sur 14 fichiers à gerer...

[bubu92]

Après relecture j'me rends compte que c'est pas tres clair
Ce serait plutot ceci :

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
 
Public Sub Test(ByVal UdtSrc as Byte)
 
Select Case UdtSrc
    Case 0:
        Open "c:\test1.txt" For Binary As #1
        Get #1, 1, Udt1
    Case 1:
        Open "c:\test2.txt" For Binary As #1
        Get #1, 1, Udt2
    Case 2:
        Open "c:\test2.txt" For Binary As #1
        Get #1, 1, Udt3
End Select
 
Close
 
End Sub

Et j'aurais preferé quelque chose comme cela :

Code :

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

1
2
3
4
5
6
7
8
9
 
Public Sub Test(Byval FileSrc as String, Byval RecNum as Long, ByVal UdtSrc as ?)
 
Open FileSrc For Binary As #1
Get #1, RecNum, UdtSrc
 
Close
 
End Sub

[iclic]

Bonjour,

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
 
Dim chemin(14) as String
Dim Udt(14) as String
 
chemin(1)="c:\test1.txt"
Udt(1)=Udt1
 
chemin(2)="c:\test2.txt"
Udt(2)=Udt2
....
 
Public Sub Test(ByVal UdtSrc as Byte, chemin() as String, Udt() as String)
 
   Open chemin(UdtSrc) For Binary As #1
   Get #1, 1, Udt(UdtSrc)
close
 
End Sub

[bubu92]

Merci pour la reponse iclic
Mais mes Udt sont des "Type Définis par l'Utilisateur"

[ProgElecT]

Merci pour la reponse iclic
Mais mes Udt sont des "Type Définis par l'Utilisateur"

Il ni a rien qui gène

Code :

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

1
2
3
4
5
Private Type Udt
  truc As String
  Machin As Integer
End Type
Dim MesUdt(14) As Udt

[bubu92]

Bein...c'est 14 Udt avec des structures differente, c'est bien ça le probleme