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]

Visual Studio Team Foundation Server 2017/2015 (TFS) für Administratoren - Kompakt

Nach dieser Schulung beherrschen Sie die Grundlagen des TFS. Sie erledigen administrative Aufgaben schnell und sicher.

XML und .NET Überblick

Um auf dem neuesten Wissensstand zu sein, sollten Sie unser aktuelles ASP .NET Komplett Seminar belegen.
Nach dem Seminar kennen Sie die wichtigsten Strömungen in der Software-Technologie

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!