Bonjour,
j'ai un fichier texte qui contient 20 points en coordonnées x et y de la forme suivante :
p1;579;212
p2;612;179
....etc

je veux calculer la distance et le gisement des points, le problème c'est que je sais pas comment manipuler le code.
tabl(1) et tabl(2) me renvoie les valeurs de x et y de la première ligne, mais je sais pas comment lire les valeurs des lignes suivantes afin de calculer dx et dy (qui sont x2-x1 , y2-y1...)

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
Imports System.IO
 
Public Class Form1
 
 
    Private Sub FichierTexteToolStripMenuItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles FichierTexteToolStripMenuItem.Click
 
        OpenFileDialog1.Filter = "fichier texte| *.txt"
        Dim nbLigne As Integer
        nbLigne = 0
        If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim sr As StreamReader
            sr = New StreamReader(OpenFileDialog1.FileName)
            Dim x, y As Single
            Dim txtTotal As String
            Dim ligne = sr.ReadLine()
            Dim tabl() As Object
            tabl = Split(ligne, ";") 'la taille de tableau represente le nombre de bloc qui ksont séparer par les separateur
            txtTotal = ligne + vbCrLf
            x = tabl(1)
            y = tabl(2)
 
            While Not ligne Is Nothing
                ligne = sr.ReadLine
                txtTotal = txtTotal + ligne + vbCrLf            
 
                tabl = Split(ligne, ";") 'la taille de tableau represente le nombre de bloc qui ksont séparer par les separateur
                nbLigne = nbLigne + 1
 
 
            End While
 
 
            'Label1.Text = Calculs.distance(dx, dy)
 
        Else : Close()
 
        End If
 
    End Sub
 
 
 
End Class