Dim resultat = "1234567890".Insert(8, " ")
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() & " ")
Dim morceauxDe8() As String = resultat.Split({" "c}) 'retourne un tableau contenant les morceaux précedement séparés par un espace
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionDim 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
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
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