Convertir C#.net avec lamba expression vers VB.net

Version imprimable

Bonjour à tous,
Je ne suis pas du tout familiarisé avec les expressions lambda, de ce fait je n'arrive par à convertir la méthode ci-dessous en Vb.net.
Quelqu'un pourrait-il m'aider et/ou me fournir la méthode en VB.net SVP ?

Un gros merci à tous, et bonne soirée :)

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
 
private static string StripOLList(string source)
        {
            string output = "";
            try
            {               
                string patternOL = @"<(ol)\s[^\>]*>(<li>.*?</li>)+?</\1>";               
                string trg = Regex.Replace(source, patternOL, (param) =>
                {                   
                    if (param.Groups[1].Value.Equals("ol"))
                    {
                        int i = 1;
                        foreach (Capture c in param.Groups[2].Captures)
                            output += String.Format("{0}. {1}\n", i++, Regex.Replace(c.Value, "<li>(.*?)</li>", "$1"));
                    }                   
                    return output;
                });               
                return trg;               
            }
            catch
            {
                return source;
            }
        }

14/04/2017, 10h12
Momoth

Salut,

Voici un petit site assez sympa pour convertir du code C# <=> Vb.net : http://converter.telerik.com/

Citation:

Envoyé par Gremlins27

Code:

1
2
3
4
5
6
7
8
9
10
11
 
(param) =>
                {                   
                    if (param.Groups[1].Value.Equals("ol"))
                    {
                        int i = 1;
                        foreach (Capture c in param.Groups[2].Captures)
                            output += String.Format("{0}. {1}\n", i++, Regex.Replace(c.Value, "<li>(.*?)</li>", "$1"));
                    }                   
                    return output;
                }

Code:

1
2
3
4
5
6
7
8
9
 
Function(param) [...]
 
'Exemple :
MaListe.Where(Function(param) param.MaPropriete = true)
 
MaListe.Where(Function(param) 
      Return param.MaPropriete = true
End Function)

14/04/2017, 13h03
Gremlins27

les converter automatiquses ne fonctionnent pas...

Citation:

Envoyé par Momoth

Salut,

Voici un petit site assez sympa pour convertir du code C# <=> Vb.net : http://converter.telerik.com/

Merci beaucoup pour la réponse, toutefois, j'ai essayé plusieurs sites de conversion automatique, mais cela ne fonctionne pas à cause de l'expression Lambda...
Autre suggestion ou aide svp ?

Merci encore :)
14/04/2017, 15h27
ZenZiTone

Citation:

Envoyé par Gremlins27

Autre suggestion ou aide svp ?

Ma suggestion ne va pas?

(au passage, converter.telerik fait le job pour l'exemple que tu donnes..)
14/04/2017, 15h30
Gremlins27

Oui c'est parfait

Citation:

Envoyé par ZenZiTone

Ma suggestion ne va pas?

Salut,

Oui c'est parfait, je vais m'essayer. Un gros merci.
Te reviens si j'ai des questions.

Encore un gros merci pour ton aide :D

ok, mais param est de quel type et initialisé comment ?

Citation:

Envoyé par ZenZiTone

Code:

1
2
3
4
5
6
7
8
9
 
Function(param) [...]
 
'Exemple :
MaListe.Where(Function(param) param.MaPropriete = true)
 
MaListe.Where(Function(param) 
      Return param.MaPropriete = true
End Function)

Voila ce que j'ai fait, tu devrais comprendre ou je bloque :( :

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
27
 
 private static string StripOlList(string source)
        {
            string output = "";
            try
            {
                string patternOL = @"<(ol)\s[^\>]*>(<li>.*?</li>)+?</\1>";
                string trg = Regex.Replace(source, patternOL, convertir(param)); //comment j'initialise param et de quel type est-il ?
                return trg;
            }
            catch
            {
                return source;
            }
        }
         string convertir (?????? param) //param est de quel type ?
         {
            string output = "";
            if (param.Groups[1].Value.Equals("ol"))
            {
                int i = 1;
                foreach (Capture c in param.Groups[2].Captures)
                    output += String.Format("{0}. {1}\n", i++, Regex.Replace(c.Value, "<li>(.*?)</li>", "$1"));
            }
            return output;
        }
    }

C'est Bon j'ai trouvé ! :)

Un gros merci a

Citation:

ZenZiTone

qui m'a mis sur la piste, pour ceux que cela intéresse voici le code en VB.net :

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
 
    Private Function ConvertirListesHtmlToPlainText(ByVal source As String) As String
 
        Dim patternOlUl As String = "<(ul|ol)>(<li>.*?</li>)+?</\1>"
 
        Dim resultat As String = Regex.Replace(source, patternOlUl, AddressOf RemplacePucesNumeros)
        Return resultat
 
    End Function
 
    Private Function RemplacePucesNumeros(ByVal param As Match) As String
        Dim resultat As String = ""
        If param.Groups(1).Value.Equals("ol") Then
            Dim i As Integer = 0
            For Each optionTrouvee As Capture In param.Groups(2).Captures
                i += 1
                resultat = (resultat + String.Format("{0}. {1}" & vbLf, i, Regex.Replace(optionTrouvee.Value, "<li>(.*?)</li>", "$1")))
            Next
        Else
            For Each optionTrouvee As Capture In param.Groups(2).Captures
                resultat = (resultat + String.Format("{0} {1}" & vbLf, "-", Regex.Replace(optionTrouvee.Value, "<li>(.*?)</li>", "$1")))
            Next
        End If
 
        Return resultat
    End Function