Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Pascal B.
"Pierre" a écrit: | est qu'il est possible de prendre le contenue d'un liste view en mode Report | et de le mettre dans un fichier Text en utilisant la fonction Print
Pas sans programmation ! (A moins de posséder une baguette magique).
Dim Txt as string Dim LI as ListItem Dim LSI as ListSubItem Txt = "" For Each LI in ListView1.ListItems Txt = Li.Text For Each LSI in LI.ListSubItems Txt =Txt & vbTab & LSI.Text Next SLI Txt = Txt & vbCrLF Next LI
(Il reste encore à enregistrer TXT dans un fichier; mais j'imagine que tu sais faire cela)
Pascal B.
"Pierre" a écrit:
| est qu'il est possible de prendre le contenue d'un liste view en mode Report
| et de le mettre dans un fichier Text en utilisant la fonction Print
Pas sans programmation ! (A moins de posséder une baguette magique).
Dim Txt as string
Dim LI as ListItem
Dim LSI as ListSubItem
Txt = ""
For Each LI in ListView1.ListItems
Txt = Li.Text
For Each LSI in LI.ListSubItems
Txt =Txt & vbTab & LSI.Text
Next SLI
Txt = Txt & vbCrLF
Next LI
(Il reste encore à enregistrer TXT dans un fichier; mais j'imagine que tu sais faire cela)
"Pierre" a écrit: | est qu'il est possible de prendre le contenue d'un liste view en mode Report | et de le mettre dans un fichier Text en utilisant la fonction Print
Pas sans programmation ! (A moins de posséder une baguette magique).
Dim Txt as string Dim LI as ListItem Dim LSI as ListSubItem Txt = "" For Each LI in ListView1.ListItems Txt = Li.Text For Each LSI in LI.ListSubItems Txt =Txt & vbTab & LSI.Text Next SLI Txt = Txt & vbCrLF Next LI
(Il reste encore à enregistrer TXT dans un fichier; mais j'imagine que tu sais faire cela)
Pascal B.
Pierre
IoIIIIII ma baguette est en panne
merci pour la réponse aussi rappide je me met la dessus tout de suite
"Pascal B." a écrit dans le message de news: %
"Pierre" a écrit: | est qu'il est possible de prendre le contenue d'un liste view en mode Report | et de le mettre dans un fichier Text en utilisant la fonction Print
Pas sans programmation ! (A moins de posséder une baguette magique).
Dim Txt as string Dim LI as ListItem Dim LSI as ListSubItem Txt = "" For Each LI in ListView1.ListItems Txt = Li.Text For Each LSI in LI.ListSubItems Txt =Txt & vbTab & LSI.Text Next SLI Txt = Txt & vbCrLF Next LI
(Il reste encore à enregistrer TXT dans un fichier; mais j'imagine que tu sais faire cela)
Pascal B.
IoIIIIII ma baguette est en panne
merci pour la réponse aussi rappide
je me met la dessus tout de suite
"Pascal B." <Pascbr@hotmail_ANTISPASM_.com> a écrit dans le message de news:
%23t9E0RkJFHA.1392@TK2MSFTNGP10.phx.gbl...
"Pierre" a écrit:
| est qu'il est possible de prendre le contenue d'un liste view en mode
Report
| et de le mettre dans un fichier Text en utilisant la fonction Print
Pas sans programmation ! (A moins de posséder une baguette magique).
Dim Txt as string
Dim LI as ListItem
Dim LSI as ListSubItem
Txt = ""
For Each LI in ListView1.ListItems
Txt = Li.Text
For Each LSI in LI.ListSubItems
Txt =Txt & vbTab & LSI.Text
Next SLI
Txt = Txt & vbCrLF
Next LI
(Il reste encore à enregistrer TXT dans un fichier; mais j'imagine que tu
sais faire cela)
merci pour la réponse aussi rappide je me met la dessus tout de suite
"Pascal B." a écrit dans le message de news: %
"Pierre" a écrit: | est qu'il est possible de prendre le contenue d'un liste view en mode Report | et de le mettre dans un fichier Text en utilisant la fonction Print
Pas sans programmation ! (A moins de posséder une baguette magique).
Dim Txt as string Dim LI as ListItem Dim LSI as ListSubItem Txt = "" For Each LI in ListView1.ListItems Txt = Li.Text For Each LSI in LI.ListSubItems Txt =Txt & vbTab & LSI.Text Next SLI Txt = Txt & vbCrLF Next LI
(Il reste encore à enregistrer TXT dans un fichier; mais j'imagine que tu sais faire cela)
Ces parfait Sa fonctionne je suis vraiment heureux
"Pascal B." a écrit dans le message de news:
Attention petite erreur:
Lire "Next LSI" au lieu de "Next SLI"
Zoury
Bonjour Messieurs!
For Each LSI in LI.ListSubItems Txt =Txt & vbTab & LSI.Text Next SLI
Notez que la concaténation de la chaine pourrait prendre un temps fou à se réaliser si le ListView contient beaucoup d'éléments. C'est donc à toi de voir. Pour contrer cet effet, on pourait, par exemple, remplacer la variable TXT par un instance de la classe CFile. Ce qui permettrait de concatener les chaines rapidement (Append()) en plus de permettre la création du fichier en un seul appel (SaveFileAs()). L'utilisation de laclasse n'était qu'un exemple, l'important est d'éviter la concaténation multiples avec & (qui recopie les chaines à chaque appel).
voici le lien vers la dernière vesrion de la classe CFile : http://groups.google.com/groups?selm=uKyYolctDHA.2464%40TK2MSFTNGP12.phx.gbl
-- Cordialement Yanick MVP pour Visual Basic
Bonjour Messieurs!
For Each LSI in LI.ListSubItems
Txt =Txt & vbTab & LSI.Text
Next SLI
Notez que la concaténation de la chaine pourrait prendre un temps fou à se
réaliser si le ListView contient beaucoup d'éléments. C'est donc à toi de
voir.
Pour contrer cet effet, on pourait, par exemple, remplacer la variable TXT
par un instance de la classe CFile. Ce qui permettrait de concatener les
chaines rapidement (Append()) en plus de permettre la création du fichier en
un seul appel (SaveFileAs()). L'utilisation de laclasse n'était qu'un
exemple, l'important est d'éviter la concaténation multiples avec & (qui
recopie les chaines à chaque appel).
voici le lien vers la dernière vesrion de la classe CFile :
http://groups.google.com/groups?selm=uKyYolctDHA.2464%40TK2MSFTNGP12.phx.gbl
For Each LSI in LI.ListSubItems Txt =Txt & vbTab & LSI.Text Next SLI
Notez que la concaténation de la chaine pourrait prendre un temps fou à se réaliser si le ListView contient beaucoup d'éléments. C'est donc à toi de voir. Pour contrer cet effet, on pourait, par exemple, remplacer la variable TXT par un instance de la classe CFile. Ce qui permettrait de concatener les chaines rapidement (Append()) en plus de permettre la création du fichier en un seul appel (SaveFileAs()). L'utilisation de laclasse n'était qu'un exemple, l'important est d'éviter la concaténation multiples avec & (qui recopie les chaines à chaque appel).
voici le lien vers la dernière vesrion de la classe CFile : http://groups.google.com/groups?selm=uKyYolctDHA.2464%40TK2MSFTNGP12.phx.gbl
