1. Accueil
  2. Forum Codes-Sources
  3. Visual Basic
  4. VBA Office (Excel, Word ...)
Sujet Précédent Sujet Suivant

Délimiteur [Résolu]

Signaler
-
Messages postés
16043
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 juin 2021
 -
Bonjour,

J'ai un fichier avec plusieurs lignes sur lesquelles je souhaite faire des sous-chaines avec les délimiteurs "espace" et "=".
J'ai essayée avec la fonction "Split" qui marche bien avec un seul délimiteur, mais comment faire pour en ajouter un second ?
Merci de votre aide.
Cdlt.

6 réponses

Réponse 1 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Bonjour,
En développement sous quoi ? (tu es ici dans le forum GENERAL Visual Basikc et non dans un de ses sous-forums).
Et dans la foulée : comment est construite la chaîne à traiter ?
Donne un exemple (de la chaîne et du résultat souhaité).

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Réponse 2 / 6

Je suis sous Excel, j'ai des lignes de ce type dans des fichiers txt à traiter: 

2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms


Je souhaite délimiter cette ligne par "espace" + "=".

Afin de récupérer seulement l'heure, la valeur du tps et "jitter": 
10:00:00.000      78.9     0.00
Réponse 3 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237
Discussion déplacée vers le sous-forum VBA.
Prends s'il te plait dorénavant ce soin.
Réponse 4 / 6

Très bien, merci.
Réponse 5 / 6
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
 237 
 toto = "2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms"
titi = Split(toto, " ")
heure = titi(1)
pos = InStr(toto, "=")
reste = Mid(toto, pos + 1)
titi = Split(reste, "=")
mesbytes = Val(titi(0))
montemps = Val(titi(1))
MsgBox heure & " " & mesbytes & " " & montemps


et même ainsi : 
toto = "2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms"
heure = Mid(toto, 11, 13)
titi = Split(toto, "=")
MsgBox Mid(toto, 11, 13) & " " & Val(titi(1)) & " " & Str(Val(titi(2)))


ou encore cela : 
toto = "2015/02/10 10:00:00.000 : Reply[1] from X.X.X.X: bytes=32 time=78.9 ms TTL=126 jitter=0.00 ms"
titi = Split(Replace(toto, " ", "="), "=")
MsgBox titi(1) & " " & Val(titi(7)) & " " & Str(Val(titi(9)))


(entre autres possibilités en nombre infini)

________________________
Nul ne saurait valablement coder ce qu'il ne saurait exposer clairement.
Signaler

Merci pour vos différentes méthodes !
Réponse 6 / 6
Messages postés
32988
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
19 juin 2021
 351
Si la question est résolue..
Merci de ne pas oublier de clôturer le sujet
(en cliquant sur le lien "Marquer comme résolu" qui se trouve sous le titre de la question)

Cordialement,
Jordane
Signaler

Je veux bien, mais quand celui-ci n'apparait pas, c'est assez compliqué...

A part le signaler...
Signaler
Messages postés
16043
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
19 juin 2021
 551 > Kloë
Bonjour, c'est fait.
C'est la problématique de la personne non connectée.
Quand le site n'est pas "sûr" que tu sois l'auteur, il ne mets pas le lien.
Le problème ne se pose pas pour un membre inscrit et connecté.
Répondre Posez votre question