Discussion :

[sasuma]

Bonjour,

J'ai un pb de chaine de caractère en VB6: voilà le résultat de ma requete SQL

" ) Values (1225,0,'AXE','AXEAP26B101','axe','','AP26B101',0,'AXEAP26B101','AP','001','01 (001)'"

je met ce résultat dans une string que j'appelle tmpch, je veux qu' a la fin de ma chaine tmpch avoir ....,'01'" cela veut dire que je veux enlever tous les caractères après l'espace existant après '01', cad je veux enlever (001). en fait '01' est un code que je dois insérer après dans ma BD.

en résumé j'ai '01 (001)'" à la fin de ma chaine je ne veux avoir que '01'" .

comemnt je peux régler ce pb.

merci d'avance.

[OhMonBato]

Si tu as une chaine quelconque (que j'appelle Ch dans l'exemple suivant) et que tu veux enlever les x derniers caractères, il suffit de faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Ch = Left(Ch, Len(Ch) - x)

[sasuma]

merci

voilà c ca mais le pb que:

1) je connai pas le X ca varie suivant le code icic c'est 001 mais ca peu changer...
2) je dois enlever les derniers caractères qui suivent le dernier espace (avec l'espace bien sur) ici c'eest ( 001)

merci

[Delbeke]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Dim iPosit as Integer
Dim sText as String
sText = "Ma chaine de caractères"
iPosit=InStrRev(sText," ")
Debug.print Left(sText,iPosit-1)

[sasuma]

je ne comprend pas trop la dernière ligne ( j'utilise VB6)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Debug.print Left(sText,iPosit-1)

est ce que je pourrai la remplacer par

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

sText= Left(sText,iPosit-1)

merci

[Delbeke]

Je pense que tu devrais lire les tutos sur vb de ce site.
L'instruction Debug.Print est une instruction de mise au point des programmes (On parle également de débogage). Elle sert a afficher le résultat sur la "Fenêtre d'exécution" de Vb (Ctrl+G pour l'afficher).

[ucfoutu]

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Command1_Click()
  toto = " ) Values (1225,0,'AXE','AXEAP26B101','axe','','AP26B101',0,'AXEAP26B101','AP','001','01 (001)'"
  titi = Split(toto, ",'")
  toto = titi(UBound(titi))
  MsgBox Mid(toto, 1, InStr(toto, " ") - 1)
End Sub