Recup chaine de texte aléatoire dans fichier TXT

[Creepy]

Bonjour à tous,

Je vais essayer d'être precis :

1 - Je lis une à une toutes mes lignes dans un fichier texte

2 - je recherche dans chaque ligne si j'ai le texte <LANGID>0</LANGID> avec la fonction LIKE parce que entre les deux LANGID je peux avoir 0, 1033 ou 1036.
donc ma commande est comme ca :

If InfosLigne Like '<LANGID>*</LANGID>' Then

Le hic c'est que like renvoie true s'il trouve la chaine et false s'il ne la trouve pas.

Mais j'aurais besoin de la chaine exacte pour faire une fonction 'replace'

Ma question est comment obtenir rapidement dans une variable ma chaine exacte de caractère à savoir : '<LANGID>0</LANGID>, '<LANGID>1033</LANGID> ou '<LANGID>1036</LANGID>

Bien sur je peux jouer avec les instr, instrev mais ca va être laborieux !!

Merci d'avance

Creepy

 

[sousou]

Bonjour creepy

Et pourquoi pas instr ?
Cette solution détaillée ne me parait pas très lourde, aà moins que j'ai négligé quelque chose!

Sub deb()
maphrase = ActiveCell
vdeb = '<LANGID>'
vfin = '</LANGID>'
lvfin = Len(vfin)
d = InStr(1, maphrase, vdeb)
f = InStr(1, maphrase, vfin)
mavariable = Mid(maphrase, d, f + lvfin)
MsgBox mavariable
End Sub