SÉLECTIONNE UNE PARTIE D'UN TEXTE
pcpunch
Messages postés
1243
Date d'inscription
mardi 7 mai 2002
Statut
Membre
Dernière intervention
18 février 2019
-
29 déc. 2003 à 10:04
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 29 déc. 2003 à 11:07
pcpunch Messages postés 1243 Date d'inscription mardi 7 mai 2002 Statut Membre Dernière intervention 18 février 2019 - 29 déc. 2003 à 11:07
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/19059-selectionne-une-partie-d-un-texte
https://codes-sources.commentcamarche.net/source/19059-selectionne-une-partie-d-un-texte
29 déc. 2003 à 11:07
Extrait = Mid(TxtSrc, pos1% + len(départ) , pos2% - pos1%)
29 déc. 2003 à 10:57
29 déc. 2003 à 10:04
Public Function Extrait(TxtSrc As String, Départ As String, Arriver As String)
pos1% = InStr(1, TxtSrc, Départ)
If pos1% = 0 Then Exit Function
pos2% = InStr(pos1%, TxtSrc, Arriver)
If pos2% = 0 Then Exit Function
Extrait = Mid(TxtSrc, pos1%, pos2% - pos1% + Len(Arriver))
End Function
Pour l'utliser !!!
Text2 = Extrait(Text1, "chat", "méchant")