Soutenez-nous
Publicité
+ Répondre à la discussion
Affichage des résultats 1 à 6 sur 6
  1. #1
    Membre régulier
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    281
    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 : 281
    Points : 84
    Points
    84

    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
    Futur Membre du Club
    Inscrit en
    octobre 2007
    Messages
    20
    Détails du profil
    Informations forums :
    Inscription : octobre 2007
    Messages : 20
    Points : 18
    Points
    18

    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 Francis MILLET
    Inscrit en
    décembre 2004
    Messages
    3 420
    Détails du profil
    Informations personnelles :
    Nom : Homme Francis MILLET
    Âge : 58
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 3 420
    Points : 5 679
    Points
    5 679

    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 régulier
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    281
    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 : 281
    Points : 84
    Points
    84

    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
    761
    Détails du profil
    Informations forums :
    Inscription : juin 2006
    Messages : 761
    Points : 1 112
    Points
    1 112

    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 régulier
    Homme Profil pro
    Ingénieur systèmes et réseaux
    Inscrit en
    juillet 2012
    Messages
    281
    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 : 281
    Points : 84
    Points
    84

    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
  •