sURL est une chaîne
sTitre est une chaîne
nPos1, nPos2 sont des entiers
sContenu est une chaîne

sURL= "http://www.boursorama.com/opcvm/opcvm.phtml?code="+sai_code
HTTPRequête(sURL)
sContenu = HTTPDonneRésultat(HTTPRésultat)

nPos1 = Position(sContenu,"<title",1,SansCasse)
nPos1 = Position(sContenu,">",nPos1,SansCasse)
nPos2 = Position(sContenu,"</title>",1,SansCasse)

sTitre = sContenu[[nPos1+1 A nPos2-1]]
Info(sTitre)