Extraire variable d'un fichier texte

[hankyn]

Bonjour le forum,

j ai un fichier texte avec des infos du type
joueur 1: Toto
joueur 2: Georges
joueur 3: etc...

je voudrais, en reconnaissant le mot "joueur" attribuer le numero 1 au joueur Toto.
donc avoir une variable joueur.
J1 (joueur 1) = Toto

j essaye avec la fonction Mid mais je n arrive à rien !!
merci de votre aide

 

[phlaurent55]

Re : Extraire variable d'un fichier texte

Bonjour hankyn,

si tu pouvais joindre ton fichier, il nous serait plus facile pour comprendre ta question

à+
Philippe

 

[hankyn]

Re : Extraire variable d'un fichier texte

Voilà un exemple, j espere que ca vous causera un peu plus

 

[Hippolite]

Re : Extraire variable d'un fichier texte

Bonjour,

Pour des nombres à un seul chiffre :
Mid("joueur 1 : Toto", 8, 1) extrait "1"
Mid("joueur 1 : Toto", 11) extrait "Toto"

Pour des nombres à plusieurs chiffres :
Il faut rechercher la position de ":" InStr(("joueur 12: Julia75",":")
Mid("joueur 12 : Julia75", 8, InStr(("joueur 12: Julia75",":",) - 2) extrait "12"
Mid("joueur 12 : Julia75", InStr(("joueur 12: Julia75",":") + 2) extrait "Julia75"

A+

 

[FromOuterSpace]

Re : Extraire variable d'un fichier texte

Bonsoir à tous

Ici en transit
Une autre façon avec Split (test ok sur le fichier exemple.xls du message de 18h10)

Sub c()
Dim i As Byte
For i = 2 To 6
Cells(i, 2) = Split(Split(Cells(i, 1), ":")(0))(1) * 1
Next i
End Sub

A+ avec mon pseudo habituel

JM