Concatener une variable structurée

Bonjour à tous

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

Code:

---

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 ???? :roll:

Code:

---

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

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

Code:

---

1 2 3

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

---

Bonjour ANNECA :D

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:

---

Debug.Print Phrase

---

Ou bien

Code:

---

Debug.Print Phrase.all

---

Ou bien

Code:

---

Debug.Print Phrase.*

---

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

Si

Code:

---

1 2 3

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

---

On obtiendrait donc

Code:

---

Coucouje suis unevariable structurée

---

C'est dur a expliquer :oops:

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

Code:

---

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

---

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.

Citation:

---

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:

---

Debug.Print Phrase.a

---

Et aussi (par exemple)

Code:

---

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

---

Ce qui aurait donné le meme résultat :D
Bon ce n'est pas moi qui vais donner cette idée a bilou :mouarf:

En tout cas merci beaucoup de ton aide

Citation:

---

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 :D

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 :oops:
Mais il doit me rester des restes :D

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) :oops:

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 ????

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

Ayaih !!!!
Des mon reveil, j'ai frotté mes 2 neurones
Et grace à tes precieux conseils, 8-) y'est sorti ça :

Code:

---

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 ???? :calim2:

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

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

Apres ta question, j'ai fait un test et t'es trop fort 8-)
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 :lol:

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

Y'a aussi replace ????

Citation:

---

Envoyé par andrebernard

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

Apres ta question, j'ai fait un test et t'es trop fort 8-)
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 :lol:

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.

Merci beaucoup 8-)
Tu as raison, comme t'as dit j'ai fait au plus simple donc replace :D

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

Code:

---

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 :roll:

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.

Pour l'usine à gaz ....Tu ne crois pas si bien dire :lol:

D'accord, donc j'oublie le passage en parametre d'une UDT, et j'essaie avec une classe :ccool:

Encore merci de ta precieuse aide 8-), et merci aussi à AnneCa ;)

Je vous souhaite une excelente journée