Supprimer une partie d'un élément dans une lstbox

Question

voilà, j'ai une liste box qui ressemble à:

###fdfdf
!swdw     rfrfr
!dewddew     defrf
!defefrf     ffrfr
##deded

j'aimerais supprimer tous les éléments qui commencent par "#" et supprimer la partie avant la tabulation, pour les éléments commencant par "!"

merci d'avance pour les réponses!!

Makabey · Answer

Il peux y avoir des erreurs, mais au moins le principe est complet:


Dim Tbl() As String
Dim UB As Integer
Dim iCmpt As Integer
Dim Nbr As Integer
Dim Pos As Integer

UB = List1.ListCount - 1
Redim Tbl(UB)

For iCmpt = 0 to UB
  Tbl(Nbr) = List1.List(iCmpt)
  If (StrComp(Left$(Tbl(Nbr), 1), "#") <> 0) Then 'Si commence pas par #, alors on continue le traitement...
      Pos = InStr(1, Tbl(Nbr), Chr$(8))  'Où est le caractère TAB s'il existe...
      If (Pos > 0) Then
          Tbl(Nbr) = Right$(Tbl(Nbr), Len(Tbl(Nbr)) - Pos)
        'Else
      End If
      Nbr = Nbr + 1
    'Else          
  End If
Next iCmpt

List1.Clear
For iCmpt = 0 to (Nbr - 1)
  List1.AddItem Tbl(Nbr)
Next iCmpt

Supprimer une partie d'un élément dans une lstbox

1 réponse

Discussions similaires