Bonjour,

Je débute en visual basics et je dois réaliser un programme utilisant le tri bulle pour trier un fichier choisi par l 'utilisateur. Voila ce que j'ai déja écrit :

Dans le main form

Imports System.io
Public Partial Class MainForm
Public Sub New()
' The Me.InitializeComponent call is required for Windows Forms designer support.
Me.InitializeComponent()

'
' TODO : Add constructor code after InitializeComponents
'
End Sub

Sub Button1Click(sender As Object, e As System.EventArgs)

Dim f As streamreader

openfiledialog1.Filter="fichiers.txt|*.txt|fichiers.csv|*.csv"
openfiledialog1.ShowDialog()
f=file.OpenText(openfiledialog1.FileName)

PBulle(f)

End Sub
End Class

Dans le module

imports System.io
Public Module Module1

Public Sub PBulle(ByRef f As streamreader)

dim t() as String
dim res as integer
Dim n As Integer
Dim k As Integer
Dim a As Integer
Dim i As Integer
dim j as integer

Do While f.peek<>-1
ReDim Preserve t(n)
t(n)=f.readline()
n=n+1

For k=0 To n-2
For i=0 To n-2-k
If t(i)>t(i+1) Then
a=t(i)
t(i)=t(i+1)
t(i+1)=a

End If

Next i
Next k
For j=0 To n-1
res=res & t(i) & vbnewline
Next j
messagebox.Show(res)


Loop

End Sub

End Module

Est ce que vous sauriez pourquoi ca ne marche pas ?

merci à tous

Configuration: Windows XP
Internet Explorer 7.0