extraire chaine

Question

salut,
je ve extraire tous les mots entre @ et > mais ce code n'extrait que la premier chaine sos svp merci d'avence

nStart = InStr(1, sBuffer, "@", vbBinaryCompare)
nEnd = InStr(1, sBuffer, ">", vbBinaryCompare)


If nStart > 0 And nEnd > 0 Then art = Mid$(sBuffer, nStart + 1, nEnd - nStart - 1)


List1.AddItem art


Close #ff

PCPT · Answer

salut,
http://www.codyx.org/snippet_split-sur-plusieurs-criteres_233.aspx

++
PCPT  [AFCK]
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

kelm_by · Answer

ca marche pas

a = MultiSplit("Function  MultiSplit(ByVal sStr As String, bKeepSepar As Boolean, ParamArray aArray()) As  String()", _
          True, "@", ">", "@", ">")

PCPT · Answer

houla!!!!
c'est pourtant écrit "EXEMPLE D'UTILISATION" ......

pour toi çà donnerait :

dim a() as string
a=MultiSplit(MaChaineAAnalyser,false,"@",">")

et ensuite tu as tes éléments dans le tableaux a

++
 Prenez un instant pour répondre à [infomsg_SONDAGE-POP3-POUR-CS_769706.aspx ce sondage] svp

PCPT · Answer

ps : code pour VB6, comme tes instr mid$ etc..... (rubrique?)

mortalino · Answer

lol salut, remplace en gras par ta chaine de caractère : a = MultiSplit( "Function MultiSplit(ByVal sStr As String, bKeepSepar As Boolean, ParamArray aArray()) As String()" , _ True, "@", ">", "@", ">") et en rouge, c'est inutile, tu l'as déjà mis.. Exemple : ' EXEMPLE D'UTILISATION Private Sub Form_Load() Dim a$(), i% a = MultiSplit("toto>tata@sboub.com", _ True, "@", ">") For i = 0 To UBound(a) Debug.Print a(i) Next i End Sub ~ Mortalino ~ Colorisation automatique @++

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

mortalino · Answer

Arf, salut PCPT,

désolé, Poste croisé..

@++ 

<hr width="100%" size="2" />
  --Mortalino--
Le mystérieux chevalier, "Provençal, le Gaulois"
/DIV>

PCPT · Answer

trop de breuvage fait des ravages ^^

cs_fauve · Answer

Salut,

Essaye ca pour voir :

      Dim n1 As Integer
   Dim n2 As Integer
   Dim machaine As String

   n1 = Instr(1, sBuffer, "@")
   n2 = Instr(1, sBuffer, ">")
   machaine = Mid(sBuffer, n1+1, n1 - n2)
      ' Mid(variable de type string, début, nombre de caractères retournés)

      ' Exemple :

      '  sBuffer = "xxxx@xxxxx>xxx"
      '  n1 = 5      n2 = 11
      '  Il faut prendre les caractères entre @ et > : donc du 6° caractère jusqu'au caractère avant le > ( début = n1 + 1 )
      ' Ici, on peut voir qu'il y a 5 caractères dans sBuffer entre @ et >
      ' donc le nombre de caractères retournés doit être ' n1 - n2 - 1 ' c'est à dire 11 - 5 - 1 = 6 - 1 = 5

(Colorationsyntaxique automatique par Kenji)

N'oubliez pas d'accepter la réponse si elle a résolu votre problème

PCPT · Answer

fauve
 -> la demande n'est pas uniquement de récupérer ce qu'il y a entre @ et > mais aussi avant et après

Extraire chaine

9 réponses

Votre réponse

Discussions similaires