Lire un txt et atribuer des valeurs pour chaque ligne
Ramendust
Messages postés1Date d'inscriptiondimanche 14 décembre 2008StatutMembreDernière intervention14 décembre 2008
-
14 déc. 2008 à 16:01
PCPT
Messages postés13272Date d'inscriptionlundi 13 décembre 2004StatutMembreDernière intervention 3 février 2018
-
14 déc. 2008 à 20:17
Bonjour à tous
Je suis débutant sur VB 5, et mes connaissances dans ce language s'arrêtent à peu près à des macros toutes gentilles sur Excel. Je n'ai pas pu trouver la solution sur les forums de vbfrance donc je pose directement la question :
J'ai un fichier .txt (en réalité .pro mais ouvrable avec blocnote donc si je ne me trompe pas ce doit etre un .txt) avec des coordonnées de points écris en colonne comme ceci
X1;
Y1;
Z1;
X2;
Y2;
Z2;
etc... où Xi Yi et Zi sont des nombres sans virgule. Mon but final est de créer des points pour chaque coordonnées du fichier dans une picture box.
Je commence par la lecture du fichier :
code :
Private Sub Form1_Load()
'Lecture des données contenues dans un fichier texte
Open App.Path & "\texte1.pro" For Input As #1
Do While Not EOF(1) ' si j'ai bien compris, c'est pour lire jusqu'a la fin du fichier.
Line Input #1, TextLine
Loop
'mon idée était de mettre des indices i à chaque X,Y,Z, ligne par ligne
For i = 0 To nbAA Step 3
X(i)=Line Input #1 ' mais j'avouerai n'avoir aucune idée de comment faire.
Close #1
End Sub
Une fois les Xi,Yi,Zi enregistrés je lancerai ceci en espérant que ca marche (mais ce sera l'étape 2, encore loin) :
Private Sub Command1_Click()
Xpos(0) = 0
Ypos(0) = 0
For i = 0 To nbpoint Step 1
Picture1.PSet (Xpos(i), Ypos(i))
Next
End Sub
J'espère avoir été assez claire dans ma description
Est-ce qu'une âme charitable pourrai m'aider pour ces fichus Xi, Yi, Zi ? Merci beaucoup