string et types utilisateurRésolu

Question

Bonjour à tous

Je lis dans un buffer une chaîne de caractères que je voudrais découper grâce à un type personnalisé :

Par exemple : 

type Descr
   alpha as string * 3
   num as string * 5
   autre as string * 3
end type
dim sEnreg as Descr

sBuffer = "ABC12345&*?"

Je voudrais faire :
sEnreg = sBuffer
pour manipuler ensuite sEnreg.alpha, sEnreg.num...
Malheureusement, sEnreg = sBuffer ne marche pas

Qui sait comment faire ?

Merci à tous

jocou

Gobillot · Accepted Answer

tu peux faire çà:

Private Type Descr
    alpha As String * 3
    num   As String * 5
    autre As String * 3
End Type

Private Type Srce
    perso As String * 11
End Type

Private Sub Command1_Click()
    Dim sEnreg  As Descr
    Dim sBuffer As Srce
    
    sBuffer.perso = "ABC12345&*?"
    
    LSet sEnreg = sBuffer
    MsgBox sEnreg.alpha
    MsgBox sEnreg.num
    MsgBox sEnreg.autre
      
End Sub

Daniel

jmfmarques · Answer

Dans ton "affaire", SBuffer (et par voie de conséquence, sEnreg); ne peut être qu'un "Array", ce qui n'est pas le cas puisque tu définis sBuffer = "ABC12345&*?"

jocou · Answer

Super, ça marche !!!

Merci beaucoup

jocou

String et types utilisateur

3 réponses

Votre réponse

Discussions similaires