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 7:16:54 am
List:	org.openoffice.fr.prog

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

	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: