IPアドレスの最後のオクテットを削除します

Question

IPアドレスの最後のオクテットを削除しようとしていますが、どこから開始するのかわかりません。

現在、ホストコンピュータのIPを取得できますが、変更する必要があります。

現在のコード：

Private Function GetIPv4Address() As String 
     GetIPv4Address = String.Empty 
     Dim strHostName As String = System.Net.Dns.GetHostName() 
     Dim iphe As System.Net.IPHostEntry = System.Net.Dns.GetHostEntry(strHostName) 

     For Each ipheal As System.Net.IPAddress In iphe.AddressList 
      If ipheal.AddressFamily = System.Net.Sockets.AddressFamily.InterNetwork Then 
       GetIPv4Address = ipheal.ToString() 
      End If 

     Next 
     IP = GetIPv4Address 
    End Function 

上記の出力はxx.xx.xx.xxx

目標は、それを出力XX.XX.XX.を持つことです

Answer 1

置き換えます。これにより

IP = GetIPv4Address 

を：

IP = Left(GetIPv4Address, GetIPv4Address.LastIndexOf(".")) 

はLeftとLastIndexOf方法についての詳細情報を参照してください。