OVH Cloud OVH Cloud

Chaîne vers Liste ?

8 réponses
Avatar
Vinceline
Bonjour,

J'ai une chaine séparée pas \n
et je souhaite l'insérer dans une liste.

Comment faire ?

Merci

8 réponses

Avatar
Romain PETIT
Vinceline a présenté l'énoncé suivant :
Bonjour,

J'ai une chaine séparée pas n
et je souhaite l'insérer dans une liste.

Comment faire ?



BOUCLE, ExtraitChaine, listeAjoute...

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Vinceline
Romain PETIT a formulé ce vendredi :
Vinceline a présenté l'énoncé suivant :
Bonjour,

J'ai une chaine séparée pas n
et je souhaite l'insérer dans une liste.

Comment faire ?



BOUCLE, ExtraitChaine, listeAjoute...


Merci

A+



c'est galère... et ça marche pas :

listerep est une chaîne
rep est une chaîne
listerep = fSélecteur(SysRep(srMesDocuments), "*.jpg", "Sélectionner un
ou plusieurs fichier(s)", ...
+ "Fichier Image (*.JPG;*.JPEG)" + TAB + "*.JPG;*.JPEG" + ...
RC + "Tous fichiers (*.*)" + TAB + "*.*", "JPG", fselMulti)
rep = ExtraitChaîne(listerep, rangPremier, RC)

TANTQUE rep <> EOT
ListeAjoute(ListeImage, "Image", rep)
rep = ExtraitChaîne (listerep, rangSuivant , RC)
FIN


il n'existe pas en windev un truc comme en perl ?

foreach my $rep (split(/n/, $machaine) {

}
Avatar
celine
Non, je ne crois pas que ça existe. Mais normalement on s'en sort bien
avec des boucles, qu'est ce qui ne marche pas dans les tiennes?

Vinceline a écrit:
Romain PETIT a formulé ce vendredi :

Vinceline a présenté l'énoncé suivant :

Bonjour,

J'ai une chaine séparée pas n
et je souhaite l'insérer dans une liste.

Comment faire ?




BOUCLE, ExtraitChaine, listeAjoute...



Merci

A+




c'est galère... et ça marche pas :

listerep est une chaîne
rep est une chaîne
listerep = fSélecteur(SysRep(srMesDocuments), "*.jpg", "Sélectionner un
ou plusieurs fichier(s)", ...
+ "Fichier Image (*.JPG;*.JPEG)" + TAB + "*.JPG;*.JPEG" + ...
RC + "Tous fichiers (*.*)" + TAB + "*.*", "JPG", fselMulti)
rep = ExtraitChaîne(listerep, rangPremier, RC)

TANTQUE rep <> EOT
ListeAjoute(ListeImage, "Image", rep)
rep = ExtraitChaîne (listerep, rangSuivant , RC)
FIN


il n'existe pas en windev un truc comme en perl ?

foreach my $rep (split(/n/, $machaine) {

}




Avatar
Romain PETIT
Vinceline vient de nous annoncer :

TANTQUE rep <> EOT
ListeAjoute(ListeImage, "Image", rep)
rep = ExtraitChaîne (listerep, rangSuivant , RC)
FIN



rangpremier ? =1
rangsuivant ? il faut l'incrémenter dans le TANTQUE.

il n'existe pas en windev un truc comme en perl ?
foreach my $rep (split(/n/, $machaine) {
}



Si, c'est ce que tu viens de faire au dessus :-)

A+

--
Romain PETIT
http://cerbermail.com/?O16kfXOFcq
(cliquez sur le lien ci-dessus pour me contacter en privé)
Avatar
Pascal F
Après mure réflexion, Vinceline a écrit :
Romain PETIT a formulé ce vendredi :
Vinceline a présenté l'énoncé suivant :
Bonjour,

J'ai une chaine séparée pas n
et je souhaite l'insérer dans une liste.

Comment faire ?



BOUCLE, ExtraitChaine, listeAjoute...


Merci

A+



c'est galère... et ça marche pas :

listerep est une chaîne
rep est une chaîne
listerep = fSélecteur(SysRep(srMesDocuments), "*.jpg", "Sélectionner un ou plusieurs fichier(s)", ...
+ "Fichier Image (*.JPG;*.JPEG)" + TAB + "*.JPG;*.JPEG" + ...
RC + "Tous fichiers (*.*)" + TAB + "*.*", "JPG", fselMulti)
rep = ExtraitChaîne(listerep, rangPremier, RC)

TANTQUE rep <> EOT
ListeAjoute(ListeImage, "Image", rep)
rep = ExtraitChaîne (listerep, rangSuivant , RC)
FIN


il n'existe pas en windev un truc comme en perl ?

foreach my $rep (split(/n/, $machaine) {

}



et pourquoi pas faire plus simplement:
listerep est une chaîne
rep est une chaîne
listerep = fSélecteur(SysRep(srMesDocuments), "*.jpg", "Sélectionner un ou plusieurs fichier(s)", ...
+ "Fichier Image (*.JPG;*.JPEG)" + TAB + "*.JPG;*.JPEG" + ...
RC + "Tous fichiers (*.*)" + TAB + "*.*", "JPG", fselMulti)
ListeAjoute(ListeImage, "Image", listerep)

le RC étant automatiquement interprété comme une nouvelle ligne dans la liste, sauf erreur de ma part.


--
Pascal

Ne garder que le prénom pour me joindre
Avatar
Vinceline
celine avait écrit le 30/12/2005 :
Non, je ne crois pas que ça existe. Mais normalement on s'en sort bien avec
des boucles, qu'est ce qui ne marche pas dans les tiennes?



C'est bon ça marche je m'était trompé dans
ListeAjoute(ListeImage, "Image", rep)
au lieu de
ListeAjoute(ListeImage, rep)

Je ne sais pas ce que vous en pensez mais je trouve que windev c'est
assez galère pour faire des choses simples qui se font simplement dans
d'autre language, est-ce qu'une impression ?
Avatar
Vinceline
Pascal F a exposé le 30/12/2005 :
et pourquoi pas faire plus simplement:
listerep est une chaîne
rep est une chaîne
listerep = fSélecteur(SysRep(srMesDocuments), "*.jpg", "Sélectionner un ou
plusieurs fichier(s)", ...
+ "Fichier Image (*.JPG;*.JPEG)" + TAB + "*.JPG;*.JPEG" + ...
RC + "Tous fichiers (*.*)" + TAB + "*.*", "JPG", fselMulti)
ListeAjoute(ListeImage, "Image", listerep)

le RC étant automatiquement interprété comme une nouvelle ligne dans la
liste, sauf erreur de ma part.



c'est se que j'ai essayé au début, mais ça n'a pas marché...
Avatar
Arnaud Trotignon
Vinceline a écrit :
Pascal F a exposé le 30/12/2005 :



listerep = fSélecteur(SysRep(srMesDocuments), "*.jpg", "Sélectionner
un ou plusieurs fichier(s)", ...
+ "Fichier Image (*.JPG;*.JPEG)" + TAB + "*.JPG;*.JPEG" + ...
RC + "Tous fichiers (*.*)" + TAB + "*.*", "JPG", fselMulti)





Je suis le seul à voir ça, ou je suis trop nul ?

Pour moi, tu oublies de charger le contenu de ton fichier !
Fselecteur ne renvoie que le nom du fichier sélectionné, pas son contenu !
Un simple fchargetexte devrait suffire pour cela.

Par ailleur, il me semble que ton problème était d'avoir des séparateur "n" au lieu des retours
chariot.
Remplace()

En espérant aider...