À mettre dans un module :
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26
| public function TrouverDonnees(prmDonnees as string, prmTexte as string) as string
dim result as string
dim debutDonnees as long
dim c as string
debutDonnees=instr(prmTexte, prmDonnees)
if debutDonnees<>0 then
debutDonnees=debutDonnees+len(prmDonnees) :'Saute l'identifiant de données
debutDonnees=debutDonnees+1:'Saute l'espace après l'identifiant de données
dim i as long:for i=debutDonnees to len(prmTexte)
c=mid(prmTexte,i,1):'Récupère un caractère
if c=vbLf or c=vbCr then
'Saut de ligne ou Retour à la ligne détermine la fin des données
exit for
else
result=result & c:'Ajoute le caractère lu au résultat
end if
next i
end if
TrouverDonnees=result
end function |
Après il te suffit dans une requête MAJ de faire
TrouverDonnees("TITRE";[NomTonChampMemo])
et
TrouverDonnees("AUTEUR";[NomTonChampMemo])
pour récupérer l'info.
Note : Code non testé.
Partager