EXTRAIRE LA LETTRE DU MILLIEU D'UN MOT
cs_Nox
Messages postés
415
Date d'inscription
mardi 3 avril 2001
Statut
Membre
Dernière intervention
26 avril 2008
-
15 févr. 2003 à 03:16
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007 - 22 févr. 2003 à 10:20
celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007 - 22 févr. 2003 à 10:20
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/6132-extraire-la-lettre-du-millieu-d-un-mot
https://codes-sources.commentcamarche.net/source/6132-extraire-la-lettre-du-millieu-d-un-mot
22 févr. 2003 à 10:20
j'ai vu ta différence, c'est parceque tu mets un "x ET y" dans le cas ou c pas possible... super...
je corrige donc en fonction, mais dans le coup ca devient une fonction inexploitable...
Public Function LettreMilieu(ByVal ch As String) As String
If ch <> "" Then LettreMilieu Mid(ch, Len(ch) // 2 + IIf(Len(ch) Mod 2 0, 0, 0.5), 1) & IIf(Len(ch) Mod 2 = 0, " et " & Mid(ch, Len(ch) // 2 + 1, 1), "")
End Function
voilà, c'est la même, ne chipotons plus ! ;)
merci pour ton suivi... salut et bonne prog'
17 févr. 2003 à 21:48
P-s :Arrête de me faire passer pour un jeûnot !!!
16 févr. 2003 à 22:47
ba bon courage alors pour ton apprentissage de vb !
Dans ce cas précis, essaye de comprendre la fonction " IIF " que j'ai utilisé...
slt et bonne prog' !
16 févr. 2003 à 22:45
SirJack, essaye un code avant d'en parler, car à priori ta compréhension des lignes que tu rejettes est limitée ! Sans mauvaises intentions, je te ferai remarquer que le code dont tu parles est l'identique de celui posté plus haut... et marche à l'identique, impair, comme pair ;) !
Tchao à tous, @+
15 févr. 2003 à 23:10
15 févr. 2003 à 10:08
Public Function LettreMilieu(ByVal ch As String) As String
If ch <> "" Then LettreMilieu Mid(ch, Len(ch) / 2 + IIf(Len(ch) Mod 2 0, 0, 0.5), 1)
End Function
... à préférer à une utilisation du troncage automatique d'integer, source d'erreur de calcul en général
15 févr. 2003 à 03:16
Je trouve pas dans quel sorte de programme l'utiliser, mais ça donne un beau cours sur les manipulations de chaines ;)
8/10