Question

我正在使用cmd将用户网络规范打印到文本文件中，使用ipconfig＆gt; computer.txt。这方面的一个例子是

Windows IP Configuration


Wireless LAN adapter Wireless Network Connection:

   Connection-specific DNS Suffix  . : 
   Link-local IPv6 Address . . . . . : fe80::cd7a:50b3:1284:865%12
   IPv4 Address. . . . . . . . . . . : 10.0.0.26
   Subnet Mask . . . . . . . . . . . : 255.0.0.0
   Default Gateway . . . . . . . . . : 10.0.0.1

Ethernet adapter Local Area Connection:

   Connection-specific DNS Suffix  . : 
   Link-local IPv6 Address . . . . . : fe80::5c3a:ae77:81:8cdf%11
   IPv4 Address. . . . . . . . . . . : 10.0.0.25
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   IPv4 Address. . . . . . . . . . . : 192.168.1.12
   Subnet Mask . . . . . . . . . . . : 255.255.255.0
   Default Gateway . . . . . . . . . : 10.0.0.1

我如何使用它来找到一个适配器默认网关（x行向下和之后：

不确定这是否是正确的做法。

如果没有，使用vb.net找到子网掩码/默认网关的最佳方法是什么

Answer 1

如果格式始终相同String.IndexOf且String.Substring是有效的方式：

Dim gateWays = From line In File.ReadLines("C:\Temp\data.txt")
               Skip 10
               Let gatewayIndex = line.IndexOf("Default Gateway . . . . . . . . . :")
               Where gatewayIndex > -1
               Select line.Substring(gatewayIndex + "Default Gateway . . . . . . . . . :".Length)
Dim firstGateWay = gateWays.FirstOrDefault

您可以使用Enumerable.Skip跳过x行，在此示例中为10。

Answer 2

这应该做你想要的：

Private Function GetGateway(ByVal fileName As String) As String
    Dim sr As New System.IO.StreamReader(fileName)
    Dim foundEthernet As Boolean = False
    Dim gateway As String = ""

    Do Until sr.EndOfStream
        Dim line As String = sr.ReadLine()

        If line.Contains("Ethernet adapter LAN:") OrElse line.Contains("Ethernet adapter Local Area Connection:") Then
            foundEthernet = True
        End If

        If foundEthernet Then
            If line.Contains("Default Gateway . . . . . . . . . :") Then
                gateway = line.Substring(line.IndexOf(":") + 1).Trim
                Exit Do
            End If
        End If
    Loop
    sr.Close()

    Return gateway
End Function

Answer 3

另外，正如mellamokb所提到的，如果你在PC上运行这个应用程序你正在查询，你可以使用

System.Net.NetworkInformation.NetworkInterface.GetAllNetworkInterfaces

获取此信息。

使用vb.net从文本文件中提取信息

3 个答案: