Forum |  HardWare.fr | News | Articles | PC | Prix | S'identifier | S'inscrire | Aide | Shop Recherche
1681 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA Access] parcourir chaine de caractères[RESOLUS]

 



 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA Access] parcourir chaine de caractères[RESOLUS]

n°2047002
alexbigfou​g
Posté le 06-01-2011 à 18:09:57  profilanswer
 

Bonsoir tous le monde!
 
J'ai un petit soucis, et j'espère que vous allez pouvoir m'aider.
 
Je reçois une chaine de caractère que je stocke dans une variable;
 
(ex : chaine = "F; 0000012; 15654b; 154; 469874;01; 458;;   ;1546;;" )
 
J'aimerais donc parcourir la chaine en récupérant les caractères pour les stocker dans d'autres variables;
 
(ex : variable1 = "F"
       variable2 = "00000012"
       variable3 = "15654b"
       .... et ainsi de suite)
 
Alors avez-vous une idée, de la manière dont je pourrai procéder?
 
Je vous remercis d'avance de votre aide ^^


Message édité par alexbigfoug le 10-01-2011 à 17:37:23
mood
Publicité
Posté le 06-01-2011 à 18:09:57  profilanswer
 

n°2047004
kiki29
Posté le 06-01-2011 à 18:28:28  profilanswer
 

Salut,voir l'aide en ligne sur Split
Par exemple en adaptant


Option Explicit
 
Sub Tst()
Dim Chaine As String, Ar() As String, i As Long
    Chaine = "F; 0000012; 15654b; 154; 469874;01; 458;;   ;1546;;"
     
    Ar = Split(Chaine, ";" )
    For i = LBound(Ar) To UBound(Ar)
        Debug.Print Ar(i)
    Next i
End Sub


Message édité par kiki29 le 06-01-2011 à 18:35:58
n°2047008
alexbigfou​g
Posté le 06-01-2011 à 18:43:43  profilanswer
 

heu Split!! Qu'est ce que c'est ??? D'ou il vient ??? On peut le nourrir ??? Il cri si on lui lèche les cou... ^^
 
Non sérieux je ne connais pas... Sorry !!!
 
Une petite précision, je travail sur access 2000 ... Ouai, 11ans...

n°2047011
kiki29
Posté le 06-01-2011 à 19:24:31  profilanswer
 

Re,normalement Split est dispo depuis les versions 2000 et devrait apparaitre dans l'aide en ligne VBA
Sinon il faut passer par qqch comme ceci pour les versions antéreieures


 
Sub Tst()
Dim Chaine As String, Ar() As String, i As Long
    Chaine = "F; 0000012; 15654b; 154; 469874;01; 458;;   ;1546;;"
 
    Split97 Ar(), Chaine, ";"
    For i = LBound(Ar) To UBound(Ar)
        Debug.Print Ar(i)
    Next i
End Sub
 
Private Function Split97(ByRef Ar() As String, ByVal s As String, ByVal sSep As String)
Dim Pos As Long
Dim i As Long, j As Long
    i = 1: j = 0
    Do While i <= Len(s)
        If Mid$(s, i, 1) = sSep Then
            ReDim Preserve Ar(j)
            Pos = InStr(s, sSep)
            Ar(j) = Left$(s, Pos - 1)
            s = Right$(s, Len(s) - Pos)
            j = j + 1: i = 0
        End If
        i = i + 1
    Loop
    ReDim Preserve Ar(j)
    Ar(j) = s
End Function


Message édité par kiki29 le 06-01-2011 à 20:26:55
n°2047084
alexbigfou​g
Posté le 07-01-2011 à 09:52:23  profilanswer
 

C'est parfait la fonction split fonctionne correctement sous access 2000
 
Voilà ce que cela donne
 
 Dim chaine As String
    Dim tableau_chaine() As String
    Dim champ1 As String
    Dim champ2 As String
    Dim champ3 As String
    Dim champ4 As String
     
     
    chaine = "F; 0000012; 15654b; 154; 469874;01; 458;;   ;1546;;"  
    tableau_chaine = Split(chaine, ";" )
     
    champ1= tableau_chaine(0)
    champ2 = tableau_chaine(1)
    champ3 = tableau_chaine(2)
    champ4 = tableau_chaine(3)
 
Merci de ton aide kiki29 !!!!


Message édité par alexbigfoug le 07-01-2011 à 09:58:44

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA Access] parcourir chaine de caractères[RESOLUS]

 

Sujets relatifs
Parcourir fichiers répertoire + modif en batchDeconcatener SQL sous ACCESS
Req sur 3 fichiers Excel - Comment s'utilise RechercheV en VBA svp ?Supprimer des mots dans une chaine de mots clés
Access Violation en écritureConvertir un tableau en liste de données VBA sous Excel
Macro VBA Excel SharePoint[Access] Accéder aux champs d'un enregistrement en mode macro
Renvoi du numéro de ligne d'une cellule en VBA[Mysql/phpmyadmin] Extraction csv et les caractères spéciaux.
Plus de sujets relatifs à : [VBA Access] parcourir chaine de caractères[RESOLUS]


Copyright © 1997-2018 Hardware.fr SARL (Signaler un contenu illicite) / Groupe LDLC / Shop HFR