Trouver le texte entre deux vbtabs

Soyez le premier à donner votre avis sur cette source.

Snippet vu 3 778 fois - Téléchargée 67 fois

Contenu du snippet

Rien à insérer comme objet, juste cette fonction :

Source / Exemple :


Private Function InsideTab(InString As String, FirstTab As Integer)
Dim CurrentTab As Integer
Dim Xtab As Integer
CurrentTab = 0
While Xtab < FirstTab
    CurrentTab = InStr(CurrentTab + 1, InString, vbTab)
    Xtab = Xtab + 1
Wend
If InStr(CurrentTab + 1, InString, vbTab) <> 0 Then
 InsideTab = Mid$(InString, CurrentTab + 1, InStr(CurrentTab + 1, InString, vbTab) - CurrentTab - 1)
Else:
 InsideTab = Mid$(InString, CurrentTab + 1, Len(InString) - CurrentTab - 1)
End If
End Function

Conclusion :


Explication :
par ex :
Text1 = "salut" & vbtab "ca va ???"
InsideTab(Text1, 0) sera égal à "salut"
InsideTab(Text1, 1) sera égal à "ca va ???"
Copyright Skull.Rider

A voir également

Ajouter un commentaire

Commentaire

c bien pensé mais c n'est pas du nivo 3

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.