[VB6] Découper une chaine sans délimiteur

Version imprimable

13/04/2006, 17h09
dbozec

[VB6] Découper une chaine sans délimiteur

Bonjour à tous,
je voulais savoir s'il était possible de découper une chaine de caractère tous les deux caratères sans insérer de délimiteur comme avec l'instruction Split.
Quelqu'un peut-il m'aider?

Cordialement.
Stalindim.
13/04/2006, 17h16
sozie9372
Pas testé:
Code:

1 2 3 4 5 6 7 Dim str As String Dim b() As Byte str = "Bonjour" b = StrConv(str,vbFromUnicode)
Ca convertit ta chaine en tableau de caractères ANSI :wink:
13/04/2006, 17h40
dbozec

Merci sozie
ce n'est pas exactement ce que je cherche mais si personne n'a mieux je pense que je vais essayer de m'arranger avec ça.

Code:

1
2
3
4
5
6
7
8
function decoup(unechaine as string;pas as integer) as string
dim temp as string
do while len unechaine>pas then
temp=left(unechaine,pas) & " "
unechaine=rigth(unechaine;len(unechaine)-pas)
loop
decoup=temp & une chaine
end function

13/04/2006, 17h58
dbozec

désolé random mais je n'arrive pas à comprendre et encore moins à faire fonctionner ton code.

Et utilise les balises apropriées s'il te plaîs.
13/04/2006, 18h27
random

pardon pour les balises
cette fonction découpe un texte par pas de pas qui est la valeur adressée
13/04/2006, 18h34
dbozec

Bon après avoir corrigé ton code j'arrive presque à avoir ce que je veux puisque lorsque j'entre cette chaine "abcdefghijklmnopqrstuvwxyz" je récupère "wx yz". Par contre j'ai du mal à voir d'où proviens le problème :( , peut-être est-ce du à la fatigue après cette dure journée de cours :lol: .

Code:

1
2
3
4
5
6
7
8
9
 
Function decoup(unechaine As String, pas As Integer) As String
Dim temp As String
Do While Len(unechaine) > pas
temp = temp & Left(unechaine, pas) & " "
unechaine = Right(unechaine, Len(unechaine) - pas)
Loop
decoup = temp & unechaine
End Function

Avec mes excuses.

Sinon, tu peux toujours faire ça en sub ou en fonction avec la chaine en paramètre

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Sub MaChaineEnPetitsBouts()
Dim LesBouts(), MaChaine, i, j
MaChaine = "Ouistiti"
    For i = 1 To Len(MaChaine) Step 2
        j = j + 1
        ReDim Preserve LesBouts(j)
        If Len(MaChaine) > 2 Then
            LesBouts(j) = Mid(MaChaine, 1, 2)
            MaChaine = Right(MaChaine, Len(MaChaine) - 2)
        Else
            LesBouts(j) = MaChaine
        End If
    Next
    'RELECTURE
    For i = 1 To j
       MsgBox LesBouts(i)
    Next
End Sub

A+

13/04/2006, 19h10
dbozec

Merci les gars vos deux solutions sont parfaites.

Un exemple vaut mille mots...

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
Option Explicit
 
' un champ de texte (textbox) nommé txtChaine
' une zone de liste (listebox) nommée lstTab2Car
' deux boutons (Command) nommés cmdConvertir et cmdQuitter
' sur une feuille (Form) nommée comme tu voudras
 
Private Sub cmdConvertir_Click()
    If txtChaine.Text <> "" Then Convertir txtChaine.Text
End Sub
 
Private Sub Convertir(psChaine As String)
    Dim liI As Integer
    liI = 1
    lstTab2Car.Clear
    Do While liI <= Len(psChaine)
        lstTab2Car.AddItem Mid(psChaine, liI, 2)
        liI = liI + 2
    Loop
End Sub
 
Private Sub cmdQuitter_Click()
    End
End Sub

pour le tableau c'est le même principe... Tu définit un tableau dynamique de chaînes de caractères que tu remplis dans la routine Convertir à la place d'un listbox...

13/04/2006, 19h26
ouskel'n'or

Trois solutions pour lui tout seul... :lol: Salut zaza, paraît qu'il fait beau chez toi...

A+