Re: [prog] url et acents - Troumad - org.openoffice.fr.prog

15 messages in org.openoffice.fr.progRe: [prog] url et acents

From	Sent On	Attachments
Troumad	Mar 24, 2005 12:49 pm
LE LOUARNE Serge	Mar 24, 2005 2:11 pm
Troumad	Mar 24, 2005 10:00 pm
LE LOUARNE Serge	Mar 24, 2005 10:44 pm
Alain Nowak	Mar 25, 2005 5:49 am
Laurent Godard	Mar 25, 2005 6:19 am
Troumad	Mar 25, 2005 12:05 pm
Troumad	Mar 25, 2005 12:13 pm
Troumad	Mar 25, 2005 11:29 pm
Laurent Godard	Mar 26, 2005 12:50 am
laurux	Mar 28, 2005 11:56 am
Troumad	Mar 29, 2005 6:42 am
Troumad	Mar 29, 2005 7:12 am
Troumad	Mar 29, 2005 7:16 am
Troumad	Mar 29, 2005 7:47 am

	Permalink for this message Paste this link in email or IM:
	Permalink for this thread Paste this link in email or IM:
	Atom feed for this thread Paste this URL into your reader:

Subject:	Re: [prog] url et acents	Actions...
From:	Troumad (trou...@libertysurf.fr)
Date:	Mar 29, 2005 6:42:01 am
List:	org.openoffice.fr.prog

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

	Start a set with this search
	Include this search in one of my sets
	Exclude this search from one of my sets
	Permalink to these results Paste this link in email or IM:
	Atom feed for tracking future search results Paste this URL into your reader: