Re: [prog] url et acents

[laurux]

Le Sat, 26 Mar 2005 08:29:33 +0100, Troumad a voulu dire :

> Troumad a �crit :
> 
> > Ou, mais �a marche avec
> > objlancer.execute("http://www.sdv.fr/cgi/orthonet/orthonet?mot=al
> > phab%E9tiser", "", "")
> > mais pas avec
> > objlancer.execute("http://www.sdv.fr/cgi/orthonet/orthonet?mot=al
> > phab�tiser", "", "")
> >
> > Donc, ce serait � moi de faire la transformation dans ma macro...
> 
> Un autre exemple avec �couter qui donne une autre r�ponse :
> http://www.sdv.fr/cgi/orthonet/orthonet?mot=%C3%A9couter
> Ceci tombe sur des mots en "cou"...
> 
> nb : est-ce que quelqu'un peu tester avec autre chose que firefox
> sous linux ?
> 
> C'est le bouton [Orthonet] de ma feuille 
> http://troumad.free.fr/Linux/verbes.sxc qui devrait donner la
> d�finition du verbe congugu�
> 

Essai avec Op�ra sous Linux:
http://www.sdv.fr/cgi/orthonet/orthonet?mot=%C3%A9couter

R�ponse : affichage d'une page des mots commen�ant par "cou" comme
cou, couper, ...
Mais si tu passes l'url sans mettre l'accent
http://www.sdv.fr/cgi/orthonet/orthonet?mot=ecouter tu as la bonne
page!
Mais si tu passes par le formulaire de recherche du site, l'url est de
la forme
http://www.sdv.fr/cgi/orthonet/orthonet?mot=%E9couter&x=31&y=8

Je te propose une modification de ta proc�dure wiki de ta macro :

sub wiki
 Dim objlancer  As Object
 Dim Verbe As String
 Dim VerbeConverti As String
 Dim Lettre As String
 Dim URL As String
 Dim i As Long
  
 objlancer =
CreateUnoService("com.sun.star.system.SystemShellExecute") Verbe =
ThisComponent.Sheets.getByName("Affichage").getCellByPosition(6,0).St
ring VerbeConverti = ""
 
 For i = 1 to len(Verbe)
        Lettre = Mid(Verbe, i, 1)
         
        Select Case Lettre
                Case "�"
                        VerbeConverti = VerbeConverti + "%E2"
                Case "�"
                        VerbeConverti = VerbeConverti + "%E0"
                Case "�"
                        VerbeConverti = VerbeConverti + "%E9"
                Case "�"
                        VerbeConverti = VerbeConverti + "%E8"
                Case "�"
                        VerbeConverti = VerbeConverti + "%EA"
                Case "�"
                        VerbeConverti = VerbeConverti + "%E7"
                Case "�"
                        VerbeConverti = VerbeConverti + "%EE"
                Case "�"
                        VerbeConverti = VerbeConverti + "%EF"
                Case "�"
                        VerbeConverti = VerbeConverti + "%F9"
                Case "�"
                        VerbeConverti = VerbeConverti + "%FB"
                Case "�"
                        VerbeConverti = VerbeConverti + "%FC"
                Case Else
                        VerbeConverti = VerbeConverti + Lettre
        End Select
 Next
 URL = "http://www.sdv.fr/cgi/orthonet/orthonet?mot="+VerbeConverti
 objlancer.execute(URL, "", "")
end sub

****


A+
-- 

pgpZAKJyeX6CB.pgp
Description: PGP signature