| 以文本方式查看主题 - Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp) -- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2) ---- String 型数据怎么转换成 Integer 型数据 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=75031) |
| -- 作者：15986720145 -- 发布时间：2015/9/24 21:55:00 -- String 型数据怎么转换成 Integer 型数据 Dim ip_Cut As String() = (e.Form.Controls("TB_IPInput").Value).split(".") For i As Integer = 0 To ip_Cut.Length - 1 Messagebox.show("IP 地址段为: " & Format(ip_Cut(j),"0000")) \'自己测试代码用 If ( Format(ip_Cut(i),"0000")) > 255 Or ( Format(ip_Cut(j),"0000")) < 0 Then Messagebox.show("IP 格式错误") Return End If Next 测试，Format(ip_Cut(i),"0000") 结果出来的全是 0000，根本不能同 数字 0 和 数字255 进行比较。 求指点，如何将String型的数据转换成Integer型.
[此贴子已经被作者于2015/9/24 22:09:23编辑过]
|
| -- 作者：15986720145 -- 发布时间：2015/9/24 22:20:00 -- 自己搜索，已经解决！ 使用 数据转换函数,谢谢！
|
| -- 作者：大红袍 -- 发布时间：2015/9/24 22:21:00 -- Dim str As String = "192.168.1.108" Dim reg As new System.Text.RegularExpressions.Regex("^((?:(?:25[0-5]|2[0-4]\\d|((1\\d{2})|([1-9]?\\d)))\\.){3}(?:25[0-5]|2[0-4]\\d|((1\\d{2})|([1-9]?\\d))))$") If reg.IsMatch(str) Then msgbox("正确ip") Else msgbox("错误ip") End If |
| -- 作者：15986720145 -- 发布时间：2015/9/24 22:41:00 -- 上面的代码，看不大懂！ 还是谢谢了！ |