Discussion :

[guice11]

Je fais une application sous VB, pour l'instant y'avais aucun problème mais mtn je n'arrive pas à afficher le "+". Cela est remplacer par un espace. J'ai essayer de remplacer la valeur du plus comme ceci :

Code :

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

1
2
3
Dim Value1 As String
Value1 = System.Text.RegularExpressions.Regex.Replace(Value1Result, "(<[^>]+>)", "")
Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "%2B", "+")

mais toujours rien

Donc voilà, merci d'avance aux réponses

[jabbounet]

le + fait parti des syntaxes possible en regexp qui veux dire que tu retrouve au moins une fois l'élément si je me souviens bien.

si tu veux le caractère + il faut le préfixer d'un \


http://linux.die.net/man/3/regexp

[guice11]

Ce qui ferais celà ?

Code :

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

Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "%2B", "\+")

[jabbounet]

Code :

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

1
2
 
Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "%2B", "+")

Au fait, que fais cette commande, je ne connais pas vb?
est ce que c'est censé remplacer dans value 1 la chaine "%2B" par "+" ou l'inverse?

et cela ne gene pas VB que tu réaffecte le résultat dans la même chaine?

[guice11]

Je suis sous VB 2005

Pour "jabbounet", Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "%2B", "+"), remplace dans Value1, "%2B" par "+".

[jabbounet]

pouruquoi utiliser une regexp pour remplacer ici un simple fonction de base suffit.

[guice11]

nan j'ai essayer avec une fonction de base comme :

Value1 = Value1.Replace("\%2B", "+")

et rien ne se passe.

[guice11]

Je met le code important de ma procédure pour que vous y voyez plus claire :

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
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
 
Dim Pattern As String
 
Pattern = "<a HREF=""/serie-[0-9]*-BD-[a-zA-Z0-9-:'!ü,ç@°...\(+\)+\\+\[+\]+\/+\&amp;+\x9C+\x2B+\x8C+\x40+\x3D+\+\x24+\xB2+\…+\x2A+]*.html"" TARGET=""_top"" alt=""[a-zA-Z0-9-:!?@°',%...ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç\s+\(+\)+\\+\[+\]+\/+\&amp;+\x9C+\x2B+\x40+\x3D+\x8C+\x24+\xB2+\…+\x2A+]*"" title=""[a-zA-Z0-9-:!?°',%...ÀÁÂÃÄÅàáâãäåÒÓÔÕÖØòóôõöøÈÉÊËèéêëÌÍÎÏìíîïÙÚÛÜùúûüÿÑñÇç\s+\(+\)+\\+\[+\]+\/+\&amp;+\x9C+\x2B+\x40+\x8C+\x3D+\x24+\xB2+\…+\x2A+]*"" >(.*)</a>"
Dim rx As New Text.RegularExpressions.Regex(Pattern, RegexOptions.IgnoreCase)
Dim matches As MatchCollection = rx.Matches(result)
            If matches.Count.ToString = 0 Then
                MsgBox("Aucune série trouvée.", MsgBoxStyle.Information, "Film - Ty")
                Me.Cursor = Cursors.Default
                Exit Sub
            End If
            Dim guillement As String = """"
            If matches.Count.ToString = 1 Then
                Dim Value1Result As String = matches.Item(0).Value.ToString
                If matches1.Count.ToString = 0 Then
                    Value2Result = "ND"
                Else
                    Value2Result = matches1.Item(0).Value.ToString
                End If
 
                Dim MaRegex As New System.Text.RegularExpressions.Regex("")
                Dim Value1 As String
                Value1 = System.Text.RegularExpressions.Regex.Replace(Value1Result, "(<[^>]*>)", "")
                Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "%2B", "\+")
                Value1 = Value1.Replace("&amp;", "&")
                Value1 = Value1.Replace("x9C", "œ")
                Value1 = Value1.Replace(" &quote ;", "f")
                Dim item1 As New ListViewItem(1)
                item1.SubItems.Add(Value1)
                Me.LvResults.Items.AddRange(New ListViewItem() {item1})
            Else
                For i As Short = 0 To matches.Count.ToString - 1
                    Dim MaRegex As New System.Text.RegularExpressions.Regex("")
                    Dim Value1 As String
 
                    Value1 = System.Text.RegularExpressions.Regex.Replace(matches(i).Value, "(<[^>]+>)", "")
                    Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "\x9C", "œ")
                    Value1 = System.Text.RegularExpressions.Regex.Replace(Value1, "\x8C", "Œ")
                    Value1 = Value1.Replace("&quote;", guillement)
                    Value1 = Value1.Replace("%2B", "\+")
                    Value1 = Value1.Replace("&amp;", "&")
                    Dim item1 As New ListViewItem(i + 1)
                    item1.SubItems.Add(Value1)
                    Me.LvResults.Items.AddRange(New ListViewItem() {item1})
                Next
            End If

[jabbounet]

nan j'ai essayer avec une fonction de base comme :

Value1 = Value1.Replace("\%2B", "+")

et rien ne se passe.

et sans le \ devant le %2B?

le % n'est il pas interprété d'une façon particulière en VB?

peu être une astuce du type %% pour qu'il ignore le second et le prenne pour le caractère.

autrement peu etre que %2B n'est tout simplement pas présent dans value1