Extraire la lettre du millieu d'un mot

Soyez le premier à donner votre avis sur cette source.

Snippet vu 2 443 fois - Téléchargée 39 fois

Contenu du snippet

Ceci est une façon d' inscrire la lettre du millieu d'un textbox dans un label.
Ce code est de moi.

Source / Exemple :


Option Explicit
Dim Chaine As String
Dim PositionPair As Integer
Dim PositionImpair As Integer

Private Sub cmdMillieu_Click()

    PositionPair = 0
    PositionImpair = 0
    Chaine = txtChaine.Text
    PositionPair = (Len(Chaine) / 2)
    PositionImpair = (Len(Chaine) / 2) + 0.5
    
    If PositionPair + PositionPair = Len(Chaine) Then
        lblMillieu.Caption = Mid(Chaine, PositionPair, 1) + " et " + Mid(Chaine,  PositionPair + 1, 1)

    Else
        lblMillieu.Caption = Mid(Chaine, PositionImpair, 1)
    End If
        
    
End Sub

Conclusion :


Soyez brillant en découvrant le fonctionnement du code! Il serait trop long à expliquer.

A voir également

Ajouter un commentaire Commentaires
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

excuse moi je pensais... dsl
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'
Messages postés
9
Date d'inscription
vendredi 14 février 2003
Statut
Membre
Dernière intervention
17 avril 2003

Celiphane....je connais très bien la fonction IIF ...et j'ai essayé ton code , c'est pour ça que j'ai vu qui ne s'appliquait pas parfaitement!

P-s :Arrête de me faire passer pour un jeûnot !!!
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

ha, dsl, j'avais pas vu : c'est ta source !
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' !
Messages postés
466
Date d'inscription
samedi 16 février 2002
Statut
Membre
Dernière intervention
20 avril 2007

le plus énervant sur un "forum" de programmation, ce sont les gens qui parlent sans vraiment savoir de quoi ils parlent... ;)
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, @+
Messages postés
9
Date d'inscription
vendredi 14 février 2003
Statut
Membre
Dernière intervention
17 avril 2003

Cher Celiphane, ton code ne marche pas avec les mots dont le le nombre de lettres est pair!
Afficher les 7 commentaires

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.