Bonjour
Je cherche à copier une liste dans le presse-papier, mais d'un seul bloc,
car sinon, ça met trop longtemps (12.000), en la déclarant comme variable
objet la liste, est-ce possible, plus rapide, exemple???
--
Merci, @+, bye, Joe
torll75 AROBASE iFrance POINT com
------------------------------------------
Ce message est plein de virus "certifiés"
Le_Troll, éleveur de Trolls depuis César, qui disait:
Avec une hache, celui qui tient le manche a toujours raison !
------------------------------------------
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
Zoury
> car sinon, ça met trop longtemps (12.000),
Si tu as 12 000 items dans ta liste alors je te conseilles de revoir ton design... :O/
en la déclarant comme variable objet la liste, est-ce possible,
nope.
plus rapide,
Si tu as 12 000 items alors il est plus que normal que l'algo proposé par NG soit lent étant donnée que la chaine se recréer en mémoire à chaque item lors de la concaténation. Une liste ne devrait pas, de toute façon, contenir autant d'items.. si tu veux accélérer le traitement tu pourrais utiliser un tableau de String pour faire la concaténation (ma classe CFile fonctionne comme ça).
<Non testé> '*** ' copie le contenu de la liste dans le clipboard Private Sub CopyListToClipboard(ByRef lst As ListBox)
Dim s() As String Dim i As Long
If (lst.ListCount = 0) Then Exit Sub
ReDim s(lst.ListCount - 1) As String
For i = 0 To lst.ListCount - 1 s(i) = lst.List(i) Next i
Si tu as 12 000 items dans ta liste alors je te conseilles de revoir ton
design... :O/
en la déclarant comme variable objet la liste,
est-ce possible,
nope.
plus rapide,
Si tu as 12 000 items alors il est plus que normal que l'algo proposé par NG
soit lent étant donnée que la chaine se recréer en mémoire à chaque item
lors de la concaténation. Une liste ne devrait pas, de toute façon, contenir
autant d'items.. si tu veux accélérer le traitement tu pourrais utiliser un
tableau de String pour faire la concaténation (ma classe CFile fonctionne
comme ça).
<Non testé>
'***
' copie le contenu de la liste dans le clipboard
Private Sub CopyListToClipboard(ByRef lst As ListBox)
Dim s() As String
Dim i As Long
If (lst.ListCount = 0) Then Exit Sub
ReDim s(lst.ListCount - 1) As String
For i = 0 To lst.ListCount - 1
s(i) = lst.List(i)
Next i
Si tu as 12 000 items dans ta liste alors je te conseilles de revoir ton design... :O/
en la déclarant comme variable objet la liste, est-ce possible,
nope.
plus rapide,
Si tu as 12 000 items alors il est plus que normal que l'algo proposé par NG soit lent étant donnée que la chaine se recréer en mémoire à chaque item lors de la concaténation. Une liste ne devrait pas, de toute façon, contenir autant d'items.. si tu veux accélérer le traitement tu pourrais utiliser un tableau de String pour faire la concaténation (ma classe CFile fonctionne comme ça).
<Non testé> '*** ' copie le contenu de la liste dans le clipboard Private Sub CopyListToClipboard(ByRef lst As ListBox)
Dim s() As String Dim i As Long
If (lst.ListCount = 0) Then Exit Sub
ReDim s(lst.ListCount - 1) As String
For i = 0 To lst.ListCount - 1 s(i) = lst.List(i) Next i
