concaténation de chaîne impossible!

Version imprimable

Bonjour à tous,

J'essaie de concaténer des chaines de caractères, j'ai essayé avec + avec & avec stringbuilder, toujours le même soucis...

Fonctionne:

Code:

1
2
3
4
5
6
7
8
9
10
11
Dim m2 As Match = Regex.Match(line, ".*day=""(.*)"" hour=""(.*)"" minute=""(.*)"" month=""(.*)"" second=""(.*)"" year=""(.*)"".*", RegexOptions.IgnoreCase)
 
                            Dim Day As New StringBuilder
                            Day.Append(m2.Groups(1).Value.ToString)
                            'Day.Append("/")
                            Day.Append(m2.Groups(4).Value.ToString)
                            'Day.Append("/")
                            Day.Append(m2.Groups(6).Value.ToString)
 
                            Time = Day.ToString
                            Label2.Text = Time   'donne bien 12122012 par exemple

Fonctionne pas:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
 
                            Dim m2 As Match = Regex.Match(line, ".*day=""(.*)"" hour=""(.*)"" minute=""(.*)"" month=""(.*)"" second=""(.*)"" year=""(.*)"".*", RegexOptions.IgnoreCase)
 
                            Dim Day As New StringBuilder
                            Day.Append(m2.Groups(1).Value.ToString)
                            Day.Append("/")
                            Day.Append(m2.Groups(4).Value.ToString)
                            Day.Append("/")
                            Day.Append(m2.Groups(6).Value.ToString)
 
                            Time = Day.ToString
                            Label2.Text = Time   'donne //

Fonctionne pas: (essai en code ASCII)...

Code:

1
2
 
Time = String.Concat(m2.Groups(1).Value.ToString, Chr(47), m2.Groups(4).Value.ToString, Chr(47), m2.Groups(6).Value.ToString)

Je désespère... rien de spécial dans mes string, je précise qu'en prenant que le premier groups de m2 et en ajoutant n'importe quel caractère le résultat est le même (uniquement le caractère ajouté apparaît)... 8O 8O

Fonctionne pas: (essai en code ASCII)...

Code:

1
2
3
4
5
6
 
Time = (m2.Groups(1).Value.ToString + Chr(47))
'ou
Time = (m2.Groups(1).Value.ToString & "/")
 
'donne toujours que /

09/01/2013, 15h42
wallace1

Le fait qu un stringbuilder soit mutable devrait t inciter a stocker tes resultats au fur et a mesure dans des variables de type string et ainsi tu pourrais les concatener plus tard. ;)

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
 
                    While objreader2.Peek() >= 1
                        line = objreader2.ReadLine()
                        Dim m2 As Match = Regex.Match(line, ".*day=""(.*)"" hour=""(.*)"" minute=""(.*)"" month=""(.*)"" second=""(.*)"" year=""(.*)"".*", RegexOptions.IgnoreCase)
 
                        Dim day As String = m2.Groups(1).Value.ToString
                        Dim month As String = m2.Groups(4).Value.ToString
                        Dim year As String = m2.Groups(6).Value.ToString
                        Dim seperate As String = "/"
 
                        Dim Time As String = String.Concat(day, seperate, month, seperate, year) 'donne toujours //
'ou
                        Dim Time As String = day & seperate & month & seperate & year 'donne toujours //
'ou
                        Dim Time As String = day + seperate + month + seperate + year 'donne toujours //
'ou
                        Dim Time As New StringBuilder
                        Time.Append(day)
                        Time.Append(seperate)
                        Time.Append(month)
                        Time.Append(seperate)
                        Time.Append(year)
 
                           'donne toujours //

Je penses / supposes qu'il s'agit d'un problème d'encodage mais je n'arrive pas à comprendre la subtilité de la chose... Avec un autre fichier texte enregistré avec le notepad j'ai le même soucis... :roll:

Edit: Que ce soit en UTF-8 / ANSI / unicode, même résultat, donc la vérité est ailleurs... :cry:

09/01/2013, 18h10
chrismonoye

Bonsoir,
ton modèle m'interroge, il correspond à une chaine telle que celle ci :

Code:

Dim line As String = "Intervention : day=""15"" hour=""22"" minute=""35"" month=""01"" second=""18"" year=""2013"" is over."

Avec ce genre de lignes, toutes tes solutions de présentation fonctionnent.
Mais je doute qu'elles se présentent sous cette forme?

Ça fonctionne! :calim2:
Il faudrait libérer m2?? pourtant même en stockant dans des variable ça passait pas...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
                        line = objreader2.ReadLine()
                        Dim m2 As Match = Regex.Match(line, "<time day=""(.*)"" hour=""(.*)"" minute=""(.*)"" month=""(.*)"" second=""(.*)"" year=""(.*)""/>", RegexOptions.IgnoreCase)
 
                        Dim day As String = m2.Groups(1).Value.ToString
                        Dim month As String = m2.Groups(4).Value.ToString
                        Dim year As String = m2.Groups(6).Value.ToString
                        Dim seperate As String = "/"
 
                        m2 = Regex.Match(line, "autrepattern""(.*)""oO", RegexOptions.IgnoreCase)
                        ID = m2.Groups(1).Value
 
 
                        Dim Time As String = day
 
                        If Time <> "" Then 'était la avant déjà... je l'enlevait pour clarifier...
                            TimeLbl.Text = day + "/" + month + "/" + year
                        End If

09/01/2013, 18h16
bis0n

Citation:

Envoyé par chrismonoye

Bonsoir,
ton modèle m'interroge, il correspond à une chaine telle que celle ci :

Code:

Dim line As String = "Intervention : day=""15"" hour=""22"" minute=""35"" month=""01"" second=""18"" year=""2013"" is over."

Avec ce genre de lignes, toutes tes solutions de présentation fonctionnent.
Mais je doute qu'elles se présentent sous cette forme?

Si si exactement sous cette forme... :)
Edit euh non en fait sous cette forme:
time day="8" hour="17" minute="10" month="1" second="15" year="2013"

les doubles " sont des caractère d’échappement...
10/01/2013, 00h05
chrismonoye

Oui, c'est bien la même forme.
Tes guillemets sont ils droits (anglais informatiques) ou anglais entrant-ouvrants ou autres peut être ?
A tester ce modèle qui cherchera un signe de ponctuation généraliste en lieu et place du guillemet :

Code:

Dim m2 As Match = Regex.Match(line, ".*day=\p{P}(.*)\p{P} hour=\p{P}(.*)\p{P} minute=\p{P}(.*)\p{P} month=\p{P}(.*)\p{P} second=\p{P}(.*)\p{P} year=\p{P}(.*)\p{P}.*", RegexOptions.IgnoreCase)
10/01/2013, 11h02
bis0n

oui... le modèle ci dessous aurait aussi fonctionné, mais le problème n'était pas là, voir le tout premier exemple que je donne, les données sont bien extraites et récupérées, mon pattern regex à donc toujours été bon... ;)

Je n'ai toujours pas compris ce qui clochait, mais bon ça fonctionne... (voir mes dernières réponses)...

Code:

Dim m2 As Match = Regex.Match(line, ".*day=\p{P}(.*)\p{P} hour=.(.*). minute=.(.*). month=.(.*). second=.(.*). year=.(.*)..*", RegexOptions.IgnoreCase)

En tout cas merci pour l'aide.