Re: [prog] url et acents

Tue, 29 Mar 2005 07:13:00 -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...

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).St
ring VerbeConverti = ""


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


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




--
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 à