Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

Aktuelle Themen

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit
GELÖST

VB.Net - Frage zu SortedList

Frage Entwicklung Visual Studio

Mitglied: emeriks

emeriks (Level 4) - Jetzt verbinden

26.02.2014 um 15:19 Uhr, 1434 Aufrufe, 2 Kommentare, 1 Danke

Hi,
habe mal ne Frage zum Verständnis von "for each" im Zusammenhang mit "SortedList" in VB.Net.

Wenn ich die Elemente einer Liste durchlaufe und dabei ein Element lösche, dann "springt der Zeiger". Das weiß ich und kann auch damit umgehen, jedoch weiß ich nicht, ob das nicht noch einfacher geht.

Beispiel: Habe eine Liste mit unbekannten Schlüsseln aber bekannten Werten.
01.
Dim x As New SortedList 
02.
x.Add("unbekannter Key A", "Buchstabe A") 
03.
x.Add("unbekannter Key B", "Buchstabe B") 
04.
x.Add("unbekannter Key C", "Buchstabe C") 
05.
x.Add("unbekannter Key D", "Buchstabe D")
Wenn ich die Elemente durchlaufe, nach einem Element "Buchstabe C" oder "Buchstabe D" suche und diese dann lösche, dann fliegt mir der Code im Beispiel 1 nach dem Löschen von "Buchstabe C" beim "Next" raus.
01.
For Each y As DictionaryEntry In x 
02.
  If y.Value = "Buchstabe C" Or y.Value = "Buchstabe D" Then 
03.
    x.Remove(y) 
04.
  Else 
05.
    MsgBox(y) 
06.
  End If 
07.
Next
Alternativ über den Key. Hier kommt der Fehler auch beim "Next" wenn "Buchstabe C" gelöscht wurde.
01.
For Each k As String In x.Keys 
02.
  Dim y As String = x(k) 
03.
  If y = "Buchstabe C" Or y = "Buchstabe D" Then 
04.
    x.Remove(k) 
05.
  Else 
06.
    MsgBox(y) 
07.
  End If 
08.
Next
Lösen tue ich das so, indem ich in einem ersten Durchlauf zunächst alle Keys der zu löschenden Elemente in einer Liste sammle und dann in einem zweiten Durchlauf die Elemente laut der gesammelten Liste lösche.
01.
Dim ToRemove As New List(Of String) 
02.
For Each k As String In x.Keys 
03.
  Dim y As String = x(k) 
04.
  If y = "Buchstabe C" Or y = "Buchstabe D" Then 
05.
    ToRemove.Add(k) 
06.
  Else 
07.
    MsgBox(y) 
08.
  End If 
09.
Next 
10.
For Each k As String In ToRemove 
11.
  x.Remove(k) 
12.
Next

Geht das nicht auch einfacher?

E.
Mitglied: colinardo
LÖSUNG 26.02.2014, aktualisiert um 18:32 Uhr
Hallo Emeriks,
Geht das nicht auch einfacher?
z.B. so
01.
x.RemoveAt(x.IndexOfValue("Buchstabe C")) 
02.
x.RemoveAt(x.IndexOfValue("Buchstabe D"))
oder so wenn doch mehrere Sachen zu entfernen sind mit Array für die Strings...
01.
Dim arr As String() = {"Buchstabe C", "Buchstabe D"} 
02.
For Each el As String In arr 
03.
    x.RemoveAt(x.IndexOfValue(el)) 
04.
Next
Grüße Uwe
Bitte warten ..
Mitglied: emeriks
26.02.2014 um 16:15 Uhr
Ja, nee is klar ....
Danke!
Bitte warten ..
Neuester Wissensbeitrag
Microsoft Office

MS Office Excel - Formel wird angezeigt, aber nicht berechneter Wert!

Tipp von holli.zimmi zum Thema Microsoft Office ...

Ähnliche Inhalte
Basic
gelöst Mit vb.net PDF in Word-Dok einfügen (10)

Frage von ahstax zum Thema Basic ...

Visual Studio
gelöst VB.Net - Hilfe bei Regex (8)

Frage von emeriks zum Thema Visual Studio ...

Heiß diskutierte Inhalte
Exchange Server
Bestehende eMails autoamatisch weiterleiten (21)

Frage von metal-shot zum Thema Exchange Server ...

Hyper-V
gelöst Reiner Hyper- V Server oder lieber Rolle (21)

Frage von Winuser zum Thema Hyper-V ...

SAN, NAS, DAS
gelöst Synology Version 6.1 Probleme (18)

Frage von Hendrik2586 zum Thema SAN, NAS, DAS ...

Router & Routing
gelöst IP Kamera für drei unabhängige Netzwerke (15)

Frage von ProfessorZ zum Thema Router & Routing ...