[SchnappiLuv`]

Voila je dois finir un travail en visual basic pour demain
Je l'ai quasi terminé mais j'ai oublié certaines choses,si les ferrus pouvaient m'aider ^^

Voici la question 1 :

Un entraineur voit son effectif changer avec l'arrivée de le depart de joueur.
Le fichier "effect04.txt" contient les noms et prenoms des joueurs qui composent actuellement le club,ses noms sont placés par ordre alphabétique

Le fichier "depart.txt" contient les noms et prenoms des joueurs qui vont partir du club en fin de saison

Le fichier "arrivee.txt" contient les noms et prénoms des joueurs qui viendrotn etoffer le noyau pour la saison prochaine

Vous devez composer la nouvelle equipe et sauvegarder les nouvelles données

Citation :

Insertion d'un element dans le tableau
Debut
i <- 1

j <- 1

Tant que j <= fin du tableau arrivée

Si arrivee (j) < effectif (i) alors

h <- n

Pour h = fin du tableau effectif a i

h + i <- h

Fin pour h

effectif (i) <- arrivee (j)

j <- j + 1

Sinon

i <- i + 1

Fin si

FTQ

Fin

Suppresion d'un element dans le tableau

Debut

Pour j = 1 a n

i <- 1

Tant que effectif(i) >< depart(j) et (i><n)

i <- i + 1

FTQ

Si effectif(i) ><depart(j) alors

Ecrire "Le joueur est deja parti ou est deja supprimé"

Sinon

Pour h = i + 1 a n

effectif(h - 1) <- effectif(h)

Fin pour h

Fin Si

Fin pour j

Fin

Voila ce que j'ai pour mon insertion et la suppresion d'un element du tableau
En gros je bougge tout de +1 en comparant valeur de deux tableau et j'ecrase lorsque je sais ou placer mon element

Mais voila,comment faire pour sauvegarder et ouvrir ses fichiers .txt?

Avec :

Citation :

"effect04.txt" pour lecture as # 1
"close" #1

et pour la sauvegarde?:<

Merci d'avance


EDIT : Pour la sauvegarder c'est d'un tableau a un fichier TXT
donc les elements d'un tableau a mettre ds un fichier texte et sauvegarder

[frg]

Je sais qu'en VBS/ASP il faut utiliser FSO [FileSystemObject], googleise ca

[Gordon Shumway]

Nos amis du labo me semblent bien plus aptes à te répondre efficacement.

[cricri]

Dim str1 As String
Open "c:\fi1.txt" For Binary As #1
Open "c:\fi2.txt" For Binary As #2
str1 = String(5, " ")

While Not (EOF(1))
Get #1, , str1 ' lit 5 caractere

Line Input #1, str1 ' lit 1 ligne entiere

Put #2, , str1 ' ecrit
Put #2, , str1 & vbCrLf ' ecrit + fin de ligne
Wend
Close

bon j ai melanger lecture ecriture mais c est un exemple