chaine de caractere

Question

bonjour ,
j'ai une chaine de caractere de n element du style "abcde...." et jaimerai separer chaque caractere par un espace pour ensuite affecter une variable a chaque element pour un traitement posterieur.
Je sais qu'il faut utiliser la fonction mid pour extraire les elements le pb est que j'ai un erreur de compilation dans ma boucle qui fait ce la
Si quelqu'un a une proposition a me faire ca seriat sympa.

voici le code:

Sub Traitement(tampon As String)
Dim decod(Len(caractere_a_recevoir)) As String
Dim i As Integer
For i = 0 To (Len(tampon) - 1)
decode(i) = Mid(tampon, i, 1)
Text9.Text = Text9.Text + decode(i) & ""
Next

Renfield · Answer

Mid("abc", 0, 1) plantera...
le premier caractère c'est 1

mid pas efficace ici...
on peut jouer en faisant:

? strconv("bonjour",vbUnicode)
b o n j o u r 

bon, qui sépare, ce ne sont pas de espaces, mais bon...(des \0 )

NHenry · Answer

Bonjour

Et faire ensuite un Replace(...,chr$(0)," ") ?

Sinon pour les espaces : 
Dim lTmp as string
Dim i as long

ltmp=""

For i=1 to len(MaStr)
    ltmp=ltmp & " " & mid$(MaStr,i,1)
Next i

ltmp=trim$(ltmp)

Voila.

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Renfield · Answer

a voir si les espaces se doivent d'être des espaces, ou si l'idée est juste de se reserver un caractère séparateur

jerome57440 · Answer

ca ne resou pa entierement mon probleme j'aimerai que dans la boucle chaque caractere soit affecter a une variable pour un traitement posterieur

Renfield · Answer

NHenry et moi même t'avons indiqué les erreurs présentes dans ton code...

Sub Traitement(tampon As String)
Dim decode() As String 
Dim i As Integer
    Redim decode(Len(caractere_a_recevoir)-1)
    For i = 1 To Len(tampon)
        decode(i-1) = Mid$(tampon, i, 1)
    Next i
    Text9.Text = Text9.Text & Join(decode, " ")
End Sub


après, on ne sais pas ce que tu souhaites faire de ton tableau decode...

jerome57440 · Answer

avec mon tableau decode je doi convertir chaque caractere ascii en hexadecimal
ca marche mais g ke des ?????????? dans ma text box donc le code 3F correspondant

NHenry · Answer

Bonjour

Donc convertir une chaine en suite d'octer vu sous forme Hexa : 

Dim lStr as string
lStr=""
Dim i as long

for i=1 to len(MaStr) 'MaStr étant la chaine source
    lStr=lstr & " " & left$("00" & hex$(asc(mid$(MaStr,i,1))),2)
Next i
lStr=trim$(lStr)

Puis : 
Text9.Text=lStr

Dans Word, j'Excel. (juste pour la citation)
VB (6, .NET1&2), C++, C#.Net1
Mon site

Renfield · Answer

Right$ dans ce cas, NHenry, pour le formatage sur deux caractères.

PCPT · Answer

salut,
un ptit snippet pour la découpe... (sans tableau ou conversion hexa, question pas claire ^^)

http://www.codyx.org/snippet_entrecouper-chaque-caractere-chaine-avec-autre-caractere_560.aspx

++
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

Renfield · Answer

voilà du code qui me plait: on limite les reallocations dues aux concaténations 

sauf si on not bIncludeLast... là, je ferais donc:

Function ExplodeChars(ByRef Expression As String, Optional sChar As String " ", Optional bIncludeLast As Boolean True) As String
Dim i As Integer
Dim j As Integer
    If Len(Expression) Then
        If LenB(sChar) = 2 Then
            If bIncludeLast Then
                ExplodeChars = String(LenB(Expression), sChar)
            Else
                ExplodeChars = String(LenB(Expression) - 1, sChar)
            End If
            
            j = 1
            For i = 1 To Len(Expression)
                Mid$(ExplodeChars, j, 1) = Mid$(Expression, i, 1)
                j = j + 2
            Next i
        End If
    End If
End Function

PCPT · Answer

pas bête, mieux ;)

Chaine de caractere

11 réponses

Votre réponse

Discussions similaires