Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Développement Développement Visual Basic question bête sur la sauvegarde de variable

question bête sur la sauvegarde de variable

14 réponses
Avatar
squat541
salut
voila le morceau de prog
Dim T(1 To 3) As byte
Open "D:\adresse.txt" for Input As #1
For i=Lbound(T) To Ubound(T)
i=0
Do While EOF(1) = False
i=i+1
Input #1,T(i)
Loop
Next i
Close i
je creer un tableau T qui se remplie depuis un fichier.txt
g trois variable T(1),T(2) et T(3),quand je fait le debogage je voit bien
les 3 variable qui prenne les valeurs du fichier.txt mais le prog agit comme
si le tableau est vide,je pense que c parce que je n'est pas de sauvegarde
pour les variables si quelqu'un a la reponse ce serait sympa
mais g il ne les rentre dans le tableau
Signaler un problème avec ce contenu

4 réponses

Supprimer
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire

Veuillez sélectionner un problème

Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
1 2
Avatar
Patrice Henrio
Le vrai problème dans la boucle citée c'est que c'est une boucle infernale
puisque la variable d'indice est remise à 0 à chaque passage dans la boucle.

For i=Lbound(T) To Ubound(T)

i=0

Next i


"LE TROLL" <le a écrit dans le message de news:

Bonjour Gloops,

LBount et UBound donnent respectivement les extrémités d'un tableau,
dans le cas présent: 1 et 3...
Nonobstant, nous préférâmes certes, quelques chose de plus classique,
comme:
dim T(3) as byte
for i = 1 to 3
T(i)

Mais bon, ad libitum...
--------

"Gloops" a écrit dans le message de news:
4253d9d6$0$19359$
Salut,

Peux-tu préciser à quoi sert ceci ?

squat541 a écrit, le 04/04/2005 12:47 :

For i=Lbound(T) To Ubound(T)
i=0



Next i









Avatar
LE TROLL
Ah, tu as raison, je n'avais pas été si bas, je répondais à
la question uniquement, mais certes, s'il a fait une boucle
avec remise à 0 de son indice dans celle-ci , ben ça dure
tant que le moteur du disque dur peut tourner :o)
--------------

"Patrice Henrio" a écrit dans
le message de news:
Le vrai problème dans la boucle citée c'est que c'est une
boucle infernale puisque la variable d'indice est remise à
0 à chaque passage dans la boucle.

For i=Lbound(T) To Ubound(T)

i=0

Next i


"LE TROLL" <le a écrit dans le message de
news:
Bonjour Gloops,

LBount et UBound donnent respectivement les extrémités
d'un tableau, dans le cas présent: 1 et 3...
Nonobstant, nous préférâmes certes, quelques chose de
plus classique, comme:
dim T(3) as byte
for i = 1 to 3
T(i)

Mais bon, ad libitum...
--------

"Gloops" a écrit dans le message de
news: 4253d9d6$0$19359$
Salut,

Peux-tu préciser à quoi sert ceci ?

squat541 a écrit, le 04/04/2005 12:47 :

For i=Lbound(T) To Ubound(T)
i=0



Next i













Avatar
Driss HANIB
Bonjour,

je n'ai pas lu tout le fil

mais tu modifies deux fois de suite la variable i

si tu fais
For i = LBound(T()) to Ubound(T())

Next i

il ne faut pas marquer i=0 ni i=i+1 : cela est fait automatiquement

si ton i (i=0 et i=i+1) est une autre variable : change de nom

Driss
"squat541" a écrit dans le message de
news:
salut
voila le morceau de prog
Dim T(1 To 3) As byte
Open "D:adresse.txt" for Input As #1
For i=Lbound(T) To Ubound(T)
i=0
Do While EOF(1) = False
i=i+1
Input #1,T(i)
Loop
Next i
Close i
je creer un tableau T qui se remplie depuis un fichier.txt
g trois variable T(1),T(2) et T(3),quand je fait le debogage je voit bien
les 3 variable qui prenne les valeurs du fichier.txt mais le prog agit


comme
si le tableau est vide,je pense que c parce que je n'est pas de sauvegarde
pour les variables si quelqu'un a la reponse ce serait sympa
mais g il ne les rentre dans le tableau


Avatar
Driss HANIB
tout à fait Patrice,

et puis ensuite il faudrait que squat541 nous dise quelle est le type de
fichier txt qu'il a car si on enlève ses variables i à l'interieur de la
boucle for next (voir mon post de ce jour)
si on regarde son prog

Dim T(1 To 3) As byte
Open "D:adresse.txt" for Input As #1
For i=Lbound(T) To Ubound(T)
' i=0
Do While EOF(1) = False <<<<<<<<<<<<<<<<
' i=i+1
Input #1,T(i)
Loop <<<<<<<<<<<<<<<<<<<<<
Next i
Close i

on voit que pour chaque valeur de i il boucle complètement son fichier et au
final il ne met que la derbière ligne du fichier dans T(i) donc au bout du
compte il aura les mêmes valeurs dans t(1), T(2) et T(3)

Il faudait que squat541 nous explique ce qu'il veut faire exactement
le reste : LBound et Ubound n'est pas le problème comme tu l'as dit.. cela
donne seulement une mobilité dans l'utilisation du tableau (éventuellement)


Driss



"Patrice Henrio" a écrit dans le message de
news:
Le vrai problème dans la boucle citée c'est que c'est une boucle infernale
puisque la variable d'indice est remise à 0 à chaque passage dans la


boucle.

For i=Lbound(T) To Ubound(T)

i=0

Next i


"LE TROLL" <le a écrit dans le message de news:

> Bonjour Gloops,
>
> LBount et UBound donnent respectivement les extrémités d'un tableau,
> dans le cas présent: 1 et 3...
> Nonobstant, nous préférâmes certes, quelques chose de plus classique,
> comme:
> dim T(3) as byte
> for i = 1 to 3
> T(i)
>
> Mais bon, ad libitum...
> --------
>
> "Gloops" a écrit dans le message de news:
> 4253d9d6$0$19359$
>> Salut,
>>
>> Peux-tu préciser à quoi sert ceci ?
>>
>> squat541 a écrit, le 04/04/2005 12:47 :
>>
>>> For i=Lbound(T) To Ubound(T)
>>> i=0
>>
>>> Next i
>>
>
>




1 2