Discussion :

[Gelayo]

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

[Pepito39]

Bonjour,

Tu dois parcourir ton tableau avec un pas de 2

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
For i As Integer = 0 To tabl.Length Step 2
Next

x sera tabl(i)
y sera tabl(i+1)

[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) :/

[Mario Rousson]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

[Pepito39]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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