supprimer un caractere de continuation( _ ) d'un commentaireRésolu

Question

loup28
Bonjour !

Je dois compl&#233;ter une fonction pour que ce test marche : 

Private sub UnitTestScripContinuationCharacter ()
   Dim sresult as string
   Dim oparser as parser
   set oparser = new parser
   sresult oparser.StripContinuationCharacter ("i 10             _          ")   Debug.Assert sresult "i 10"
      sresult oparser.StripContinuationCharacter ("my_value 10")   Debug.Assert sresult "my_value 10"

   sresult = oparser.StripContinuationCharacter ("some _ non _vb_ code _")
   Debug.Assert sresult = "some _ non _vb_ code"
End sub

Voici la fonction que j'ai ecrite pour que le test marche et dont il fait reference au dessus :
(Linecontinuesonnextline est une fonction de type Booleene qui retourne True si la ligne analyser se finie par " _")

Public function StripContinuationCharacter (ByVal sline as string) as string
Dim charact as string

if Linecontinuesonnextline(sline) = true then
   sline = Replace(sline, " _", "")
   sline = RTrim(sline)
end if

StripContinuationCharacter  = sline
end function
Pb : lorsque le test se lance, les tests avec "i 10             _          " et "my_value 10" marchent tres bien mais au moment de faire le dernier test il me retourne "some nonvb code" au lieu de "some _ non _vb_ code".
Que dois-je faire pour que &#231;a marche ?

cs_loup28 · Accepted Answer

loup28
Merci &#224; tous. J'ai r&#233;ussi a r&#233;soudre mon pb.
Ma fonction marche tres bien Merci beaucoup !

cs_CanisLupus · Answer

Salut, je ne vois pas trop ou tu veux en venir mais la ligne :
   sline = Replace(sline, " _", "")
remplace tous les "_" par "" c'est &#224; dire rien.
C'est voulu ?

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

salut,

1.
"i = 10             _          "
-> "i = 10"

2.
"my_value = 10"
-> "my_value = 10"

3.
"some _ non _vb_ code _"
-> "some nonvb_ code"

remplace Debug.Assert par Debug.Print, &#231;&#224; peut &#234;tre + simple &#224; lire... (pas de test)

peut-&#234;tre que ton erreur est d&#251;e au fait que l'exemple de ta 3e ligne, le 3e "_" n'est pas pr&#233;c&#233;d&#233; d'espace.

PCPT

cs_CanisLupus · Answer

Un peu alambiqu&#233; mais pourquoi pas :

if Linecontinuesonnextline(sline) = true then
   sline = rtrim(mid(sline,1, len(rtrim(sline))-1))
end if

-------------------------------------------------
Dresseur de puces, .... normal pour un loup  !?

PCPT · Answer

Loup28 -> Linecontinuesonnextline() devrait retourner False pour la premi&#232;re ligne de ton exemple

PCPT

PCPT · Answer

valide-toi si tu veux, mais au moins met ta solution finale pour les autres lecteurs
PCPT

Supprimer un caractere de continuation( _ ) d'un commentaire

6 réponses

Discussions similaires