Se la lista contiene un item, ma...

[Pamela72]

Ciao a tutti,
uso Visual Studio, e ho realizzato un programma che riceve stringhe da un server telnet e le elabora.
Ho creato un setting come collection di stringe, e devo scrivere in questo setting alcune stringhe ricevute dal server ed appendere alla stringa la data (now).
Tutto a posto, so farlo, ma il problema è questo:
la stringa è composta da:
RM0001 & now ' ricevuta alle ore 12:00
MI0001 & now ' ricevuta alle ore 12:02
NA0001 & now ' ricevuta alle ore 12:04
RM3716 & now ' ricevuta alle ore 12:05

qualora arrivasse ad esempio una stringa già inserita in passato, mi deve cancellare la vecchia e inserire la nuova

RM0001 & now ' ricevuta alle ore 12:25

come posso fare questo controllo?
Ho provato a fare un MID di ogni item della collezione di stringhe ma dava sempre errore e ho desistito.
C'è qualche soluzione?
Grazie

[oregon]

Ma cosa è importante? La prima parte, l'ora o tutte e due le info?

[Pamela72]

La cosa fondamentale è il prefisso, nella lista ci deve essere sempre l'ultima ricezione.

In pratica a me dal server arriva RM0001.
Devo vedere se è gia in lista questo RM0001. Se non c'è va inserito con appesa l'ora, se già è in lista (solo RM0001 l'orario non è importate), deve cancellare l'item e inserire il nuovo

[oregon]

Usa un oggetto Dictionary usando la prima parte come key e l'orario come value



https://msdn.microsoft.com/it-it/lib...v=vs.110).aspx

[Pamela72]

Si, poi come faccio a cancellare l'item?

[oregon]

Non lo cancelli, sostituisci il valore

[Pamela72]

Il codice è questo:

For Each item In My.Settings.storico
            If item.Contains(PREFISSO) Then
                My.Settings.storico.Remove(item)
            End If
        Next
        My.Settings.storico.Add(PREFISSO & " | " & Now)

Ma mi compare questo errore: L'insieme è stato modificato. L'operazione di enumerazione potrebbe non essere eseguita.

Si può risolvere?

[Pamela72]

Non lo cancelli, sostituisci il valore

Ma si applica a My.Setting (String collection)???

Devo fare sempre for each item???????

[oregon]

Non hai letto il link nè hai visto l'esempio... Devi utilizzare un oggetto Dictionary

Dim db As Dictionary(Of String, String)

[eziogsv]

Se mentre esegui un ciclo For Each elimini un elemento è normale che ottieni un errore, perché il numero di elementi cambia in corso di esecuzione.

Ma tu non hai bisogno di eliminarlo, ma SOLO di sostituirlo:

Dim Bool as Boolean
For x as Integer = 0 to My.Settings.storico.count - 1

   if My.Settings.Storico(x).Contains(PREFISSO) Then
      Bool = True
      My.Settings.Storico(x)= PREFISSO & " | " & Now
   End If

Next

If Not Bool Then ........