couper une chaine de caractere tous les 8 caracteres

Question

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 :)

Whismeril · Answer

Message déplacé dans la catégorie VB.Net. Merci d'y faire attention la prochaine fois.

Whismeril · Answer

Bonjour avec la méthode Insert:
Dim resultat = "1234567890".Insert(8, " ")

cs_Le Pivert · Answer

Bonjour,

Voir ceci:

 http://www.commentcamarche.net/forum/affich-30620530-decouper-une-chaine-de-caractere-tous-les-8-caracteres#p30624127

Whismeril · Answer

On peut le faire aussi avec une Regex

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

cs_Le Pivert · Answer

Bonjour Whismeril,

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

 TextBox1.AppendText(morceauxDe8(i) & " ")

Qu'en pense-tu?

cs_Le Pivert · Answer

Ce que j'entend par là:

   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

retourne:

Laphrase&quejaime&raisdéco&uperenpa&rtiede8c&aractère&s

Voilà ce que j'ai!
C'est pour cela que j'en conclu que l'espace n'est pas reconnu

Couper une chaine de caractere tous les 8 caracteres

6 réponses

Votre réponse

Discussions similaires