Re: [prog] url et acents

Tue, 29 Mar 2005 07:18:04 -0800 

Troumad a �crit :

Je vais regarder !

nb : je suis heureux je viens de r�cup�rer mon /home apr�s un crash DD du � un �change de proc... 

Je viens de remettre en marche OOo, j'ai donc regard� et �a plante :(

laurux a �crit :

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).String


VerbeConverti = "" 

Comme �a, la d�coupe est mieux :)


Ces 4 lignes n'en font qu'une je pense ! 

Non, 3 mais autrement !

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


J'y avait pens�, mais je n'avais pas tous les cas en t�te.

Next
URL = "http://www.sdv.fr/cgi/orthonet/orthonet?mot="+VerbeConverti
objlancer.execute(URL, "", "")


C'est � cette derni�re instruction qu'il y a un pb :( :(
On ne paut pas lancer cet objet... As-tu essay� ?

end sub



--
Amicalement vOOotre Troumad Alias Bernard SIAUD
mon site : http://troumad.free.fr : AD&D maths WEB sectes
Pour la libert� http://www.mandrakelinux.com/fr/ http://www.eurolinux.org/index.fr.html
N'envoyez que des documents avec des formats ouverts, comme http://fr.openoffice.org

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Répondre à