+ Répondre à la discussion
Affichage des résultats 1 à 6 sur 6
  1. #1
    Membre habitué
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    284
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 284
    Points : 101
    Points
    101

    Par défaut Couper chaine au bout de 4 tabulations

    Bonjour,

    Je m'explique, j'ai remplacé les espaces par des tabulation, ce qui me donne :

    10.127.0.0 255.255.255.0 Disabled SECOURS Vlan PARIS 3EME GAUCHE
    10.128.0.0 255.255.255.0 Active PROD Vlan MARSEILLE 5EME GAUCHE
    Je voudrais récupérer mon champs commentaire en entier :

    ex :
    Vlan PARIS 3EME GAUCHE
    Vlan MARSEILLE 5EME GAUCHE
    qui se trouve au bout de 4 tab.

    Savez vous comment faire pour obtenir :

    10.128.0.0 255.255.255.0 Active PROD Vlan_MARSEILLE_5EME_GAUCHE
    Sachant que mon champs commenatire a une longeur variable ...

    Il faut un split deja mais apres je ne vois pas, merci.

  2. #2
    Membre à l'essai
    Inscrit en
    octobre 2007
    Messages
    20
    Détails du profil
    Informations forums :
    Inscription : octobre 2007
    Messages : 20
    Points : 20
    Points
    20

    Par défaut

    Bonjour,


    Je vous invite à regarder la FAQ, il y a des exemples sur les manipulations de chaines.

    Voici un début de code composé rapidement, mais le résultat doit sensiblement correspondre à la demande formulée :

    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    Dim Chaine, chaineArray, partieUnATrois, partieQuatre, chaineFinale
     
    chaine = "10.128.0.0 255.255.255.0 Active PROD Vlan MARSEILLE 5EME GAUCHE "
     
    chaineArray = split(chaine, " ")
     
    partieUnATrois = chaineArray(0) & " " & " " & chaineArray(1) & " " & chaineArray(2)
    partieQuatre = Mid(chaine, len(partieUnATrois), len(chaine) - len(partieUnATrois))
     
    chaineFinale = replace(partieUnATrois, " ", vbTab) & vbTab & partieQuatre
     
    msgbox chaineFinale

    Il faudrait également intégrer une petite gestion des erreurs, au cas où...

    Bonne lecture et bon développement,

    Zel.

  3. #3
    Rédacteur/Modérateur
    Avatar de ProgElecT
    Homme Profil pro
    Inscrit en
    décembre 2004
    Messages
    3 521
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 58
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 521
    Points : 6 449
    Points
    6 449

    Par défaut

    Salut

    Pas vraiment sûr d'avoir compris, mais ce code te permettra peut être d'avancer
    Code :
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    11
    12
    13
    14
    15
    Dim LaPhrase, Commentaire, LeReste, Resultat, T, Pos
    LaPhrase = "un" & vbTab & "essais" & vbTab & "pour" & vbTab & "voire" & vbTab & "la" & vbTab & "façon" & vbTab & "de" & vbTab & "faire"
    Pos = 1
    For T = 1 To 4
        Pos = InStr(Pos + 1, LaPhrase, vbTab, vbTextCompare)
    Next
     
    LeReste = Left(LaPhrase, Pos)
    LeReste = Replace(LeReste, vbTab, " ")
    Commentaire = Right(LaPhrase, Len(LaPhrase) - Pos)
    Commentaire = Replace(Commentaire, vbTab, "_")
     
    Resultat = LeReste & Commentaire
     
    MsgBox LaPhrase & vbNewLine & vbNewLine & "Resultat:" & vbNewLine & Resultat

  4. #4
    Membre habitué
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    284
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 284
    Points : 101
    Points
    101

    Par défaut

    Parfait, merci à vous.

    Je suis parti sur la deuxième solution, meme si les 2 font le travail parfaitement

    Pos = 1
    For T = 1 To 4
    Pos = InStr(Pos + 1, LaPhrase, vbTab, vbTextCompare)
    Next
    Pos = 1


    Dernière question simple :

    Entre 2 colonnes je vais avoir des tabulations mais qui ne sont jamais le meme nombre.

    Par exemple je vais avoir :

    Colonne1 vbtab vbtab vbtab vbtab vbtab colonne2
    Colonne1 vbtab colonne2
    Colonne1 vbtab vbtab colonne2
    Colonne1 vbtab vbtab vbtab colonne2
    Colonne1 vbtab vbtab vbtab vbtab colonne2

    Comment faire pour supprimer toutes les tabulation et n'en garder qu'une ??

    Si je fais un Replace(result, vbtab, "-")

    ca m'affiche :

    Colonne1 - - - - - colonne2
    Colonne1 - colonne2
    Colonne1 - - colonne2
    Colonne1 - - - colonne2
    Colonne1 - - - - colonne2

    Merci encore et apres je ferme le sujet.

  5. #5
    Membre Expert
    Inscrit en
    juin 2006
    Messages
    788
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 788
    Points : 1 276
    Points
    1 276

    Par défaut

    Salut
    Code :
    1
    2
    3
    4
    5
    6
     
    Dim colonne
     
    Do While (Instr(1, colonne, vbTab & vbTab) > 0)
        colonne = Replace(colonne, vbTab, vbTab & vbTab, 1)
    Wend
    Ca devrait le faire si je ne dis pas de bêtises.

  6. #6
    Membre habitué
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    284
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Ingénieur systèmes et réseaux
    Secteur : Finance

    Informations forums :
    Inscription : juillet 2012
    Messages : 284
    Points : 101
    Points
    101

    Par défaut

    merci pour vos réponse, j'ouvre un autre sujet pour la deuxième question.

+ Répondre à la discussion
Cette discussion est résolue.

Liens sociaux

Règles de messages

  • Vous ne pouvez pas créer de nouvelles discussions
  • Vous ne pouvez pas envoyer des réponses
  • Vous ne pouvez pas envoyer des pièces jointes
  • Vous ne pouvez pas modifier vos messages
  •