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 Einführung

Die Schulung zeigt Ihnen, wie Sie einfache, benutzerorientierte Programme, die auf Datenbanken zugreifen, in VB.NET eigenständig entwickeln. 

VB.NET 2017/2015/2013 Aufbau

Nach dieser Schulung können Sie mittels objektorientierter Modelle in VB.NET 2017/2015/2013 wiederverwendbare Elemente eigenständig erstellen.

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!