Data commit

Task/Parse-an-IP-Address/VBScript/parse-an-ip-address.vb

@@ -0,0 +1,87 @@
+Function parse_ip(addr)
+    'ipv4 pattern
+    Set ipv4_pattern = New RegExp
+    ipv4_pattern.Global = True
+    ipv4_pattern.Pattern = "(\d{1,3}\.){3}\d{1,3}"
+    'ipv6 pattern
+    Set ipv6_pattern = New RegExp
+    ipv6_pattern.Global = True
+    ipv6_pattern.Pattern = "([0-9a-fA-F]{0,4}:){2}[0-9a-fA-F]{0,4}"
+    'test if address is ipv4
+    If ipv4_pattern.Test(addr) Then
+        port = Split(addr,":")
+        octet = Split(port(0),".")
+        ipv4_hex = ""
+        For i = 0 To UBound(octet)
+            If octet(i) <= 255 And octet(i) >= 0 Then
+                ipv4_hex = ipv4_hex & Right("0" & Hex(octet(i)),2)
+            Else
+                ipv4_hex = "Erroneous Address"
+                Exit For
+            End If
+        Next
+        parse_ip = "Test Case: " & addr & vbCrLf &_
+                   "Address: " & ipv4_hex & vbCrLf
+        If UBound(port) = 1 Then
+            If port(1) <= 65535 And port(1) >= 0 Then
+                parse_ip = parse_ip & "Port: " & port(1) & vbCrLf
+            Else
+                parse_ip = parse_ip & "Port: Invalid" & vbCrLf
+            End If
+        End If
+    End If
+    'test if address is ipv6
+    If ipv6_pattern.Test(addr) Then
+        parse_ip = "Test Case: " & addr & vbCrLf
+        port_v6 = "Port: "
+        ipv6_hex = ""
+        'check and extract port information if any
+        If InStr(1,addr,"[") Then
+            'extract the port
+            port_v6 = port_v6 & Mid(addr,InStrRev(addr,"]")+2,Len(addr)-Len(Mid(addr,1,InStrRev(addr,"]")+1)))
+            'extract the address
+            addr = Mid(addr,InStrRev(addr,"[")+1,InStrRev(addr,"]")-(InStrRev(addr,"[")+1))
+        End If
+        word = Split(addr,":")
+        word_count = 0
+        For i = 0 To UBound(word)
+            If word(i) = "" Then
+                If i < UBound(word) Then
+                    If Int((7-(i+1))/2) = 1 Then
+                        k = 1
+                    ElseIf UBound(word) < 6 Then
+                        k = Int((7-(i+1))/2)
+                    ElseIf UBound(word) >= 6 Then
+                        k = Int((7-(i+1))/2)-1
+                    End If
+                    For j = 0 To k
+                        ipv6_hex = ipv6_hex & "0000"
+                        word_count = word_count + 1
+                    Next
+                Else
+                    For j = 0 To (7-word_count)
+                        ipv6_hex = ipv6_hex & "0000"
+                    Next
+                End If
+            Else
+                ipv6_hex = ipv6_hex & Right("0000" & word(i),4)
+                word_count = word_count + 1
+            End If
+        Next
+        parse_ip = parse_ip & "Address: " & ipv6_hex &_
+                vbCrLf & port_v6 & vbCrLf
+    End If
+    'test if the address in invalid
+    If ipv4_pattern.Test(addr) = False And ipv6_pattern.Test(addr) = False Then
+        parse_ip = "Test Case: " & addr & vbCrLf &_
+                   "Address: Invalid Address" & vbCrLf
+    End If
+End Function
+
+'Testing the function
+ip_arr = Array("127.0.0.1","127.0.0.1:80","::1",_
+    "[::1]:80","2605:2700:0:3::4713:93e3","[2605:2700:0:3::4713:93e3]:80","RosettaCode")
+
+For n = 0 To UBound(ip_arr)
+    WScript.StdOut.Write parse_ip(ip_arr(n)) & vbCrLf
+Next