Jos,
Maybe something like this
LPARAMETERS tcHTMLFileName
lcHTML = FILETOSTR(tcHTMLFileName)
DO WHILE AT('<img', lcHTML) # 0
lcHTML = STRTRAN(lcHTML, STREXTRACT(lcHTML, '<img', '>', 1, 1 + 4), '')
ENDDO
Completely untested and written "in-situ" so the parameters order might not even be right
"The five senses obstruct or deform the apprehension of reality."
Jorge L. Borges?
"Premature optimization is the root of all evil in programming."
Donald Knuth, repeating C. A. R. Hoare
"To die for a religion is easier than to live it absolutely"
Jorge L. Borges