Mid$ et Instr

Version imprimable

04/02/2020, 17h41
Mat03

Mid$ et Instr
Bonjour à tous,

J'ai actuellement un fichier avec un certains nombres de ligne à traiter. Je dois récupérer une information dans ces lignes et les mettre sur une feuille de mon tableur Excel. J'utilise le VBA pour extraire ces informations vu qu'ils proviennent de fichiers plats. Enfin bref, voici une ligne type :

00:00:00,000 INFO [xxxx] (xxxxx-xxxxx-xxxx-000) [2020-01-01 00:00:00,000] [http-/0.0.0.0:0000-00] [INFO ] xxxxxxxxxxxx: xxxx-000000: xxxxxxxxxx.

Mon objectif est de récupérer le code "http". J'utilise donc ce bout de code VBA pour choper le dit code http
Code:

1 2 3 debut_http = InStr(ContenuLigne(i), "http-") fin_http = InStr(ContenuLigne(i), "] ") HTTP = Mid$(ContenuLigne(i), debut_http, fin_http - debut_http - 1)
Or, cela ne fonctionne pas puisque debut_http prend la valeur 94 (94eme caractère de ma ligne) et fin_http prend la valeur 27 (puisque le premier crochet fermant est le 27eme caractère de ma ligne).
Je ne peux pas prendre une autre information que ce crochet fermant pour avoir mon HTTP puisque ce qui suit le HTTP change selon mes fichiers (pas possibilité de prendre "[INFO ]" par exemple.
Est-il possible de sélectionner le premier "]" APRÈS "http-" ?

Merci beaucoup, je sèche sur ce petit problème.

Bonjour,
Tu peux indiquer à la fonction Instr à partir de quel caractère il doit commencer la recherche

Exemple
Code:

1 2 3 4 5 6 7 8 Sub t() Const txt = "00:00:00,000 INFO [xxxx] (xxxxx-xxxxx-xxxx-000) [2020-01-01 00:00:00,000] [http-/0.0.0.0:0000-00] [INFO ] xxxxxxxxxxxx: xxxx-000000: xxxxxxxxxx" Dim PosStart As Integer Dim PosEnd As Integer PosStart = InStr(txt, "http") PosEnd = InStr(PosStart, txt, "]") MsgBox Mid(txt, PosStart, PosEnd - PosStart) End Sub
Extrait de l'aide en ligne

Syntaxe
InStr([start, ]string1, string2[, compare])
La syntaxe de la fonction InStr comprend les arguments suivants :

start Facultatif. Expression numérique qui définit la position de départ de chaque recherche. Si cet argument est omis, la recherche commence au premier caractère. Si l'argument start contient une valeur de type Null, une erreur se produit. L'argument start est obligatoire si l'argument compare est indiqué.
string1 Expression de chaîne dans laquelle la recherche est effectuée.
string2 Expression de chaîne recherchée.
compare Facultatif. Indique le type de comparaison de chaînes. Si l'argument compare est de type Null, une erreur se produit. Si l'argument compare est omis, la valeur de l'instruction Option Compare détermine le type de comparaison. Indiquez un LCID (LocaleID) correct pour respecter les règles locales spécifiques à la comparaison.

04/02/2020, 17h57
Mat03

Merci beaucoup, je connaissais pas cette petite astuce !

Bonjour Mat, Bonjour au Forum,

Hé, salut Philippe,

Une autre méthode

Code:

1
2
3
4
5
6
7
8
Sub t2()
  Const txt As String = "00:00:00,000 INFO [xxxx] (xxxxx-xxxxx-xxxx-000) [2020-01-01 00:00:00,000] [http-/0.0.0.0:0000-00] [INFO ] xxxxxxxxxxxx: xxxx-000000: xxxxxxxxxx"
  Dim s1 As Variant
  Dim s2 As Variant
  s1 = Split(txt, "http")
  s2 = Split(s1(1), "]")
  Debug.Print "http" & s2(0)
End Sub

Dans mes applicatifs, je crée une fonction avec les 2 séparateurs comme paramètres.