Problème avec le commentaire

Question

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.

befadudesert · Answer

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

antoine_ferard · Answer

au lieu d'écrire mid(var,cpt,1) = '\'
écrit plutot mid(var,cpt,1) = ""

''***************************************************************************
...à votre service
Thanks & Peace
Tonio

befadudesert · Answer

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

Kristof_Koder · Answer

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() !

antoine_ferard · Answer

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

befadudesert · Answer

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) ?

cs_JMO · Answer

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

cs_JMO · Answer

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

befadudesert · Answer

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

cs_JMO · Answer

Re,

Vous êtes ici :[infomsg.aspx Thèmes] / [infomsgf_VISUAL-BASIC_1.aspx Visual Basic 6] / [infomsgt_LANGAGES-DERIVES_287.aspx Langages dérivés] / [infomsgt_VBSCRIPT_245.aspx VBScript] / Problème avec le commentaire

C'est donc du vbs. Mais facilement adaptable pour vb6.

jean-marc

befadudesert · Answer

Merci bien de ton aide :)

Problème avec le commentaire

11 réponses

Votre réponse

Discussions similaires