Bonjour,
je suis debutant sur vb.net ,j aimerai que vous m'aideriai car j'aimerai pouvoir coupé un chaine de caractere tous les 8 caractères en les separant d'un espace. est ce possible?
merci d'avance pour votre aide :)
Imports System.Text.RegularExpressions
....
'déclare une regex avec 8 caractères indiférents comme patern
Dim maRegex As New Regex(".{8}")
'dans la chaine d'entrée, la fonction va remplacer chaque partie qui correspond au partern par le résultat de la fonction délégué return le texte qui correspond au patern auquel est ajouté un espace
Dim resultat As String = maRegex.Replace("un_essai_de_texte_ou_inserer_un_espace_tous_les_8_caractères", Function(correpondanceAuPatern As Match) correpondanceAuPatern.ToString() & " ")
résultat est égal à "un_essai _de_text e_ou_ins erer_un_ espace_t ous_les_ 8_caract ères".
et pour le sujet montré par Le Pivert, il suffit de faire un split:
Dim morceauxDe8() As String = resultat.Split({" "c}) 'retourne un tableau contenant les morceaux précedement séparés par un espace
J'ai essayé ton code, l'espace n'est pas reconnu, par contre ":" est reconnu! J'ai donc contourné le problème comme ceci:
Dim maRegex As New Regex(".{8}") 'dans la chaine d'entrée, la fonction va remplacer chaque partie qui correspond au partern par le résultat de la fonction délégué return le texte qui correspond au patern auquel est ajouté un espace Dim resultat As String = maRegex.Replace("Laphrasequejaimeraisdécouperenpartiede8caractères", Function(correpondanceAuPatern As Match) correpondanceAuPatern.ToString() & " ") Dim morceauxDe8() As String = resultat.Split({" "c}) 'retourne tableau contenant les morceaux précedement séparés par un espace For i = 0 To morceauxDe8.Count - 1 TextBox1.AppendText(morceauxDe8(i) & " ") Next i
Bonjour, qu'entends par espace non reconnu, j'ai VB express 2010 et le code tel que je l'ai présenté fonctionne (s'il y a déjà des espaces dans le string d'origine ça va cafouiller au nivaux du salit, mais il suffit alors de choisir une séquence improbable comme séparateur =*$!%£ par exemple).
Et dans le code que tu montres, tu n'utilises pas le ":"
Dim maRegex As New Regex(".{8}")
'dans la chaine d'entrée, la fonction va remplacer chaque partie qui correspond au partern par le résultat de la fonction délégué return le texte qui correspond au patern auquel est ajouté un espace
Dim resultat As String = maRegex.Replace("Laphrasequejaimeraisdécouperenpartiede8caractères", Function(correpondanceAuPatern As Match) correpondanceAuPatern.ToString() & " ")
Dim morceauxDe8() As String = resultat.Split({" "c}) 'retourne tableau contenant les morceaux précedement séparés par un espace
For i = 0 To morceauxDe8.Count - 1
TextBox1.AppendText(morceauxDe8(i))
Next i
retourne:
Laphrasequejaimeraisdécouperenpartiede8caractères
Par contre ce code:
Dim maRegex As New Regex(".{8}")
'dans la chaine d'entrée, la fonction va remplacer chaque partie qui correspond au partern par le résultat de la fonction délégué return le texte qui correspond au patern auquel est ajouté un espace
Dim resultat As String = maRegex.Replace("Laphrasequejaimeraisdécouperenpartiede8caractères", Function(correpondanceAuPatern As Match) correpondanceAuPatern.ToString() & "&")
Dim morceauxDe8() As String = resultat.Split({" "c}) 'retourne tableau contenant les morceaux précedement séparés par un espace
For i = 0 To morceauxDe8.Count - 1
TextBox1.AppendText(morceauxDe8(i))
Next i
