copier une partie d'un texteRésolu

Question

salut!
Alors voilà je vous explique mon problème:
j'ai une chaine de caractères dont je veux copier uniquement la partie comprise entre 2 mots définis.
Du coup j'ai fais çà:

Dim a As String
Dim b As String
a = InStr(Chaine, "mot1")
b = InStr(Chaine, "mot2")

j'ai donc la position du premier caractère du mot1 (a) et du mot2 (b)
Et je voudrais savoir comment copier les caractères compris entre a et b

merci d'avance

Utilisateur anonyme · Accepted Answer

Salut,

En utilisant la fonction Mid :
Mid$(Chaine, a, b - a)






__________
Kenji

PCPT · Answer

salut,
sous forme de fonction çà donne çà :
http://www.codyx.org/snippet_recuperer-chaine-inconnue-placee-entre-deux-chaines-connues_334.aspx
++
PCPT  [AFCK]
<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

stuntman_91 · Answer

merci pour votre aide!
mais j'ai un autre problème maintenant! lol
J'ai essayé de faire un InStr sur une chaine avec plus de 50000 caractères et çà ne marche pas.
Est ce que la fonction InStr est limité en nombre de caractères à analyser?
Ou alors est ce qu'il y a une autre méthode?
merci

mortalino · Answer

Salut, InStr est une fonction de type Long. Tu as de la marge... Tu dois mal utiliser la fonction, regarde avec un mot de cent mille cinq caractères ; Sub EXEMPLE() Dim sWord As String sWord = Space(100000) & "salut" MsgBox Len(sWord) 'retourne 100005 If InStr(1, sWord, "salut") > 0 Then MsgBox "Position du mot ~salut~ : " & InStr(1, sWord, "salut") 'retourne 100001 Else MsgBox "Le mot ~salut~ n'est pas dans la chaine sWord" End If End Sub ~ [code.aspx?ID=39466 Mortalino] ~ Colorisation automatique @++

--Mortalino-- Le mystérieux chevalier, "Provençal, le Gaulois"

PCPT · Answer

çà sert à rien de se casser la tête à pondre des snippets puisqu'ils ne sont pas lus

a =  InStr( Chaine , "mot1")
lPosL  = 
InStr(Start, Expression, sLeft)
        InStr(1, sWord, "salut")

y'a un argument de différent non?.....

<hr size="2" width="100%" />Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

stuntman_91 · Answer

je suis franchement désolé de vous avoir dérangés pour rien, c'était juste une erreur de code de ma part
Encore merci pour votre aide!!!
à bientôt ;-)

Copier une partie d'un texte

6 réponses

Votre réponse

Discussions similaires