Ajouter un items une variable

#1 · July 18, 2021, 12:55 pm

Bonjours les amis, notre Forum,

Depuis ces très longues années d'utilisation de Notre Rad de production(s)
Codé quelques choses reste simple, mais pour moi je bloque sur ce problème ...

Je récupère le contenu d'un fichier ESSAI.txt pour le visualiser dans une ListBox

FileList "![PubDir]clients\ESSAI.txt" "Files+NoExt" "[ToutesLesFichiers]"
StrParse "[ToutesLesFichiers]" "[#13]" "[Fichier]" "[NombreDeFichiers]"

Le contenu à ce stade apparait très bien dans la ListBox

Par contre, ci je veux récupperer le contenu de cette Listbox dans un nouveau fichier .txt avec une variable de complément [Time24]
Pour obtenir [Time24] + [NombreDeFichiers] le marquage [Time24] est tracé uniquement que sur le premier items et non sur les suivants...

FileWrite "[PubDir]copie.txt" "All" "[Time24] [ToutesLesFichiers]"

Comment Obtenir [Time24] sur la récupération de chaques items dans le fichier .txt et pas uniquement que sur le premier itels , mais sue l'ensemble des Items de la ListBox.

Claude GUYOT
"Thank you very much for loving this software as much as I do."
"Merci beaucoup d'aimé ce logiciel autant que moi."

#2 · July 18, 2021, 8:18 pm

When saving the content of a Listbox, add an additional variable to each item ...

Lors d'une sauvegarde de contenu d'une Lisbox, ajouter à chaques items une variable en plus ...

Retrieve the contents of a Listbox in a new .txt file with an add-in variable [Time24] To get [Time24] + [Number OfFiles] without modifying the source Listbox:

Récupérer le contenu d'une Listbox dans un nouveau fichier .txt avec une variable de complément [Time24]
Pour obtenir [Time24] + [NombreDeFichiers] et ce sans modifier la Listbox source :

ListBoxSize "ListBox1" "[Count]"

FileErase "[PubDir] Pub.txt "

Loop "1" "[Count]" "[ThisItem]"
   ListBoxGetItem "ListBox1" "[ThisItem]" "[Result]"
SetVar "[Result2]" "[Time24] [Result]"
   FileWrite "[PubDir] Pub.txt " "Append" "[Result2]"
EndLoop

Example of the ad below

Exemple de la Pub ci-dessous

Claude GUYOT
"Thank you very much for loving this software as much as I do."
"Merci beaucoup d'aimé ce logiciel autant que moi."

Uploaded files:

You need to login to have access to uploads.

#3 · July 19, 2021, 10:30 pm

ListBoxSize "ListBox1" "[Count]"
FileErase "[PubDir] Pub.txt "
ListBoxGetItem "ListBox1" "all" "[Result]"
SetVar "[Result]" "[Result]*"
StrReplace "[Result]" "|*" " " "[Result]" ""
StrReplace "[Result]" "|" "[#13][Time24] " "[Result2]" ""
FileWrite "[PubDir] Pub.txt " "Append" "[Time24] [Result2]"

proforma.guyot has reacted to this post.

#4 · July 19, 2021, 11:31 pm

iretz,

Merci pour ton intervention et nouvelle solution.
Nouvel approche pour récupérer le contenu d'une Listbox dans un nouveau fichier .txt avec une variable de complément [Time24] sur chaques items.

De la ListBox1 les items :

JANVIER
FEVRIER
MARS
AVRIL
MAI
JUIN
JUILLET
AOUT
SEPTEMBRE
OCTOBRE
NOVEMBRE
DECEMBRE

Deviennent dans le fichier Pub.txt :

22:59:31 JANVIER
22:59:31 FEVRIER
22:59:31 MARS
22:59:31 AVRIL
22:59:31 MAI
22:59:31 JUIN
22:59:31 JUILLET
22:59:31 AOUT
22:59:31 SEPTEMBRE
22:59:31 OCTOBRE
22:59:31 NOVEMBRE
22:59:31 DECEMBRE

Et ce sans rien changer dans ListBox1.

Je me suis permis de retirer cette ligne de code qui me semblait obsolète:

ListBoxSize "ListBox1" "[Count]"

Et n'est retenu que :

FileErase "[PubDir] Pub.txt "
ListBoxGetItem "ListBox1" "all" "[Result]"
SetVar "[Result]" "[Result]*"
StrReplace "[Result]" "|*" " " "[Result]" ""
StrReplace "[Result]" "|" "[#13][Time24] " "[Result2]" ""
FileWrite "[PubDir] Pub.txt " "Append" "[Time24] [Result2]"

Merci à toi.

Claude GUYOT
"Thank you very much for loving this software as much as I do."
"Merci beaucoup d'aimé ce logiciel autant que moi."

Uploaded files:

You need to login to have access to uploads.

Ajouter un items une variable - Forum

Ajouter un items une variable