Couper chaine au bout de 4 tabulations

Version imprimable

22/11/2012, 12h42
snorky94

Couper chaine au bout de 4 tabulations

Bonjour,

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

Citation:

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 :

Citation:

Vlan PARIS 3EME GAUCHE
Vlan MARSEILLE 5EME GAUCHE

qui se trouve au bout de 4 tab.

Savez vous comment faire pour obtenir :

Citation:

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.

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.

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

22/11/2012, 15h06
snorky94

Parfait, merci à vous.

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

Citation:

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 :

Citation:

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 :

Citation:

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

Merci encore et apres je ferme le sujet.

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.

22/11/2012, 16h58
snorky94

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