Manipulation fonction split

Version imprimable

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:

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

05/04/2017, 16h48
Pepito39
Bonjour,

Tu dois parcourir ton tableau avec un pas de 2
Code:

1 2 For i As Integer = 0 To tabl.Length Step 2 Next
x sera tabl(i)
y sera tabl(i+1)
05/04/2017, 16h55
Gelayo

Bonjour,
merci pour ta réponse, j'ai essayer, mais je sais toujours pas comment calculer les différences avec ça (je viens de commencer l'apprentissage) :/
06/04/2017, 07h49
Mario Rousson

Lecture de fichier txt
salut

Perso, j'utilise une variable string pour lire une séquence de ligne d'un fichier txt

Le tuto de Philippe Lasserre est très bien fait pour apprendre à manipuler les string
http://plasserre.developpez.com/cours/vb-net/

en gros je fais comme suit
Code:

1 2 3 4 5 6 7 Dim Chem as string = 'Chemin de ton fichier txt Dim StrTmp() as string = File.ReadAllLines(Chem) for each Lgn in strTmp 'd'ici tu fait ta lecture split de chaque ligne next
amuse toi bien!
06/04/2017, 08h24
Pepito39
Citation:

Envoyé par Gelayo

Bonjour,
merci pour ta réponse, j'ai essayer, mais je sais toujours pas comment calculer les différences avec ça (je viens de commencer l'apprentissage) :/

Après ça dépend si tes données sont triées dans ton tableau et lesquels tu veux utiliser, mais par exemple pour les 4 premières, les 4 suivantes..ect
Du coup, x1 = tabl(i), y1 = tabl.(i+1), x2 = tabl(i+2), y2 = tabl(i+3).
Code:

1 2 3 4 5 6 Dim dx, Dim dy For i As Integer = 0 To tabl.Length -1 Step 4 dy = tabl(i+3) - tabl(i+1) dx = tabl(i+2) - tabl(i) Next
Après envoi ce que tu as essayé et l'erreur pour qu'on puisse mieux t'aider :)