VBA轉換IP地址為可比較12位字串(去掉小數點)
[原創]轉載請註明出處,-THX-
完成功能樣例:zhip("10.12.3.251") ->010012003251
Function zhip(ip As String) As String
Dim pos, StartPos, NumChars As Integer
Dim ip_val, ret_str As String
ip_val = ""
ret_str = ""
StartPos = 1
pos = 0
For i = 1 To 4
pos = InStr(StartPos, ip, ".")
If pos > 0 Then
NumChars = pos - StartPos
If Len(NumChars) = 2 Then
ip_val = "0" & Mid(ip, StartPos, NumChars)
ElseIf Len(NumChars) = 1 Then
ip_val = "00" & Mid(ip, StartPos, NumChars)
Else
ip_val = Mid(ip, StartPos, NumChars)
End If
StartPos = pos + 1
ret_str = ret_str & ip_val
Else
If Len(Mid(ip, StartPos)) = 1 Then
ret_str = ret_str & "00" & Mid(ip, StartPos)
End If
If Len(Mid(ip, StartPos)) = 2 Then
ret_str = ret_str & "0" & Mid(ip, StartPos)
End If
If Len(Mid(ip, StartPos)) = 3 Then
ret_str = ret_str & Mid(ip, StartPos)
End If
End If
Next
zhip = ret_str
End Function
來自 “ ITPUB部落格 ” ,連結:http://blog.itpub.net/81211/viewspace-1010116/,如需轉載,請註明出處,否則將追究法律責任。
相關文章
- JavaScript ip地址轉換為二進位制JavaScript
- 【Go】IP地址轉換:數字與字串之間高效轉換Go字串
- java將IP地址轉換為數字以及逆向轉換Java
- MySQL把字串欄位轉換為日期型別進行比較MySql字串型別
- ARP協議 地址解析協議:IP地址轉換為MAC地址協議Mac
- 將字串陣列轉換為浮點數陣列字串陣列
- 字串:怎樣轉換字串為數字型別? (轉)字串型別
- 將32位MD5摘要串轉換為128位二進位制字串字串
- 字串:怎樣將數字型別轉換為字串 (轉)字串型別
- Thymeleaf將字串轉換為數字字串
- 去掉Excel小數點的方法Excel
- 浮點數轉換成字串函式字串函式
- 浮點數轉換為String字串(可設定精度)方法字串
- 看這位“翻譯官-DNS”如何轉換域名和IP地址DNS
- javascript如何將字串轉換為數字JavaScript字串
- 字串大小寫轉換和字串的比較字串
- 爬蟲為什麼要用IP代理更換IP地址爬蟲
- 切換IP地址
- Linux的ip地址變為127.0.0.1Linux127.0.0.1
- PTA 7-18 IP地址轉換(JAVA)Java
- mysql 字串和數字比,字串會隱式轉換為數字0MySql字串
- JavaScript將小數轉換為百分數JavaScript
- CoffeeScript攻略3.2:把字串轉換為小寫形式字串
- 一個把IP地址轉化為長整數的指令碼(轉)指令碼
- PHP 字串強制轉換為數值問題PHP字串
- 將一般的數值轉換為金額格式(分隔千分位和自動增加小數點)
- java json字串轉換為物件,轉換為listJavaJSON字串物件
- JavaScript字串轉換數字JavaScript字串
- 字串轉換整數(atoi)字串
- IP地址切換工具
- c語言字串與整形,浮點數...相互轉換C語言字串
- JavaScript 小寫數字轉換為大寫JavaScript
- 小數轉換分數
- sql 數字轉換為16進位制數函式SQL函式
- leedcode-數字轉換為十六進位制數
- javascript將字串轉換為十六進位制程式碼例項JavaScript字串
- JavaScript 二進位制數字轉換為十進位制JavaScript
- 劍指offer(Java版)--將字串轉換為整數Java字串