cs_fauve
Messages postés661Date d'inscriptionvendredi 2 décembre 2005StatutMembreDernière intervention23 mars 20118 24 févr. 2007 à 15:27
Salut,
Essaye ca pour voir :
Dim n1 As Integer
Dim n2 As Integer
Dim machaine As String
n1 = Instr(1, sBuffer, "@")
n2 = Instr(1, sBuffer, ">")
machaine = Mid(sBuffer, n1+1, n1 - n2)
' Mid(variable de type string, début, nombre de caractères retournés)
' Exemple :
' sBuffer = "xxxx@xxxxx>xxx"
' n1 = 5 n2 = 11
' Il faut prendre les caractères entre @ et > : donc du 6° caractère jusqu'au caractère avant le > ( début = n1 + 1 )
' Ici, on peut voir qu'il y a 5 caractères dans sBuffer entre @ et >
' donc le nombre de caractères retournés doit être ' n1 - n2 - 1 ' c'est à dire 11 - 5 - 1 = 6 - 1 = 5