probleme try catch, Exception

**Slumpy** · 21/03/2007, 14h40

Bonjour, j ai cree une classe representant un fichier. Dans cette classe j ai definit une methode readfile permetant de lire ce fichier. Elle commence comme cela :

Code :

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

1
2
3
4
5
Public Sub readfile()
            Dim fi As FileInfo = New FileInfo(Me._path)
            If fi.Exists = False Then
            Throw New Exception("Can not find the file")
             End If

Dans mon appli, quand j essaye de lire un fichier j utilise donc :

Code :

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

1
2
3
4
5
6
Dim file1 As New Classfile(5, 4, "C:\Download\Colomn1", "NC")
        Try
            file1.readfile()
        Catch e As Exception
            Console.Error.WriteLine(e.Message)
        End Try

En faisant cela je pensais que si le fichier en question (ici Colomn1) n existe pas, j aurais un message d erreur indiquant "Can not find the file". Or non. Il compile, mais ne me laisse pas le message ou alors je ne c pas ou le regarder.

Si quelqu un a une idee svp ?

Merci

**bidou** · 21/03/2007, 17h57

il ne vas pas lever d'exception à la compilation

**Slumpy** · 22/03/2007, 10h06

Arf j ai pas ete clair desole.

Il ne me laisse pas le message quand la methode file1.readfile() est appele.

J avoue que je ne comprends tjs po

**Slumpy** · 23/03/2007, 11h23

Bonjour,

desole de revenir sur ma question, mais je ne comprend tjs pas comment marche le traitement des exceptions.

dans ma classe j ai la methode suivante :

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
Public Sub readfile(ByVal tab(,) As Integer)
        Dim fi As FileInfo = New FileInfo(Me._path)
        If fi.Exists = False Then
            Throw New Exception("Can not find the file")
        End If
 
        ' Open the stream read it back
        Dim sr As StreamReader = fi.OpenText
        Dim line As String
        Dim nline As Integer
        Dim ncol As Integer
        Dim Table(Me._nbrline, Me._nbrcol) As Integer
 
        For nline = 1 To Me._nbrline
            line = sr.ReadLine()
            Dim TestArray() As String = Split(line)
            For ncol = 1 To Me._nbrcol
                Table(nline, ncol) = CInt(TestArray(ncol))
                tab(nline, ncol) = Table(nline, ncol)
                Console.Write(Table(nline, ncol))
                Console.Write("  ")
            Next
            Console.WriteLine()
        Next
        sr.Close()
 
    End Sub

Cette methode a pour but de lire un fichier. Comme vous pouvez le voir, dans les premieres lignes j indique que si le fichier n existe pas on devrait afficher le message : Can not find the file. (en tout cas c se que j essaye de faire).

Dans mon programme, pour appeler cette methose j utilise le bout de code suivant :

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
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Dim file1 As New Classfile(5, 4, "C:\Download\Colomn6", "NC")
        Dim table(file1.nbrline, file1.nbrcol) As Integer
 
        Try
            file1.readfile(table)
        Catch er As Exception
            Console.Error.WriteLine(er.Message)
        End Try
 
        Dim addition As Integer
        addition = table(1, 1) + table(5, 2)
        Console.WriteLine("result = " & addition)       
 
    End Sub

Comme vous pouvez le voir j utilise un try catch quand j essaye de lire le fichier.

Partant de la, si je lance mon appli et que le fichier n existe pas, je m attend a voir le message quelque part. Or je n ai pas de message, ou alors, je ne c pas ou regarder.

Bref, j aimerais bien comprendre ce que j ai mal fait ou pas compris.

Merchi

**Zyth** · 23/03/2007, 12h33

À la place d'utiliser la console pour écrire ton message, utilises un MessageBox. S'il ne l'affiche pas, c'est que l'exception n'est pas lancée ...

**Slumpy** · 23/03/2007, 14h49

Bonne idee.

Je viens d essayer en remplacer par

Code :

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

MsgBox(er.Message)

et effectivement il m ecrit bien le message que j ai choisi, donc l exception est lance. Mais pourquoi ne vois je pas le message dans output window si la ligne de code est :

Code :

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

Console.Error.WriteLine(er.Message)

Merci

**Lunelame** · 23/03/2007, 15h02

Je ne connais pas l'instruction :
Console.Error.WriteLine(er.Message)

Je connais :
Console.WriteLine(er.Message)
ou
Debug.WriteLine(er.Message)

@ +

**Slumpy** · 23/03/2007, 15h26

Effectivement avec t deux commandes j ai aussi le message d erreur. Une foi dans la Immediate Window et une foi dans la Output window. Par contre, j avais vu ce code quelque par :

Code :

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