如何使用excel的VBA正则表达式截取字符串的iP
比如我有字符串adsad153.9.8.222、8d87do-192.168.0.1、192.168.2.3-SJDJD我需要有个函数返回其中的IP地址谢谢！...
比如我有字符串adsad153.9.8.222 、8d87do-192.168.0.1 、192.168.2.3-SJDJD
我需要有个函数返回其中的IP地址 谢谢！ 展开
我需要有个函数返回其中的IP地址 谢谢！ 展开
2个回答
展开全部
m = Cells(1, 1) '为字符所在单元格
a = InStr(m, ".")
For i = a - 1 To 1 Step -1
If IsNumeric(Mid(m, i, 1)) = False Then
c = i
Exit For
End If
Next
m = Right(m, Len(m) - c)
b = InStrRev(m, ".")
For i = b + 1 To Len(m)
If IsNumeric(Mid(m, i, 1)) = False Then
c = i
Exit For
End If
Next
If c = Len(m) Then
Else
m = Left(m, c - 1)
End If
MsgBox m
a = InStr(m, ".")
For i = a - 1 To 1 Step -1
If IsNumeric(Mid(m, i, 1)) = False Then
c = i
Exit For
End If
Next
m = Right(m, Len(m) - c)
b = InStrRev(m, ".")
For i = b + 1 To Len(m)
If IsNumeric(Mid(m, i, 1)) = False Then
c = i
Exit For
End If
Next
If c = Len(m) Then
Else
m = Left(m, c - 1)
End If
MsgBox m
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
