省~市~县~大量信息如何存储到数据库中？

[小粘人]

想做一个省~市~县~的3及下拉列表~
但是由于数据太多~不可能手动输入~
希望大大们给个方法能直接倒入数据库的~
我有省~市~县~名称的文本文件。

[小粘人]

蚂蚁~~麻烦~怎么转换成XLS文件~谢谢~谢谢各位~

[virgolong]

存储不带编码的么？
比如省是001，那么市就是001001、0001002，县就是001001001，001001002

[net205]

文件有规律那好办(比方以,隔开)，mssql支持

或自己写个程序导也行

[wcbm]

做三级下拉列表为什么一定要存到数据库里面去才行呢？
你如果不知道怎么插入到数据库里面的话，怎么不直接用JS对你这个文本文件进行操作？可以把文本文件里面的数据当成一个变量嘛，再说这个数据量也没什么好大的吧，我从国家统计局那里弄过一次数据，也就两下就写成了一个三级下拉列表啊

[leohuang]

你的文本是什么格式的,贴一部分上来

[lanyur]

如果有规律，直接把Txt导入Access撒

[canning92]

Dim oFSO, oUploadFolder, oUploadFiles, oUploadFile, sFileName
Set oFSO = Server.CreateObject("Scripting.FileSystemObject")
Set oUploadFolder = oFSO.GetFolder(Server.MapPath(folderpath))
'folderpath是文件文件存放的地址
Set oUploadFiles = oUploadFolder.Files
nFileNum = oUploadFiles.Count
Dim i
i = 0

For Each oUploadFile In oUploadFiles
filename11=replace(oUploadFile.Name,".txt","")
if right(filename11,1)="省" then
'加入到你的数据库中省的对应字段
else
'加入到你的数据库中市的对应字段
end if
Next
Set oUploadFolder = Nothing
Set oUploadFiles = Nothing

大概思路：获取你存放的文本文件的相应的目录下的所有文件名，因为文件名是.txt结果的，所以将.txt替换成空。
然后再判断最后一个字符是否为“省”，否则就是“市”

前提：你的所有省市的文本文件都放在这一个目录下面，而且目录下没有其它的杂文件。否则还要作相关的处理。

[yusiti]

文本文件转换成xls文件
access可以导入xls文件

[btbtd]

资料如果有规律的话, 用正则替换格式, 然后导入数据库表, 没有你就认命吧
咣点代表性的上来, 用正则, 感觉我还行.

[960379]

自己做一个小程序，读取文件中的内容，存入到数据库
简单ing……

[小粘人]

net205(向MVP学习！)
你能不能给个例子啊~？
分不够另开帖子~呵呵

[hongzi001179]

做个标记

[yusiti]

aaa.txt
内容
a b c d e

新建access右键->导入->“文本文件”->选择aaa.txt

->带分隔符->选择分隔符类型，选定“空格”
->下一步
.
.
.
.

就Ok了

>_<>_<>_<

[raybvb09]

网上可以找到现成的这种省市的数据库

[mysky0103]

asp|.net 技术交流(有问题大家共同探讨！)
欢迎加入本群(23447837)

[超级大笨狼]

http://superdullwolf.cnzone.net

[小粘人]

3Q各位~
结帖