Feedback

VB - Sortierte Liste der seriellen Ports

Veröffentlicht von am 12.06.2008
(1 Bewertungen)
Die Funktion IO.Ports.SerialPort.GetPortNames() liefert nur eine unsortierte Liste.
Das Snippet sortiert die Liste so, das auch die COM-Ports 1-9 vor 10... stehen.
GFU-Schulungen  [Anzeige]

VB.NET 2017/2015/2013 Komplett

Ziel des Seminars ist der flexible Umgang mit VB.NET, wie z.B. die damit verbundene eigenständige Entwicklung von Programmen oder das Verwenden von Datenbanken.

C# Komplett

Sie kennen sich in objektorientierter Programmierung aus. Sie schreiben C++ oder Java? Und nun stehen Sie vor der Aufgabe, in C# Anwendungen zu erstellen. Das C# Komplett-Seminar verschafft Ihnen umfassende Programmierkenntnisse in dieser Sprache. Nach der Schulung entwickeln Sie selbständig Anwendungen mit C#. Sie kennen die Datentypen und Klassenbibliotheken der objektorientierten Programmiersprache C#. Der Komplettkurs setzt bei den Grundlagen von C# ein. Sie arbeiten mit Variablen und konvertieren Typen. Multithreading, Delegates, Generics sind nach dem Seminar für Sie kein Geheimnis mehr.

Dim astrCOMPorts As String() = {}

astrCOMPorts = IO.Ports.SerialPort.GetPortNames()

If astrCOMPorts.Length > 0 Then
  ' für alle COM-Nr. < 10 ein Leerzeichen einfügen
  For i As Integer = 0 To (astrCOMPorts.Length - 1)
    If CInt(astrCOMPorts(i).Substring(3)) < 10 Then
      astrCOMPorts(i) = "COM " & astrCOMPorts(i).Substring(3)
    End If
  Next

  Array.Sort(astrCOMPorts)

  ' das Leerzeichen in "COM x" wieder entfernen
  For i As Integer = 0 To (astrCOMPorts.Length - 1)
    astrCOMPorts(i) = "COM" & astrCOMPorts(i).Substring(3).Trim
  Next
End If
Abgelegt unter GetPortNames, sortieren, COM-Ports.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!