Zum Inhalt springen
View in the app

A better way to browse. Learn more.

Fachinformatiker.de

A full-screen app on your home screen with push notifications, badges and more.

To install this app on iOS and iPadOS
  1. Tap the Share icon in Safari
  2. Scroll the menu and tap Add to Home Screen.
  3. Tap Add in the top-right corner.
To install this app on Android
  1. Tap the 3-dot menu (⋮) in the top-right corner of the browser.
  2. Tap Add to Home screen or Install app.
  3. Confirm by tapping Install.

Empfohlene Antworten

Veröffentlicht

Hey Leute,

Ich habe ein Problem.

Und zwar habe ich zwei Listboxen, diese möchte ich gerne miteinander vergleichen.

Z.B.

Listbox1:

test1.txt

test2.txt

test3.txt

test4.txt

Listbox2:

test2.txt

test3.txt

test5.txt

Nun möchte ich wissen welche Dateien in Listbox 1 und in Listbox 2 Vorhanden sind.

Also welche es in Beiden gibt.

D.h. am ende möchte ich dieses Ergebnis haben:

test2.txt

test3.txt

Habe aber leider keine Ahnung und noch nicht mal einen Ansatz wie ich das lösen könnte.

Ein einfacher Vergleich der beiden Listboxen hilft mir ja leider nicht weiter, da die Einträge an verschiedenen Stellen stehen.

Und ein sortieren der Einträge auch nicht, weil z.B in Listbox 1 mehr einträge stehen können als in Listbox 2...

Hat einer von euch eine Idee oder einen Code Ansatz?

Gruß!

Bearbeitet von slim4ddl

Hab das jetzt so gelöst:

     	For Each zeile As String In ListBox2.Items


            	ListBox4.Items.Contains(zeile)


        	Next
Beim Debuggen sehe ich nun auch welche Dateien in beiden Listboxen Vorhanden sind nur wie kann ich mir die Dateien in einer variablen ausgeben lassen? Weil ich das hier irgendwie einbauen muss... Zur Info, ich möchte die Dateien umbennen (Auf dem Server), die in beiden Listboxen vorhanden sind, damit beim hochladen die Datei nicht ersetzt wird. Und die die nur in Listbox 2 vorhanden ist normal hochladen.
  	For Each zeileaufserver As String In ListBox4.Items


            	For Each Zeile As String In ListBox2.Items





                	If Zeile = zeileaufserver Then


                    	Dim Request As Net.FtpWebRequest = Net.WebRequest.Create(ftpserver & zeileaufserver)

                    	Dim Response As Net.FtpWebResponse


                    	Request.Credentials = New Net.NetworkCredential(Benutzername, passwort)

                    	Request.Method = Net.WebRequestMethods.Ftp.Rename

                    	Request.Timeout = (60000 * 1) ' timeout


                    	Request.RenameTo = zeileaufserver + "1"  'Neuer Name


                    	Response = Request.GetResponse()

                    	Response.Close()



                    	My.Computer.Network.UploadFile(uppathall & "\" & Zeile,

                         	ftpserver & Zeile, Benutzername, passwort)

                	Else

                    	My.Computer.Network.UploadFile(uppathall & "\" & Zeile,

                         	ftpserver & Zeile, Benutzername, passwort)



                	End If


                	Timer1.Start()

                	lblausgabe.Text = "Alle Dateien erfolgreich hochgeladen!"

                	lblhaken.Visible = True


            	Next


        	Next

    	End If

Hab das jetzt so gelöst:


        	For Each zeile As String In ListBox2.Items


            	ListBox4.Items.Contains(zeile)


        	Next

Beim Debuggen sehe ich nun auch welche Dateien in beiden Listboxen Vorhanden sind nur wie kann ich mir die Dateien in einer variablen ausgeben lassen?

Das scheint so doch nicht zu gehen... Jemand eine andere Idee?

Und wie soll ich das machen?

Erstelle ein Konto oder melde dich an, um einen Kommentar zu schreiben.

Configure browser push notifications

Chrome (Android)
  1. Tap the lock icon next to the address bar.
  2. Tap Permissions → Notifications.
  3. Adjust your preference.
Chrome (Desktop)
  1. Click the padlock icon in the address bar.
  2. Select Site settings.
  3. Find Notifications and adjust your preference.