Løb! Tvillingerne kommer!?

Alså.. det er kun én af tvillingerne er det skal slettes.. og ikke begge.

Altså hvordan mener du..?

:) ?

Ved at trykke på en commend-knap, skal dem der er ens slettes, og listen kommer til at se sådan ud:

Ost
Smør
Kaffe

Kender du svaret..? :)

Hehe ... nej :]

Elo .. c'mon :) .. i plejer jo at svare hurtigt?

Jeg kan ikke helt fatte den.. Endnu.. :(

Zaditor >> Tror at jon mener at hvis der er noget text i en Combobox som er ens, skal det slettes.

Ser lige igennem for funktioner

Casper // www.ildstorm.dk

ok... det er satme svært :)

En liste:

Ost
Mælk
Smør
Mælk
Ost

AHA!.. Mælk og ost går igen!.. Men ved at trykke på vores lille knap.. *klik*.. forvandler den sig til

Ost
Mælk
Smør

Hvad skal der står i knappen? :)

Problem: Dobbeltgængere
Løsning: Fjern dem

Nu er det ikke en combo, men alm. list :) .. Men - det var vel ingen betydning :)

Replace funktionen kan måske gøre det:
http://www.msdn.microsoft.com/library/en-us/vbenlr98/html/vafctReplace.asp?frame=true

ser om jeg ikke kan lave et eksempel...


Casper // www.ildstorm.dk

Du skal bruge :
1 list = List1
1 combo = Command1

Private Sub Command1_Click()
Dim arList() As String
For i = 0 To List1.ListCount - 1
ReDim Preserve arList(i + 1)
  arList(i) = List1.List(i)
Next

For x = 0 To UBound(arList)
  templist = arList(x)
  'MsgBox templist
  For y = x + 1 To UBound(arList) - 1
  If templist = arList(y) Then
    arList(y) = ""
  End If
  Next
Next

  List1.Clear
  For u = 0 To UBound(arList)
  If arList(u) <> "" Then
    List1.AddItem arList(u)
  End If
  Next


End Sub


Private Sub Form_Load()
List1.Clear
List1.AddItem "ost"
List1.AddItem "kaffe"
List1.AddItem "mel"
List1.AddItem "sukker"
List1.AddItem "ost"
List1.AddItem "salt"
List1.AddItem "kaffe"
End Sub

hyde

Kan gøres smukkere men håber du kan bruge det !!

hyde

Nej ikke "1 combo = Command1"
Men      "1 command = Command1"

Prøv tjek denne her, måske kan det hjælpe:

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=5298&lngWId=1

det er koden fra min øvrige link.

On Error GoTo lol
For i = 0 To List1.ListCount - 1
DoEvents
List1.ListIndex = i
Dim x As String
Dim xa As String
Dim xaa As String
Dim xx As String
x = List1.List(i)
xx = List1.List(i + 1)
'trims all spaces in a the current item
xa = trimtext(x)
xaa = trimtext(xx)
'if dupe is found removes it
If LCase(xa) = LCase(xaa) Then
DoEvents
List1.RemoveItem i
i = i - 1
End If
Next i
MsgBox "Done!"
Exit Sub
lol:
MsgBox "Done!"
Exit Sub

Udtag det foerste element i listen og kald det X

saa laenge element X eksistere
  For alle elementer i listen efter X
    Hvis der er ligmed X
      Slet det

  Tag det naeste element i listen og kald det X

Martin

thewizard >where is the data comming from origianlly? A database or a file? Why is it in the list twice in the first place, shouldnt it be here you should make the alterations?

Har en listbox ikke en funktion der hedder FindString?
Så skulle man vel kunne lave noget kode der (som Terry siger)forhindre at der bliver oprettet "tvillingerne".
Jeg skal ikke kunne sige om funktionen også findes i VB5/6, men den findes i VB.NET.

If you are using a database to store your data then you can use the SELECT DISTINCT method which only selects one of each.

They are comming from a database

But ... it's comming from 1 database, but selected by 6 sql-strings

6 sql-strings to fill ONE list! is that correct?

I have NO idea what your application is used for so it shard to say what the best solution is. I would NOT use code to try and remove duplicates form th elist, I would remove it from the SOURCE of the problem which COULD BE your SQL statements.

SELECT DISTINCT can do this.

thewizard>> har du prøvet den link jeg gav dig, for det er præcis det du leder efter.

http://www.planetsourcecode.com/vb/scripts/ShowCode.asp?txtCodeId=5298&lngWId=1

Yes terry.. it's correct

It's a search-function

Jeg ser om jeg kan få det til at virke senere i denne uge.

Skal først afl. på mandag.

thewizard>hows it going?

Først til d. 16, opdagede jeg :)

Jeg skal nok finde ud af noget :)

thewizard>Why do we need to wait until you hand in your answer?

the wizard>times up>24 hours and its off to admin!

this question has been her almost a month so now it time get get it out of the way!

terry.. don't u ever try to threatening me!

Hy var den først til at komme med et svar. Og han får point.

Sq da fandens til måde at behandle mennesker på.

the wizard>
Lets just lets get something streight! This was NO threat it was a promise!
We are people using our time to help others and I was trying to make it clear that when people use time to help others then they expect the reward (points which cant be used for much at all).
I cant see ANY reason why we should wait until YOU have been up to an exam. The sulution works or it doesnt.
The fact that you didnt accept my answer doesnt worry me, after all HY did answer first.

1. No .. but it was the ansaw i wanted.

2. Kommentar fra terry
17/05-2002 20:16:40    the wizard>times up>24 hours and its off to admin!  <-- That's a threat..

3. If im in a hurry, i'll take my time, to check if an ansaw is correct.. without u trying to correct me.

the wizard>After people have given answers, WHY is it necessary for them to have to wait 3 weeks until you have been to an exam or whatever? Ias I said the answer works or it doesnt and you could have checked that out LONG before 16th!
Anyway, what have we learnt from this? Well when thewizard places a question then dont bother answering. No, that wasnt a threat it was also a promise :o)

Omg, hvad er alderne på dette board?

Studer lige 2 min psykologi (kom venner vi rotter os sammen).

Omg.. yes yes.. Terry.. stop med at skrive, du bliver sq ikke klogere at høre på.