[Débutant] While Fonctions vers list(of

While Fonctions vers list(of

Bonjour à tous,

J'aimerais bien pouvoir convertir ceci en list(of ainsi je peux ajouter un nouvel appel directement dedans.
J'ai regarder les expression lambda mais mes fonctions sont toutes différentes

Ainsi je pourrais faire un "for each..."

mon "cutedfName" est passé en référence et rétrécit au fil des étapes, "CtrlNommageResult" me permet de quitter si l'une des étapes effectué à généré une erreur de manière à ne pas pouvoir continuer les étapes suivantes.

Code:

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
 
 
            'Tronconne petit à petit le texte du nom de fichier au fil des étapes
            Dim cutedfName As String = IO.Path.GetFileNameWithoutExtension(finfo.Name)
 
            Dim tmp_NomSerie As String
            Dim tmp_NumSaison As Integer
 
            Dim etape As Integer = 1
 
            While etape < 10 AndAlso CtrlNommageResult.IsOk
                Select Case etape
 
                    Case 1
                        tmp_NomSerie = Ctrl_NomSerie(cutedfName, PathInfos)
                    Case 2
                        Ctrl_SerieSaisonSeparator(cutedfName)
                    Case 3
                        tmp_NumSaison = Ctrl_Saison(cutedfName, PathInfos)
                    Case 4
                        Ctrl_SaisonEpisodeSeparator(cutedfName)
                    Case 5
 
                End Select
                etape += 1
            End While

Merci de votre aide.

J'ai pas compris la demande...

En revanche, je crois avoir compris que tu souhaites récupérer des informations en fonction du nom (normalisé) d'un fichier? Si c'est bien le cas, regardes la fonction String.Split.

je suis pas sur d'avoir compris mais ca doit être ça :

Code:

1
2
3
4
5
6
7
8
9
10
11
dim l as new list(of action)
l.Add(sub()  tmp_NomSerie = Ctrl_NomSerie(cutedfName, PathInfos))
l.Add(sub()  Ctrl_SerieSaisonSeparator(cutedfName))
' ...
 
 
l.foreach(sub(a) a.invoke)
'cette dernière ligne équivaut à 
'for each a in l
'  a.invoke
'next