Discussion :

[Jah73]

Bonjour à tous,

J'ai besoin d'une petite astuce pour éviter de répéter plusieurs fois des Try Catch, voici un bout de code :

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
If condition1 Then
                        If condition2  Then
                            str = currentLine.Split(New Char() {"|"c})
                            maVariable1.Add(countDictionary, str(1).Replace(" ", ""))
 
                            Try
                                maVariable1.Add(countDictionary, Double.Parse(str(2).Replace(" ", ""), ciClone))
                            Catch ex As Exception
                                maVariable1.Add(countDictionary, Nothing)
                            End Try
 
                            Try
                                maVariable2.Add(countDictionary, Double.Parse(str(3).Replace(" ", ""), ciClone))
                            Catch ex As Exception
                                maVariable2.Add(countDictionary, Nothing)
                            End Try
 
                            Try
                                maVariable3.Add(countDictionary, Double.Parse(str(4).Replace(" ", ""), ciClone))
                            Catch ex As Exception
                                maVariable3.Add(countDictionary, Nothing)
                            End Try
 
                            countDictionary += 1
                            Continue While
                        End If                      
End If

Ce qui se passe c'est que je veux relever une valeur sauf qu'elle peut être absente et dans ce cas le Parse ne fonctionne pas.
Du coup j'utilisr le try catch sauf que je vais devoir le répéter beaucoup de fois

Quelqu'un a une idée ?

Merci,

Jah

[youtpout978]

Il y a une méthode tryparse qui retourne un booléen qui indique si la conversion a réussi.
TryParse

[Jah73]

@youtpout978 : J'ai pensé au TryParse, sauf que ça m'obligerai à faire des If Else ?

[rv26t]

Bonjour,

Utilise une procédure ou une fonction qui remplace ton bloc

Code :

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

1
2
3
4
5
                            Try
                                maVariable1.Add(countDictionary, Double.Parse(str(2).Replace(" ", ""), ciClone))
                            Catch ex As Exception
                                maVariable1.Add(countDictionary, Nothing)
                            End Try

Comme cela le try catch ne sera que dans ta procédure ou fonction.

A+, Hervé.

[Sokhz]

Il existe également la fonction Trim pour supprimer les espaces au lieu de faire des Replace(" ","").

[rv26t]

Exemple de procedure

Code :

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

1
2
3
4
5
6
7
    Sub Ajoute(ByRef maVariable As TonType, ByVal countdictionary As Integer, ByVal Str As String, ByVal ns As System.Globalization.NumberStyles)
        Try
            maVariable.Add(countdictionary, Double.Parse(Str.Replace(" ", ""), ns))
        Catch ex As Exception
            maVariable.Add(countdictionary, Nothing)
        End Try
    End Sub

Utilisation

Code :

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

1
2
3
4
5
6
7
8
                    If condition1 Then
                        If condition2  Then
                            str = currentLine.Split(New Char() {"|"c})
                            maVariable1.Add(countDictionary, str(1).Replace(" ", ""))
 
                            Ajoute(maVariable1,countDictionary,str(2),ciclone)
                            Ajoute(maVariable2,countDictionary,str(3),ciclone)
    ' ...