svigneaux
Messages postés2Date d'inscriptionmercredi 7 novembre 2007StatutMembreDernière intervention25 janvier 2009
-
31 déc. 2008 à 11:43
cs_fauve
Messages postés661Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention23 mars 2011
-
31 déc. 2008 à 15:46
Bonjour,
Je suis débutant en vb et j'ai un petit soucis.
Pour un programme je créé un tableau dynamique, dans lequel s'enregistre des coordonnées de point.
Seulement quand je ferme l'application le tableau s'efface, alors qu'il me faudrais un fichier txt, que j'utiliserai ultérieurement.
Est ce que quelqu'un connaîtrait le code pour créer un fichier txt et enregistrer les données de mon tableau dynamique dedans?
Merci d'avance pour vos reponses.
et désolé si je suis pas dans le bon thème javascript:Insert_Emoticon('/imgs2/smile_blush.gif');.
cs_Jack
Messages postés14007Date d'inscriptionsamedi 29 décembre 2001StatutModérateurDernière intervention28 août 201579 31 déc. 2008 à 12:46
Salut
Regarde comment on fait en chargeant un code que tu trouveras en tapant "écrire fichier" dans la recherche des codes du site.
Une fois que tu auras compris comment ouvrir et écrire, il suffira d'énumérer le contenu de chaque item de ton tableau pour l'écrire dans le fichier, et de le relire quand nécessaire dans le même ordre.
Si tu te sens courageux, tu peux aussi stocker ça dans du XML.
Vala
Jack, MVP VB NB : Je ne répondrai pas aux messages privés
<hr />Le savoir est la seule matière qui s'accroit quand on la partage (Socrate)
cs_fauve
Messages postés661Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention23 mars 20118 31 déc. 2008 à 15:46
Salut,
Pour enregistrer un fichier :
' Crée le fichier ou s'il existe, il est écrasé
Dim SW As New IO.StreamWriter("D:\MonFichier.txt")
' Ecris 2 lignes dans le fichier D:\MonFichier.txt
SW.WriteLine("Bonjour")
SW.WriteLine("Monsieur")
' On ferme
SW.Close()
<hr size= "2" width="100%" />
Pour lire un fichier :
Dim
SR As New IO.StreamReader( "D:\MonFichier.txt" )
' Boucle sur le nombre de lignes dans
' D:\MonFichier.txt
Do Until SR.Peek = -1 ' On lit une ligne et on la stocke dans
' Ligne
Ligne = SR.ReadLine()
Loop