Find og skriv..

'----------------------------- Form1 -----------------------------
Option Explicit

Private Sub Command1_Click() ' <- CommandButton1
Dim i As Integer
Dim strTemp As String

  With List1 ' <- ListBox1
      For i = 0 To (.ListCount - 1)
        strTemp = strTemp & "*" & .List(i) & "*"
      Next ' i
  End With

  With List2 ' <- ListBox2
      For i = 0 To (.ListCount - 1)
        If InStr(1, strTemp, "*" & .List(i) & "*") Then
          MsgBox "Nummer " & .List(i) & " er både i ListBox 1 og ListBox 2"
        End If
      Next ' i
  End With
End Sub

Private Sub Form_Load()
Dim i As Integer

  With List1 ' <- ListBox1
      For i = 1 To 7
        .AddItem i
      Next ' i
  End With

  With List2 ' <- ListBox2
      .AddItem "5"
      .AddItem "2"
      .AddItem "4"
  End With
End Sub
'----------------------------- Form1 -----------------------------

hey mester - første liste er et listview - derfor gælder .list(i) osv naturligvis ikke, som det gør på en normal liste :)

Kan du hjælpe?

Virker mester ;) point.

Hmm .. virkede sgu ikke :). Hvis du stadig læser her, så post lige.

lad mig høre

Puha. :)

Jamen det er pænt svært ;)

Har en list som hedder lstdownloads. Dette er en listview. Når jeg klikker på en knap, skal den sammenligne disse 2 lister (lstid1 og lstdownloaded) som jeg har snakket om, findes den skal den udskrive i "side"-kolonnen: downloaded, hvsi ikke, så skriv: Whatever... I en 3. liste - lstdownloads.


Lstdownloaded -> Indeholder ID's som allerede ER downloaded
Lstid1 -> List som indeholder ID's til navnene
Lst1 -> Indeholder navnene. Bemærk at hvis man siger lst1.list(1) vil det være navnet til har tilhørerende ID på lstid1.list(1). :)
Listdownloads -> Her udskrives alle navnene som står i lst1, MEN i næste kollonne skal derstå om den findes i listen "lstdownloaded".

Fårstå du? :).

Set itm = lstdownloads.ListItems.Add(, , lst1.List(i), ico, ico)
itm.SubItems(1) = "Downloaded"

Den skal man bruge til at sætte "downloaded" i næste kolonne ;).

Jeg kan ikke lige se din ide..

men var det ikke nemmer at du bare ændre navnet og icon i lstdownloads alt efter om du downloader eller om filen er downloaded??

hmmm jo det ville det jo egentlig :)

With lstid1 ' <- ListBox1
      For p = 0 To (.ListCount - 1)
        strTemp = strTemp & "*" & .List(p) & "*"
      Next ' i
  End With

  With lstDownloaded ' <- ListBox2

      For p = 0 To (.ListCount - 1)
        If InStr(1, strTemp, "*" & .List(p) & "*") Then
            Set itm = lstdownloads.ListItems.Add(, , lst1.List(p), ico, ico)
            itm.SubItems(1) = "Already downloaded"
        Else
            Set itm = lstdownloads.ListItems.Add(, , lst1.List(p), ico, ico)
            itm.SubItems(1) = "weird"
        End If
      Next ' i
  End With

Kan bare ikke få det til at virke. På lstdownloaded har jeg:

1
2
4
6
10
56

på lstid1:

1
2
3
4
5
6
7

Den udskriver på lstdownloads, navnene til følgende ID:

1 - Already downloaded
2 - Already downloaded
3 - Already downloaded
4 - Already downloaded
5 - weird
6 - weird

Og udskriver ikke 7'eren, som er den sidste på listen.

Den korrekte udskrift burde være:

1 - Already ...
2 - Already...
3 - Weird
4 - Already...
5 - Weird
6 - Already
7 - weird

Jeg kan godt se din ide med

For p = 0 To (.ListCount - 1)

Men fjerner jeg -1 fra strengen, udskriver den den sidste fra listen - men dette burde jo ikke være sådan :).
Det er jo rigtigt at den starter fra 0.

Her er der kun 6 -> 1, 2, 4, 6, 10, 56 derfor udskriver den kun de 6 af dem ;)

Hvis du har 6 i en Listbox, vil ListCount viser at 6, men da den første er 0 og den sidste er 5 kan du ikke loope 6 gange, så vil du få fejl når den kommer til .List(6)

With lstid1 ' <- ListBox1
      For p = 0 To (.ListCount - 1)
       
        strTemp = strTemp & "*" & .List(p) & "*"

       
        lblstatus.Caption = strTemp
      Next ' i
  End With

  With lstDownloaded ' <- ListBox2

      For p = 0 To (lstid1.ListCount - 1)
        If InStr(1, strTemp, "*" & .List(p) & "*") Then
            Set itm = lstdownloads.ListItems.Add(, , lst1.List(p), ico, ico)
            itm.SubItems(1) = "Already downloaded"
        Else
            Set itm = lstdownloads.ListItems.Add(, , lst1.List(p), ico, ico)
            itm.SubItems(1) = "weird"
        End If
      Next ' i
  End With


Såådan.. men udskriften er stadig forkert :)

kan du ikke loope fra 1 til 6 -> men fra 0 til 5  :D

;) se nu hvad jeg har skrevet... korrekt?

Sådan..

Kig på den her.

  With lstid1 ' <- ListBox1
      For p = 0 To (.ListCount - 1)
       
        strTemp = strTemp & "*" & .List(p) & "*"

       
        lblstatus.Caption = strTemp
      Next ' i
  End With

  With lstid1 ' <- ListBox2

      For p = 0 To (.ListCount - 1)
        If InStr(1, strTemp, "*" & lstDownloaded.List(p) & "*") Then
            Set itm = lstdownloads.ListItems.Add(, , lst1.List(p), ico, ico)
            itm.SubItems(1) = "Already downloaded"
        Else
            Set itm = lstdownloads.ListItems.Add(, , lst1.List(p), ico, ico)
            itm.SubItems(1) = "weird"
        End If
      Next ' i
  End With

Hvorfor er det kun 5 og 6 som får udskriften: weird.. og resten downloaded.? :)

mester? ;)

Tuuuuuud... skriv snart :) sidder fast med det her.

Jeg kan ikke lige se hvorfor du vil bruge flere ListBoxe??

Du skal vel bare tilføje de links du skal dovnloade i et ListView og fortælle .SubItems(1) om den er "weird" eller "Already downloaded" ??

ja?..

Forstår ikke lige hvad du mener, sjh :)

Hvordan ville du lave det?

se nu her:

' --------------------------- Form1 ---------------------------
Option Explicit

Private Sub Command1_Click()
Dim i As Integer
Dim strTemp As String

  ' --- Test filer som er downloaded ---
  With List1 ' <- ListBox1
      For i = 0 To (.ListCount - 1)
        strTemp = strTemp & "*" & .List(i) & "*"
      Next ' i
  End With
  ' --- Test filer som er downloaded ---

  With ListView1.ListItems ' <- ListView
      For i = 1 To .Count
        If InStr(1, strTemp, "*" & .Item(i).Text & "*") Then
          .Item(i).SubItems(1) = "Downloaded *"
        End If
      Next ' i
  End With
End Sub

Private Sub Form_Load()
Dim i As Integer
Dim lvItem As ListItem

  With ListView1 ' <- ListView
      .View = lvwReport
      With .ColumnHeaders
          .Add , , "File"
          .Add , , "State"
          .Add , , "Url"
      End With
  End With
 
  For i = 1 To 7
    Set lvItem = ListView1.ListItems.Add(, , "C:\filename" & i & ".zip")
    With lvItem
        .SubItems(1) = "Downloader"
        .SubItems(2) = "http://url.dk/filename" & i & ".zip"
    End With
  Next ' i

  ' --- Test filer som er downloaded ---
  With List1 ' <- ListBox
      .AddItem "C:\filename2.zip"
      .AddItem "C:\filename6.zip"
      .AddItem "C:\filename1.zip"
  End With
  ' --- Test filer som er downloaded ---
End Sub
' --------------------------- Form1 ---------------------------

du skal bruge: Command1, List1 og ListView1

Jamen

Vi har id-listen, downloadedid-listen <-- De to er jo nødvendige.

Prøver lige :) 2 sec

så tror jeg, at jeg står af..

Du har vist også fået svar på det du spurte om..

ahhh det ser godt ud, det du har lavet :). Jeg kigger lige på det, takker igen sjh..

Point er fortjent! ;)