Délimiteur [Résolu]

Signaler
-
Messages postés
15399
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 janvier 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

Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
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.
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
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
Discussion déplacée vers le sous-forum VBA.
Prends s'il te plait dorénavant ce soin.
Très bien, merci.
Messages postés
18038
Date d'inscription
lundi 7 décembre 2009
Statut
Modérateur
Dernière intervention
11 avril 2018
232
 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.
Merci pour vos différentes méthodes !
Messages postés
31083
Date d'inscription
mercredi 22 octobre 2003
Statut
Modérateur
Dernière intervention
18 janvier 2021
342
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
Je veux bien, mais quand celui-ci n'apparait pas, c'est assez compliqué...

A part le signaler...
Messages postés
15399
Date d'inscription
mardi 11 mars 2003
Statut
Contributeur
Dernière intervention
17 janvier 2021
501 > 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é.