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