Concatener une variable structurée

**andrebernard** · 15/06/2009, 13h58

Bonjour à tous

Voila ....si je me créé une variable structurée :

Code :

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

1
2
3
4
5
6
7
Private Type Structure
  a As String
  b As String
  c As String
End Type
 
Private Phrase As Structure

Et que maintenant j'ai besoin de concatener dans une boucle, les elements de la variable structuré.
Comment puis je faire ????

Code :

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

1
2
3
4
5
6
7
Public Sub Form_Load()
 
 For i = 1 To 3
  Debug.Print Phrase.?????
 Next
 
End Sub

Je vous remercie
Bonne journée

**AnneCa** · 15/06/2009, 14h58

j'espère répondre à ta question...

Code :

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

1
2
3
Public Sub Form_Load() 
  Debug.Print Phrase.a & Phrase.b & Phrase.c
End Sub

**andrebernard** · 15/06/2009, 16h20

Bonjour ANNECA

Le probleme c'est que je voudrais les faire apparaitre mais avec une boucle style for/next
Et dans une boucle on ne peut enumerer qu'avec des chiffres.
Et comme les structures de la variable ne peut etre appellées que par la lettre a, b et c.

Y aurait il une combine pour voir apparaitre toutes les structures de la variable sans donner leur nom a, b et c

Un peu comme si on pouvait dire

Code :

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

Debug.Print Phrase

Ou bien

Code :

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

Debug.Print Phrase.all

Ou bien

Code :

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

Debug.Print Phrase.*

Et que l'on ai exactement le resultat qu'avec le code que tu viens de me donner

Si

Code :

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

1
2
3
Phrase.a = "Coucou"
Phrase.b = "je suis une"
Phrase.c = "variable structurée"

On obtiendrait donc

Code :

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

Coucouje suis unevariable structurée

C'est dur a expliquer

**AnneCa** · 15/06/2009, 16h37

Je ne suis pas sûre que ce soit possible. Pourquoi n'utiliserais-tu pas plutôt un array comme 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
Option Explicit
Private monarray() As String
Private Sub Command1_Click()
Dim i As Integer
   For i = 0 To UBound(monarray)
        Debug.Print monarray(i)
   Next i
End Sub
 
Private Sub Form_Load()
    monarray(0) = "Coucou"
    monarray(1) = "je suis une"
    monarray(2) = "variable structurée"
End Sub

**DarkVader** · 15/06/2009, 16h38

Bonjour,
Un UDT est défini en mémoire par des pointeurs consécutifs(1 long pour 1 string variable)
sauf s'il s'agit de strings délimités (string *... qui ont la longueur de la chaine).
Ton type est donc défini en mémoire par 3 longs qui pointent chacun vers la chaine correspondante ;
dès lors, il est aisé de les récupérer les uns après les autres dans une boucle.

**andrebernard** · 15/06/2009, 18h06

Je ne suis pas sûre que ce soit possible. Pourquoi n'utiliserais-tu pas plutôt un array comme ceci?

Oui a force de lire un peu partout, j'ai l'impression que ce n'est pas possible

Tu as raison.
En fait, je voulais essayer d'utiliser une variable structurée plutot qu'un tableau, car je voulais simplifier la lecture de mon code grace justement a l'avantage de la structure qui justement porte un nom au lieu d'un chiffre comme le tableau.

Evidemment comme c'est des noms ça a son avantage...mais je viens de trouver l'inconvenient

Ca aurait été cool, que l'on puisse dire

Code :

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

Debug.Print Phrase.a

Et aussi (par exemple)

Code :

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

Debug.Print Phrase/1 ou Debug.Print Phrase[1]

Ce qui aurait donné le meme résultat

Bon ce n'est pas moi qui vais donner cette idée a bilou

En tout cas merci beaucoup de ton aide

Bonjour,
Un UDT est défini en mémoire par des pointeurs consécutifs(1 long pour 1 string variable)
sauf s'il s'agit de strings délimités (string *... qui ont la longueur de la chaine).
Ton type est donc défini en mémoire par 3 longs qui pointent chacun vers la chaine correspondante ;
dès lors, il est aisé de les récupérer les uns après les autres dans une boucle

.
Bonjour DARKVADER
Content aussi de revoir ta cigarette

Bon alors, si je comprend bien, une variable structurée est gérée comme un tableau en memoire.
Car pour les tableaux de string non dimensionné, c'est aussi un tableau de pointeur qui est géré.

Bon alors ça tombe bien, je viens d'essayer de comprendre pendant une semaine, les tableaux et pointeur.
Et ça n'a pas été facile pour ma petite tete

Mais il doit me rester des restes

Je pense donc que l'API copymemory est de rigueur et aussi l'instruction "cachée" strptr ou bien varptr (J'ai encore pas trop compris la difference)

Je vais essayer de creer cette fonction comme un grand

Par contre j'ai une question qui me viens déja a l'esprit tout de suite ????
Comment tu sais justement le nombre d'element de structure, y'a pas moyen de le savoir ????

**DarkVader** · 15/06/2009, 19h47

Len/LenB retourne la taille occupée en mémoire par l'udt.
Dans ton cas (suite de long) il suffira de diviser par 4

**andrebernard** · 16/06/2009, 08h30

Ayaih !!!!
Des mon reveil, j'ai frotté mes 2 neurones
Et grace à tes precieux conseils,

y'est sorti ça :

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
Private Type Structure
  a As String
  b As String
  c As String
End Type
 
Private Phrase As Structure
 
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (dest As Any, source As Any, ByVal bytes As Long)
Private Temp As String
Private Offset As Long
 
Private Sub Form_Load()
 
 Temp = Space(5000)
 Phrase.a = "Coucou"
 Phrase.b = "je suis une"
 Phrase.c = "variable structurée"
 
 For i = 1 To LenB(Phrase) Step 4
  Offset = VarPtr(Phrase) + i - 1
  CopyMemory Temp, ByVal Offset, 4
  Debug.Print Temp
 Next
 
End Sub

Seulement reste un bleme

Pourquoi j'ai un blanc entre chaque caractere ????

**DarkVader** · 16/06/2009, 08h35

Ce ne serait pas un chr(0) par hasard ?

**andrebernard** · 16/06/2009, 09h11

Dis donc ...tu repond plus vite que la lumiere

Apres ta question, j'ai fait un test et t'es trop fort

C'est encore une histoire de convertion 4 bit / 8 bit qui est complétée par un chr(0) ????

Comment je peux m'en séparer de ce gongnafier

Parce que il s'est installé et il paye meme pas la location

Car directement je ne vois pas comment faire ???
Ou alors il faut le faire à la fin avec des mid() ???

**andrebernard** · 16/06/2009, 09h15

Y'a aussi replace ????

**DarkVader** · 16/06/2009, 09h22

Envoyé par andrebernard

Dis donc ...tu repond plus vite que la lumiere

Apres ta question, j'ai fait un test et t'es trop fort

C'est encore une histoire de convertion 4 bit / 8 bit qui est complétée par un chr(0) ????

Comment je peux m'en séparer de ce gongnafier

Parce que il s'est installé et il paye meme pas la location

Car directement je ne vois pas comment faire ???
Ou alors il faut le faire à la fin avec des mid() ???

Je pencherais plutôt pour le caractère de fin de la chaine de texte.
Récupères chaque bloc et concatène à chaque passe, sinon replace doit le faire :
Il n'est pas utile de se casser le crane si l'optimisation n'est pas indispensable.

**andrebernard** · 16/06/2009, 09h42

Merci beaucoup

Tu as raison, comme t'as dit j'ai fait au plus simple donc replace

Une autre petite question, j'essai de passer ma variable structurée à une procedure.
J'ai donc declaré ma variable comme ça :

Code :

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

Private Function Concatene(Variable As Structure)

Ca marche nickel, mais comment faire, si je veux aussi passer la structure elle meme en parametre ????

Car imaginons que ma procedure de concatenation utilise plusieurs structures

**DarkVader** · 16/06/2009, 10h11

Des fois que j'ai compris (car ce n'est pas très clair) :
C'est une usine à gaz ?

Les variables «Type» ont été implémentées sous VB pour permettre de communiquer avec les Udt utilisées C/C++ ...
Dès lors qu'on veut les utiliser de manière complexe, on est très vite limité :
il ne te viendrait pas à l'esprit de te servir d'un marteau à la place d'un tournevis ?

L'une des manières de contourner les limitations des Udt sous VB consiste à créer une classe spécifique (concepts de POO ...)
C'est plus adapté aux usines à gaz.