begin process at 2008 09 06 20:28:44
1 237 953 membres
335 nouveaux aujourd'hui
14 314 membres club

Vous ne trouvez pas de réponse à votre problème ? Alors posez la question dans le forum.
Souvenez-vous qu'il n'y a jamais de question bête, mais rester dans l'ignorance parce que l'on n'ose pas poser une question, ça c'est une erreur !

INVERSE DE MID()


Information sur la source

Catégorie :Texte Niveau : Débutant Date de création : 25/06/2002 Date de mise à jour : 25/06/2002 23:00:38 Vu : 1 296

Note :
7,5 / 10 - par 2 personnes
7,50 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10

Commentaire sur cette source (2)
Ajouter un commentaire et/ou une note

Description

Retourne l'inverse de la fonction Mid()

Source

  • Private Function InvMid(sString As String, lStart As Long, Optional lStop As Long = 1) As String
  • ' Renvoie l'inverse de Mid()
  • ' Ex :
  • ' Mid("salut", 2, 3) = "alu"
  • ' InvMid("salut", 2, 3) = "st"
  • InvMid = Left(sString, lStart - 1) & Right(sString, Len(sString) - lStart - lStop + 1)
  • End Function
Private Function InvMid(sString As String, lStart As Long, Optional lStop As Long = 1) As String
    ' Renvoie l'inverse de Mid()
    ' Ex :
    '  Mid("salut", 2, 3) = "alu"
    '  InvMid("salut", 2, 3) = "st"
    InvMid = Left(sString, lStart - 1) & Right(sString, Len(sString) - lStart - lStop + 1)
End Function

Conclusion

aucun bog connu ;)
  • signaler à un administrateur
    Commentaire de SHIVA le 25/06/2002 23:55:29

    bien !

  • signaler à un administrateur
    Commentaire de Warning le 26/06/2002 11:47:45 administrateur CS

    ça peut servir ...

Ajouter un commentaire

Pub



Appels d'offres

CalendriCode

Septembre 2008
LMMJVSD
1234567
891011121314
15161718192021
22232425262728
2930     

Boutique

Boutique de goodies CodeS-SourceS