水如烟

                 顺其自然,水到渠成 LzmTW

文或代码皆是面向初学者.我是爱好者,也是初学者.那些"文章",只按自己理解写,我是不知术语名词的.所以只供参考,也仅供参考.

导航

全国县及县以上行政区划代码信息类

Posted on 2005-10-22 22:53  水如烟(LzmTW)  阅读(27472)  评论(92编辑  收藏  举报

Author:水如烟
身份证的前6位就是表示开出身份证所在地的区划代码。

图:测试示图

类:

''' -----------------------------------------------------------------------------
'
'' Project     : LzmTW.Common
'
'' Class     : Common.RegionalCodeClass
'
'' 
'
'' -----------------------------------------------------------------------------
'
'' <summary>
'
'' 全国县及县以上行政区划代码信息类 
'
'' </summary>
'
'' <remarks>
'
'' 代码由六位数字组成,每两位数字一组共三组,即XX XX XX,意义如下:
'
''首组,代表省;
'
''中组,其中01-20、51-70表示省直辖市,21-50表示地区(州、盟);
'
''尾组,01-18表示市辖区或地辖区,21-80表示县(旗),81-99表示省直辖县级市。
'
''国家统计局设管司 2005-08-01 15:56:18;
'
''最新数据截止2005年6月30日;
'
''数据更新网址:  http://www.stats.gov.cn/tjbz/xzqhdm/index.htm;
'
''数据表明,实际应是:
'
''首组,代表省;
'
''中组,其中01-20、51-99表示省直辖市,21-50表示地区(州、盟);
'
''尾组,01-20表示市辖区或地辖区,21-80表示县(旗),81-99表示省直辖县级市。
'
'' </remarks>
'
'' <history>
'
''     [lzmtw]    2005-10-24    Created
'
'' </history>
'
'' -----------------------------------------------------------------------------
Public Class RegionalCodeClass
    
Private _Collection As RegionalCollection
    
Private _Enumerator As System.Collections.IDictionaryEnumerator
    
'默认数据文件
    Private _TxtFile As String = System.AppDomain.CurrentDomain.BaseDirectory & "\全国行政区划代码.txt"
    
Private _XmlFile As String = System.AppDomain.CurrentDomain.BaseDirectory & "\全国行政区划代码.xml"

    
Sub New()
        _Collection 
= New RegionalCollection

    
End Sub


对外属性

装入数据方式

导出数据方式

排序方式

查找方式

基本定义

End Class



测试代码:

 
数据文件: 全国行政区划代码.txt