Question sur les variablesRésolu

Question

Salut &#224; tous,
J'ai une structure de ce type :
Type Structure
   ...
   Code1 as string * 8
   Code2 as string * 8
   Code3 as string * 8
   ...
End Type

Global St as Structure

Et dans mon code, je voulais savoir si c'&#233;tait possible de faire 1 truc du genre :
For x = 1 to 3
   If St.Code & i <> "        " Then
      cmbCodes.Additem St.Code & i
   Else
      Exit For
   End If
Next x

Merci.

cs_Tipo · Accepted Answer

Y a pas de raison que &#231;a ne marche pas :

Open "c:\fich" For Random As #1 Len = Len(PL)
   PL.NumPlan = "XXXXXXXXX"
   PL.Indice = "XXX"
   PL.TabCode(0) = "1000-000"
   PL.TabCode(1) = "2000-000"
   PL.TabCode(2) = "3000-000"
   RC = Chr(13) & Chr(10)
   Put #1, 1, PL
Close #1


Open "c:\fich" For Random As #1 Len = Len(PL)
Get #1, 1, PL
MsgBox PL.TabCode(1) & " " & PL.TabCode(1) & " " & PL.TabCode(2)

econs · Answer

Bah non, pas possible. Il faut utiliser un tableau (not&#233; Code par exemple)..



Type Structure
   ...
   Code(2) as string * 8
   ...
End Type


For x = 1 to 3
   If Trim(St.Code(x)) <> "" Then
      cmbCodes.Additem St.Code(x)
   Else
      Exit For
   End If
Next x



Manu
-------------------------------------------
Une question bien pos&#233;e, c'est une chance de r&#233;ponse bien adapt&#233;e.

GuiGui13 · Answer

J'ai essay&#233; aussi avec 1 tableau mais j'arrive pas &#224; le remplir.
je fais par exemple :

St.Code(0) = "2000-F10"
St.Code(1) = "4000-L21"
St.Code(2) = "5010-P17"
Put #1, x, St

& Qd j'acc&#232;de &#224; mon fichier, que je fais un MsgBox St.Code(0), y a rien qui s'affiche !!!

& je ne vois rien non plus dans mon fichier qd je l'ouvre avec WordPad.

valtrase · Answer

Lut si tu mets
Global St(50) as Structure 'Par exemple
Tu auras un index sur tout ton type

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re,
Global St(50) as Structure 

St(0).Code = "2000-F10"
St(1).Code = "4000-L21"
St(2).Code = "5010-P17"
Put #1, x, St

Mais si tu n'as que code dans ton type pourquoi utiliser un type ?
un simple tableau ferais l'affaire

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

valtrase · Answer

Re, Re Re, v&#233; trop vite
for i = 0 to 2
Put #1, x, St(i)
next

Cordialement, Jean-Paul  
______________________________________________________________________

Le Savoir n'a de valeur que s'il est partag&#233;

GuiGui13 · Answer

Je V r&#233;expliquer mon soucis.
J'ai d&#233;clar&#233; la structure d'un fichier dans mon module :

Type Plan
    NumPlan As String * 9
    Indice As String * 3
    TabCode(10) As String * 8
    RC As String * 2
End Type

Global PL as Plan

Et ds le code, je voudrais remplir Ts les champs
Je fais :

Open Fichier for ... len = len(PL)
   PL.NumPlan = "XXXXXXXXX"
   PL.Indice = "XXX"
   PL.TabCode(0) = "1000-000"
   PL.TabCode(1) = "2000-000"
   PL.TabCode(2) = "3000-000"
   RC = chr(13) & chr(10)
   Put #1, 1, PL 'ajout dans la 1&#176; ligne du fichier
Close

& qd j'ouvre mon fichier texte avec WordPad, je vois pas les codes.
Je les vois pas non plus qd je fais :

Open Fichier for ... len = len(PL)
get #1, 1, PL
MsgBox PL.TabCode(0) & " " PL.TabCode(1) & " " PL.TabCode(2)

GuiGui13 · Answer

C'est bon, &#231;a marche !!
merci &#224; tous.

Question sur les variables

8 réponses

Discussions similaires