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)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=18&topic_id=5355&post_id=22115