Lecture dans fichier texte de coordonnées x ,y [Résolu]

Signaler
Messages postés
13
Date d'inscription
jeudi 17 janvier 2008
Statut
Membre
Dernière intervention
19 juin 2008
-
Messages postés
13
Date d'inscription
jeudi 17 janvier 2008
Statut
Membre
Dernière intervention
19 juin 2008
-
Bonjour,

Programmant depuis peu , je bloque pour créer quelque chose de type data(x,y) à partir d´un fichier texte. Ci-dessous mon programme avec la section posant problème surlignée en rouge...quelqu´un aurait il la gentillesse de m´aider ?

Par avance , merci, Noé



Imports System
Imports System.IO

Public Class frmRoundnessAnalyzer
    Dim length As Integer = 0
    Dim count As Integer = 0
    Dim data(length, 1)

    Private Sub btnLoadData_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim line, values(1) As String
        Dim filename As String = Nothing

        filename = GetOpenFilePath()

        If filename = Nothing Then
            MsgBox("Invalid input!", MsgBoxStyle.Critical)
            Exit Sub
        End If

        Dim sr As StreamReader = New StreamReader(filename)

        Do
            If sr.ReadLine Is Nothing Then Exit Do
            count += 1
        Loop

        ReDim data(count - 1, 1)

        sr.Close()

        Dim fs As StreamReader = New StreamReader(filename)

        Dim delimiter() As Char = " "

        For length = 0 To count - 1
            line = fs.ReadLine()
            values = line.Split(delimiter, 1)
            MsgBox(values(0))     ici la msgbox m´indique "1 3"(par exemple) alors qu´elle devrait me sortir 1 puis la message box  suivante 3 --> la fonction split précédente ne fait pas effet !
            MsgBox(values(1))
           data(length, 0) = values(0)
            data(length, 1) = values(1)
      
        Next length

        fs.Close()

    End Sub

    Public Function GetOpenFilePath() As String

        Dim OpenFileDialog1 As New OpenFileDialog
        OpenFileDialog1.InitialDirectory = "C:"
        OpenFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
        OpenFileDialog1.FilterIndex = 2
        OpenFileDialog1.RestoreDirectory = True

        If OpenFileDialog1.ShowDialog() = System.Windows.Forms.DialogResult.OK Then
            Return OpenFileDialog1.FileName
        Else
            Return ""
        End If

    End Function

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class

2 réponses

Messages postés
129
Date d'inscription
jeudi 28 octobre 2004
Statut
Membre
Dernière intervention
23 mai 2009

Bonjour, voici un correctif
 
            line = fs.ReadLine()
            values = Split(line, " " )
         
Voilà bonne prog
Messages postés
13
Date d'inscription
jeudi 17 janvier 2008
Statut
Membre
Dernière intervention
19 juin 2008

Effectivement, ca marche ! Je te remercie infiniment pour ton aide alosamoelle ! Si tu savais le nombre d´heure que j´ai  galéré à faire ca !