J'aurais voulu savoir (une piste ^^), comment faire pour parcourir toute la ligne et extraire ce que j'ai avant les "=" et extraire ce que j'ai après les "=" jusqu'au ";" .....?? Sachant comme vous pouvez le constater, la longueur de l'item varie ainsi ce qui suit le "="........
Merci d'avance pour l'aide que vous pourrez me donner....
Renfield
Messages postés17287Date d'inscriptionmercredi 2 janvier 2002StatutModérateurDernière intervention27 septembre 202172 28 janv. 2009 à 14:46
Dim xsParts() As String
Dim i as Long
Dim nPos As Long
Dim sBuffer as string
Dim nID as long
Dim nValue as Long
xsParts = Split(sLigne, ";")
For i=0 To Ubound(xsParts)
sBuffer = Trim$(xsParts(i))
nPos = Instr(sBuffer, "=")
If nPos then
nId = Left$(sBuffer, nPos-1)
nValue = Mid$(sBuffer, nPos+1)
...
End If
Next i
lillith212
Messages postés1229Date d'inscriptionvendredi 16 novembre 2007StatutMembreDernière intervention16 juin 2009 28 janv. 2009 à 14:55
re,
Un recordset dynamique permet d'enregistrer les données de manière moi personnellement plus claire qu'un tableau, et plus je n'ai pas à définir sa taille.