Visual Basic, VB6, VB.NET, VB 2005, VB CodeS-SourceS

CodeS-SourceS est hébergé par Frontier.fr

Cliquez ici pour mettre ce site au démarrage de votre navigateur

AccueilCodesTutorielsForumsEmploiLivresGuide achatConnexion

begin process at 2009 07 06 03:59:36

SILVERLIGHT 3 : COMMUNICATION ET MULTICAST par KooKiz

[PERSO] DéCOUVERTES ESTIVALES : LINUX (PART I) par FREMYCOMPANY

[REFACTORING] RESHARPER POUR VISUAL STUDIO 2010 (PREVIEW) par tja

[REFACTORING] ANALYSER VOS EXCEPTIONS AVEC RESHARPER EXCEPTIONAL par tja

SHAREPOINT 2007 : PATTERNS & PRACTICES SHAREPOINT GUIDANCE par phil

[DéPLACé VB.NET -> VBA] MACRO DANS EXCEL par PONTGUENNOU

RE : RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par jack

RECUPERER LE RESULTAS AFFICHER PAR LINVITE DE COMMANDE par liehuos001

RE : LORSQUE JE VEUX FAIRE LES ENREGISTREMENT DANS MA TABLE EN VB.NET UN MESSAGE S'AFFICHE EN ME DISANT QUE LE CHAMPS EST PETIT. QUE FAIE? par PCPT

RE : BUFFERING par pingouin84k

+ de logiciels à télécharger

1 464 992 membres
45 nouveaux aujourd'hui
15 046 membres club

Trouver une ressource

Trouvez une ressource parmi 40 094 codes, 1 303 047 messages d'aide etc...

Recherche: dans [ Dernières recherches ]

Filtre:Tous les codes.NET uniquementExclure .NET

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 564

Auteur : seyev

Site perso

Ecrire un message privé

Note :

7,50 / 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