Discussion :

[snorky94]

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.

[Zelnist]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ProgElecT]

Salut

Pas vraiment sûr d'avoir compris, mais ce code te permettra peut être d'avancer

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[snorky94]

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.

[Aniki]

Salut

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[snorky94]

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