无聊到转纯真IP数据库为MDB

最新推荐文章于 2024-10-17 18:58:27 发布

hardie

最新推荐文章于 2024-10-17 18:58:27 发布

阅读量989

点赞数

分类专栏： IT技术类文章标签：数据库 excel function .net null

本文链接：https://blog.csdn.net/hardie/article/details/4100777

版权

IT技术类专栏收录该内容

8 篇文章 0 订阅

订阅专栏

那天想在网上做个地址来源统计，找了半天发现没有现成的，就用纯真数据库来转，首先解成TXT的文本有20M

然后以空格分割导入EXCEL 首先是IP 转数字，然后是地区部分由于有空格被分成了N多个字段。。。

自带函数没有办法，所以就开始写宏

代码如下：Sub toip() Dim i, j, ip1, ip2, x1, x2, x3, city, cityexr x1 = 256 x2 = 65536 x3 = CDbl(x1 * x2) For i = 1 To Me.Rows.Count city = Cells(i, 4).Value For j = 4 To 25 cityexr = Me.Cells(i, j + 1).Value If cityexr = "" Or cityexr = Null Then Exit For city = city & " " & cityexr Next city = Replace(Replace(city, " ", " "), "CZ88.NET", "尚不明确") Me.Cells(i, 4).Value = city ip1 = Me.Cells(i, 1).Value If ip1 = "" Then Exit For ip2 = Me.Cells(i, 2).Value Me.Cells(i, 1).Value = EnIP(ip1, x1, x2, x3) Me.Cells(i, 2).Value = EnIP(ip2, x1, x2, x3) Next Columns("E:Y").Select Range("F2").Activate Selection.Delete Shift:=xlToLeft End Sub Function EnIP(ip, x1, x2, x3) Dim ipip ipip = Split(ip, ".") If UBound(ipip) > 0 Then EnIP = CInt(ipip(0)) * x3 + CInt(ipip(1)) * x2 + CInt(ipip(2)) * x1 + CInt(ipip(3))-1 Else EnIP = ip End If End Function

当然这个已经是改了几次了，这个是可以正常运行的了，但是36万多条记录要1分40秒太慢了实在不知道怎么才可以提高效率~~！

EXCEL到MDB就简单，最后 MDB文件差不多21M 太大了~~！我数字只能用 DOUBLE 然后 COUNTRY 64 CITY 128 这已经是极限了。。