Right oui Left non pkoi ?Résolu

Question

salut tous le monde,
je developpe une application qui traite un fichier : l'enregistrement comprend le nom et le prenom qui sont concatin&#233;s (du type "nom,prenom") alors g utilis&#233; Right pour extrair le nom mais avec vb 6 il reconnait right mais pas le left sachant que au moment de l'execution il fait son boulot &#224; merveille mais il me sort une erreur de type :
"Argument ou appel de procedure incorrect"
je c pas pkoi ca marche pas ?

Gobillot · Accepted Answer

essayes plutot &#231;a:


     
i% = InStr(rcd.Name, ",")

if i > 0 then

   
LastName = Right$(rcd.Name, Len(rcd.Name) - i)

   
FirstName = Mid$(rcd.Name, i + 1)

   else


   LastName = rcd.Name

   
FirstName = ""'

   End If




Daniel

Tilois · Answer

Tu peux donner le code peut etre ?!

cs_insomnix · Answer

Salut moi j'utilise Left$(..) pour des manipulation sur string, ca marche tres bien.

Tilois · Answer

Left et Left$ marche tout les deux comme Right et Right$. La diff&#233;rence
entre les deux est que ceux avec des $ renvoient des strings et ceux
sans renvoie des variant.

Gobillot · Answer

t'as surrement un argument n&#233;gatif suite a un calcul

exemple:

Str  = Left$(chaine, i - j)

avec j > i


Daniel

Tilois · Answer

Ou un right(chaine,i) avec i > len(chaine)

foufidou · Answer

voila le code : i% = InStr(rcd.Name, ",") x = Len(rcd.Name) - i y = x + 1 LastName = Right(rcd.Name, Len(rcd.Name) - i) FirstName = Left(rcd.Name, Len(rcd.Name) - y) ca marche mais il me sort tj l'erreur !!!

Gobillot · Answer

Len(rcd.Name) - y


Len(rcd.Name) - ( x + 1 )


Len(rcd.Name) - x - 1


Len(rcd.Name) - 
Len(rcd.Name) + i - 1

i - 1



si pas trouv&#233;:

 i = 0 donc Left
(rcd.Name, - 1) valeur n&#233;gative







Daniel

violent_ken · Answer

Violent Ken

Cela dit, il est vrai que VB6 bug avec left (avec ou sans $).
Exemples :
-tapez :
a = Left()
b = Right()
A l'&#233;xecution, VB6 indiquera un probl&#232;me pour right, pas pour left
-tapez :
a=right(
Alors vb6 vous mettra (string,lenght as long)
maintenant : b=left(
Alors vb6 ne vous mettra rien
-tapez:
a=right("az",1)
En sautant la ligne, vb6 reformera votre texte en a = Right("az", 1)
maintenant tapez a=left("az,1)
Une fois sur deux la majuscule &#224; "left" n'apparaitera pas.
-tapez :
Public Function Right()


End Function
Public Function Left()


End Function

VB6 d&#233;tectera un bug &#224; left, pas &#224; right...
Et tout &#231;&#224; d&#233;pend bien sur de chaque machine, puisque chez certains &#231;&#224; bug et pas chez d'autres...
Enfin, bon.

foufidou · Answer

je vai l'essay&#233; tout de suite !! merci pour le passage les gars !

foufidou · Answer

&#231;a march&#233; avec quelke petit changement !!!
merci  Gobillot et pour les autres aussi ;-)

Right oui Left non pkoi ?

11 réponses

Discussions similaires