我从返回函数中得到这样的值现在我想要像这样的字符串

Question

Private Function GetMAC() As String
Dim macAddresses As String = ""
For Each nic As NetworkInterface In NetworkInterface.GetAllNetworkInterfaces()
    If nic.OperationalStatus = OperationalStatus.Up Then
        macAddresses += nic.GetPhysicalAddress().ToString()
        Exit For
    End If
Next
    Return macAddresses
End Function


Dim str As String = GetMAC()
MsgBox(str)

str值为F406697228D3，现在我想将其更改为F4-06-69-72-28-D3 ..？

Answer 1

您可以使用以下简单的For循环执行此操作：

 Public Function GetFormattedString(input As String) As String
        Dim result As String = String.Empty
        For index = 0 To input.Length Step +2
            result += input.Substring(index, Math.Min(2, input.Length - index)) + "-"
        Next
        Return result.Trim("-")
 End Function

工作小提琴供您参考。