Dim i As Integer 'Declaration variable de travail TextBox2.Text = String.Empty ' La le textbox initialise sans caractere. For i = 0 To TextBox1.Text.Length - 1 Step 5 ' Calcul le nombre de groupe de 5 caractere Dim p As String = TextBox1.Text.Substring(i, 5) ' Extraction du bloc de 5 caracteres TextBox2.Text &= Dico(p) 'Ajoute dans textbox2 la conversion du bloc de 5 via le Dico Next i
Dim Dico As New Dictionary(Of String, Integer)
je voudrais decouper cette chaine tous les 5 charactères
dim taChaine as string = "????" dim nb as double = (len(taChaine) / 5) + 1 nb = int(nb) dim t(nb) as string dim i as integer dim j as integer = 1 for i = 1 to len(taChaine) step 5 t(j) = mid(taChaine, i, 5) j = j + 1 next i
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questiondim taChaine as string = "????" ' variable qui reçoit ta chaîne de caractères, égalité à remplacer par la source qui constitue ta chaîne dim nb as double = (len(taChaine) / 5) + 1 ' compte combien de fois y a 5 espaces (+ 1 pour les morceaux éventuels) nb = int(nb) ' nombre d'éléments entiers dim t(nb) as string ' déclaration de la variable tableau indexée (nb) par le nombre d'éléments dim i as integer ' variable de travail dim j as integer = 1 ' idem for i = 1 to len(taChaine) step 5 ' avec ka variable i va de 1 à la longueur de ta chaîne contebue dans ka variable taChaine en avançant de 5 en 5 jusqu'à la fin. t(j) = mid(taChaine, i, 5) ' la variable tablkeau t indexée par j récupère grâce à la fonction MID une partie de ta variable taChaine à la position i en porenant 5 caractères. j = j + 1 ' fait avancer de un l'indice de ta variable tableau pour passer au suivant next i ' fin de la boucle i
Dim Dico As New Dictionary(Of Integer, String) Dico.Add("00001", 0) Dico.Add("00011", 1) Dico.Add("00111", 2) Dico.Add("01111", 3) Dico.Add("11111", 4) Dico.Add("11110", 5) Dico.Add("11100", 6) Dico.Add("11000", 7) Dico.Add("10000", 8) Dico.Add("00000", 9) Dim binaire As String binaire = TextBox1.Text Dim taChaine As String = binaire ' variable qui reçoit ta chaîne de caractères Dim nb As Double = (Len(taChaine) / 5) + 1 ' compte combien de fois y a 5 espaces (+ 1 pour les morceaux éventuels) nb = Int(nb) ' nombre d'éléments entiers Dim t(nb) As String ' déclaration de la variable tableau indexée (nb) par le nombre d'éléments Dim i As Integer ' variable de travail Dim j As Integer = 1 ' idem For i = 1 To Len(taChaine) Step 5 ' avec la variable i va de 1 à la longueur de ta chaîne contebue dans la variable taChaine en avançant de 5 en 5 jusqu'à la fin. t(j) = Mid(taChaine, i, 5) ' la variable tableau t indexée par j récupère grâce à la fonction MID une partie de ta variable taChaine à la position i en porenant 5 caractères. j = j + 1 ' fait avancer de un l'indice de ta variable tableau pour passer au suivant Next i ' fin de la boucle i TextBox2.Text = Dico(binaire) ' Alors j avais mis sa mais sa fonctionne seulement avec un groupe de 5 caractere
Dim binaire As String
binaire = TextBox1.Text
Dim taChaine As String = binaire ' variable qui reçoit ta chaîne de caractères
Dim nb As Double = (Len(taChaine) / 5) + 1 ' compte combien de fois y a 5 espaces (+ 1 pour les morceaux éventuels)
nb = Int(nb) ' nombre d'éléments entiers
Dim t(nb) As String ' déclaration de la variable tableau indexée (nb) par le nombre d'éléments
Dim i As Integer ' variable de travail
Dim j As Integer = 1 ' idem
For i = 1 To Len(taChaine) Step 5 ' avec la variable i va de 1 à la longueur de ta chaîne contebue dans la variable taChaine en avançant de 5 en 5 jusqu'à la fin.
t(j) = Mid(taChaine, i, 5) ' la variable tableau t indexée par j récupère grâce à la fonction MID une partie de ta variable taChaine à la position i en porenant 5 caractères.
j = j + 1 ' fait avancer de un l'indice de ta variable tableau pour passer au suivant
Next i ' fin de la boucle i
TextBox2.Text = Dico(binaire) ' Alors j avais mis sa mais sa fonctionne seulement avec un groupe de 5 caractere
Dim i As Integer textbox2.text = "" For i = 1 To Len(TextBox1.Text) Step 5 TextBox2.Text = TextBox2.Text & Mid(TextBox1.Text, i, 5) & vbCrLf Next i
Dim i As Integer TextBox2.Text = "" For i = 1 To Len(TextBox1.Text) Step 5 TextBox2.Text = Dico(TextBox2.Text & Mid(TextBox1.Text, i, 5) & vbCrLf) Next i
Dim i As Integer 'Declaration variable de travail TextBox2.Text = "" ' La le textbox initialise sans caractere. Je comprend pas celui ci pourquoi il se trouve la For i = 1 To Len(TextBox1.Text) Step 5 ' Calcul le nombre de groupe de 5 caractere TextBox2.Text = TextBox2.Text & Mid(TextBox1.Text, i, 5) & vbCrLf 'Affiche textbox2 + retourne i par bloc de 5 Next i
Dim Dico As New Dictionary(Of Integer, String) Dico.Add("00001", 0) Dico.Add("00011", 1) Dico.Add("00111", 2) Dico.Add("01111", 3) Dico.Add("11111", 4) Dico.Add("11110", 5) Dico.Add("11100", 6) Dico.Add("11000", 7) Dico.Add("10000", 8) Dico.Add("00000", 9)