Bonjour à tous,
j'aimerais tester tous les caractères d'une chaine donc je procède de cette manière :
If (mid(var,cpt,1) = '\') Then ...
et la bien sûr il ne prend pas en compte '\' car il croit que c'est un commentaire

Quelqu'un aurait-il une solution ??

Merci d'avance.

Désolé mais je me suis trompé sur la fonction mid, elle ne renvoie qu'un nombre ...

au lieu d'écrire mid(var,cpt,1) = '\'
écrit plutot mid(var,cpt,1) = "\"

''***************************************************************************
...à votre service
Thanks & Peace
Tonio

C'est tout simplement la fonction replace qu'il faut utiliser désolé du dérangement ^^

1- Mid n'a jamais renvoyé un nombre !
2- Je ne vois pas le rapport entre ta question et la soluce que tu y apportes, à savoir la fonction Replace() !

entièrement d'accord avec toi Kristof_Koder ... merde!!!! c'était ma réponse qu'aurait dû être acceptée !!! pfffff 

''***************************************************************************
...à votre service
Thanks & Peace
Tonio

Je voulais remplacer dans une chaine donc je me suis dit que j'allais isoler ce que je devais remplacer et ensuite le remplacer.
En effet mid renvoie une chaine.

Alors comment faut-il faire pour isoler un \ dans une chaine (et non le remplacer) ?

 Bonjour à tous,



Bonjour à tous,


Exemple = "D:\Test\Fichiers\"

Tableau = Split(Exemple,"\")
For i=LBound(Tableau) To UBound(Tableau)-1
    result = result & Tableau(i) & Space(1)
Next

MsgBox Join(Split(Exemple,"\")) &vbCrLf& _
       Replace(Exemple,"\",vbNullString) &vbCrLf& _
       Replace(Exemple,"\",Space(1)) &vbCrLf& _
       result

jean-marc

Re,



Exemple pour isoler une occurrence.

Option Explicit
Const Texte = "D:\\Test\Fichiers\\aaaa"
Const sChaine = "\\"   'chaine recherchée

Dim aPos() , iPos
ReDim aPos(0) 

iPos = InStr(1, Texte, sChaine) 
While iPos <> 0
      ReDim Preserve aPos(UBound(aPos) + 1)
      aPos(UBound(aPos)) = iPos
      iPos = InStr(iPos + 1, Texte, sChaine)
Wend

If UBound(aPos) > 0 Then
   Dim i , Resultat
   Resultat = "L'occurrence """ & sChaine & """ a été trouvée " & _
              UBound(aPos) & " fois " & "dans l'expression " &vbCrLf& _
              vbCrLf& """" & Texte & """" &vbCrLf
   For i = 1 To UBound(aPos)
       Resultat = Resultat & vbCrLf & "Postion: " & CStr(aPos(i)) & _
                  "," & CStr(aPos(i)) + Len(sChaine)
   Next 
 Else
   Resultat = "L'occurrence """ & sChaine & _
              """ n'a pas été trouvée dans l'expression " &vbCrLf& _
              vbCrLf& """" & Texte & """"
End If

MsgBox Resultat 

       

jean-marc

Merci mais c'est vu VB ou du VBS ??