DÉCOMPOSER UNE LIGNE DE COMMANDE OU TOUT AUTRE TEXTE

cs_Berenger Messages postés 35 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 19 juillet 2004 - 11 janv. 2003 à 12:06
DjaWakaDja Messages postés 1 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 14 octobre 2004 - 14 oct. 2004 à 08:48

Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/5620-decomposer-une-ligne-de-commande-ou-tout-autre-texte

DjaWakaDja Messages postés 1 Date d'inscription jeudi 10 juin 2004 Statut Membre Dernière intervention 14 octobre 2004
14 oct. 2004 à 08:48

Sympa la fonction!

harryjc Messages postés 11 Date d'inscription vendredi 21 juin 2002 Statut Membre Dernière intervention 14 octobre 2005
6 févr. 2003 à 17:56

Je remercie ce petit dev car sous VB5 la fonction split n'existe pas et en tant que particulier, acheter toutes les versions de M$ cela coute cher !!!

celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
12 janv. 2003 à 23:30

"C'est bien toutefois de coder soi-même ces fonctions"

-> a quoi bon réinventer la roue ? bof...

Bonne prog' qd mm...

cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
12 janv. 2003 à 18:02

Avec Ubound tu peux savoir le nombre d'éléments total, commençant avec 0. C'est bien toutefois de coder soi-même ces fonctions....essaie maintenant de reproduire les fonctions len et mid.....l'avantage avec split, c'est que ça produit un objet de classe collection. Tu peux faire plein de trucs avec un objet collection. Bon, et puis les variables sont un peu grosses dans ton code, c'est trois fois rien à corriger...IndX, IndX2, Lpos prennent chacune 16 octets et puis count devrait être un integer. Désolé si je suis un peu chiant, mais c'est plus fort que moi...

bonne prog !

cs_Berenger Messages postés 35 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 19 juillet 2004
12 janv. 2003 à 12:26

Ok c'est plus facile avec la fonction split.
Cependant, mon code marche tout aussi bien, et je me demande si la fonction split peut fournir le nombre total d'éléments séparables(Propriété "Count" de mon code).
Merci pour l'information

cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
12 janv. 2003 à 02:14

bon alors on peut passer en paramètre le char qui délimite...

Private Function Spliff(Chaine as string, Delimiteur as String, Indice as integer, Reverse as Boolean)

et puis...

vSplit = Split(Chaine, Delimiteur)

...

cs_raff Messages postés 182 Date d'inscription dimanche 18 août 2002 Statut Membre Dernière intervention 5 janvier 2004 3
12 janv. 2003 à 02:11

la même chose avec dix fois moins de code et une fonction très très simple...en tk, si c'est pas la même chose, merci de me le dire.

Private Function Spliff(Chaine As String, Indice As Integer, Reverse As Boolean)

Dim vSplit

vSplit = Split(Chaine, "/")

Select Case Reverse

Case False
Spliff = vSplit(Indice - 1)

Case True
Spliff = vSplit(UBound(vSplit) - Indice + 1)

End Select

End Function

et voilà, me semble qu'on se casse moins la tête, non ?

a +
raff

Weado Messages postés 119 Date d'inscription mercredi 19 juin 2002 Statut Membre Dernière intervention 21 avril 2009
12 janv. 2003 à 00:30

c'est bien

cs_Berenger Messages postés 35 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 19 juillet 2004
11 janv. 2003 à 21:58

non ce n'est pas exactement le mème fonctionnement que la fonction Split.

celiphane Messages postés 466 Date d'inscription samedi 16 février 2002 Statut Membre Dernière intervention 20 avril 2007
11 janv. 2003 à 18:51

g pas tout saisi, mais apparemment c'est la fonction split de vb.... en moins bien optimisé donc...

cs_Cpapy Messages postés 133 Date d'inscription mercredi 30 octobre 2002 Statut Membre Dernière intervention 25 septembre 2007
11 janv. 2003 à 14:24

Bravo !

L'idée est excellente.

ronanry Messages postés 190 Date d'inscription lundi 25 novembre 2002 Statut Membre Dernière intervention 22 décembre 2009
11 janv. 2003 à 13:55

bravo bravo
je compte m'en inspirer pour le passer vb.net..... si ceci ne te gene pas bien entendu

cs_Berenger Messages postés 35 Date d'inscription dimanche 20 janvier 2002 Statut Membre Dernière intervention 19 juillet 2004
11 janv. 2003 à 12:06

Cooooool (Autosatisfaction) :)

Discussions similaires

Activer un bouton de commande

creer un bon de commande

comment exécuter un script sql à partir de la ligne de commande ?

Dernière cellule non vide d'une colonne

coder un Tchat comme roulettechat.fr/chat/texte.php

Votre réponse

Discussions similaires