[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

批处理实现地铁线路查询

a.txt
内容一行为一条地铁线路站名,每站以空格隔开,第一个为线路名,第二个为起点站
  1. 1号线 苹果园 古城 八角游乐园 八宝山 玉泉路 五棵松 万寿路 公主坟 军事博物馆 木樨地 南礼士路 复兴门 西单 天安门西 天安门东 王府井 东单 建国门 永安里 国贸 大望路 四惠
  2. 八通线 四惠 四惠东 高碑店 传媒大学 双桥
  3. 2号线 安定门 雍和宫 东直门 东四十条 朝阳门 建国门 北京站 崇文门 前门 和平门 宣武门 复兴门 阜成门 车公庄 西直门 积水潭 鼓楼大街
  4. 大兴线 天宫门 生物医药基地 义和庄 黄村火车站 黄村西大街 清源路 枣园 高米店南 高米店北 西红门 新宫 公益西桥
  5. 4号线 公益西桥 角门西 马家堡 北京南站 陶然亭 菜市口 宣武门 西单 灵境胡同 西四 平安里 新街口 西直门 动物园 国家图书馆 魏公村 人民大学 海淀黄庄 中关村 北京大学东门 圆明园 西苑 北宫门 安河桥北
  6. 房山线 苏庄 良乡南关 良乡大学城西 良乡大学城 良乡大学城北 广阳城 篱笆房 长阳 稻田 大葆台
  7. 亦庄线 次渠 次渠南 经海路 同济南路 荣昌东街 荣京东街 万源街 亦庄文化园 亦庄桥 旧宫 小红门 肖村 宋家庄
  8. 5号线 宋家庄 刘家窖 蒲黄榆 天坛东门 磁器口 崇文门 东单 灯市口 东四 张自忠路 北新桥 雍和宫 和平里北街 惠新西街南口 惠新西街北口 大屯路东 北苑路北 立水桥南 立水桥 天通苑南 天通苑 天通苑北
  9. 8号线 森林公园南门 奥林匹克公园 奥体中心 北土城
  10. 10号线 劲松 双井 国贸 金台夕照 呼家楼 团结湖 农业展览馆 亮马桥 三元桥 太阳宫 芍药居 惠新西街南口 安贞门 北土城 健德门 牡丹园 西土城 知春路 知春里 海淀黄庄 巴沟
  11. 13号线 西直门 大钟寺 知春路 五道口 上地 西二旗 龙泽 回龙观 霍营 立水桥 北苑 望京西 芍药居 光熙门 柳芳 东直门
  12. 昌平线 南邵 沙河高教园 沙河 巩华城 朱辛庄 生命科学园 西二旗
  13. 机场专线 东直门 三元桥 T2航站楼 T3航站楼
  14. 15号线 望京西 望京 崔各庄 马泉营 孙河 国展 花梨坎 后沙峪
复制代码
要求:
  输入出发地点和终点名  如: 奥体中心 西直门
  显示: 出发点到目的地的最少换乘,和最短线路(以过站数量决定距离) 以及过站数量
   或是列出所有能到达目的地的线路、换乘次数、过站数量。(北京地铁不建议如此,若是穷举的话随便就过百)
   附上地图辅助验证
代码要求: 要有通用性,即以后若要添加站名、线路只需更改a.txt内容即可,不需改代码。
技术问题请到论坛发帖求助!

TOP

主要是算法,
但,对于批处理来说,
即使有了好算法,写出来也读不懂,
长!

放到挑战区也是难题

TOP

call 递归 应该是可以完成的,只是太绕,我实在绕不下去了。
思路:模拟列车开出,途中遇可换乘站自动换乘,这样就可以把所有线路都走一篇,计算下距离即可。
只是说起容易做起来难,计算时被call绕晕了。
换种思路
先得出a到b需要乘坐哪几条线,到哪些站中转,再模拟开一趟,计算出最近的
技术问题请到论坛发帖求助!

TOP

要通用的话难度颇大,娱乐的话,太耗时间,这类图论问题解决思路不是面向过程是思维,所以批处理来做很难调试,要可扩展更难。
---------仅代表个人观点-------------

namejm以前写过一个超长的公交线路查询,我从来没读完过,随风可否借鉴下。。

TOP

jm的那个公共线路我只听过,从未看过,当初还以为只是查询单线路a到b的站名呢?难道jm早在N年前就做出来了?
不过你都没耐心看完,我想我就更没那耐心了 ^_^
看代码比写还累。
技术问题请到论坛发帖求助!

TOP

好难啊,考虑到转三趟车就太复杂了,还要计算经过的站数...
只会findstr的路过打酱油

TOP

本帖最后由 hanyeguxing 于 2011-6-4 17:44 编辑

个人观点:
第一次运行时,生成辅助文本,该文本枚举所有可能线路,包含换乘(换乘点前加#,站间用-)。
然后每次查询运行时直接查询此辅助文件,直接统计#和-的个数。
这样做,只有第一次运行会慢,以后都会很快。
寒夜孤星:在没有说明的情况下,本人所有代码均运行在 XP SP3 下 (有问题请发贴,QQ临时会话已关闭)

TOP

我以前写的那个公交线路查询在这里
批处理版公交线路信息查询器[2006-11-10](http://bbs.bathome.net/viewthread.php?tid=2141
rem ========== 查询换乘方案 ==========
:: 换乘线路只能查到匹配的第一条,可能不是最短线路

所以,那个方案不适用于本题
楼主的题目用批处理也是可以做到的
目前只有一个比较模糊的思路
还有待验证:
首先,用批处理把所有线路的站点数量计算出来并加以保存
然后,把所有线路的所有相交站点罗列出来,并记录下该站点在这些线路上位于第几站,剩余多少站
每两条线路为一对数据,保存在同一行上
然后以起止站点为关键词在配置文件和临时文件中查找
起始站点往前搜索,碰到第一个相交站点暂停下来
终止站点往后回溯,碰到第一个相交站点暂停下来
然后,再以这两个站点继续重复上一步骤
不过需要加上一些判断
总之,就是两头往中间碰
尺有所短寸有所长,学好批处理没商量;
考虑问题复杂化,解决问题简洁化。

心在天山,身老沧州。

TOP

没去过北京,我说怎么站名这么眼熟,明明是深圳嘛。

我跟楼上想法类似,把相交站点作为变量名,保存该线路上的站点名。

TOP

本帖最后由 caruko 于 2011-6-5 21:17 编辑

计算线路做出来了,有空补上计算站点数的。  文本是 第5行 的 dt.txt
  1. @ECHO OFF&SETLOCAL ENABLEDELAYEDEXPANSION
  2. set /p input=请输入起点站-终点站:
  3. for /f "tokens=1,2 delims=-, " %%a in ("!input!") do set "start=%%a"&set "end=%%b"
  4. ::取得交点。
  5. for /f "tokens=1,2* delims=/ " %%a in (dt.txt) do (
  6.     set "xl_%%a=%%c"
  7.     for %%i in (%%c) do set /a #%%i+=1
  8. )
  9. for /f "tokens=1,2 delims=#=" %%a in ('set #') do (
  10.     if !#%%a! geq 2 set "dd_list=!dd_list! %%a"
  11.     set "#%%a="
  12. )
  13. ::取得每个交点可到达的线路。
  14. for /f "tokens=2,3 delims=_=" %%a in ('set xl_') do (
  15.     set "str=%%b"
  16.     for /f "tokens=1,2" %%x in ("!start! !end!") do (
  17.         if not "!str:%%x=!"=="!str!" set "start_xl=!start_xl! %%a"
  18.         if not "!str:%%y=!"=="!str!" set "end_xl=!end_xl! %%a"
  19.     )
  20.     for %%D in (!dd_list!) do (
  21.         if not "!str:%%D=!"=="!str!" (
  22.             set "%%x=!%%x:%%D=@%%D!"
  23.             set "@%%D=!@%%D! %%a "
  24. )))
  25. ::检查是否可直达
  26. for %%a in (!start_xl!) do for %%b in (!end_xl!) do if %%a==%%b set "路线=^"!start! !end!^""
  27. if not "!路线!"=="" goto :metic
  28. ::计算换乘路线
  29. set "查询表=^"!start!=!start_xl!^""
  30. set "剩余交点表=!dd_list!"
  31. :loop
  32. for %%i in (!查询表!) do (
  33. for /f "tokens=1* delims==" %%A in ("%%~i") do (
  34. for %%a in (%%B) do (
  35.     for %%b in (!剩余交点表!) do (
  36.         for %%c in (!@%%b!) do (
  37.             if %%a==%%c (
  38.                 set "转车点=!转车点! %%b"
  39.                 set "剩余查询表=!剩余查询表! ^"%%A %%b=!@%%b:%%c=!^""
  40.                 for %%d in (!end_xl!) do for %%e in (!@%%b!) do if %%e==%%d (
  41.                     set "路线=!路线! ^"%%A %%b !end!^" "
  42. )))))))
  43. for %%a in (!剩余交点表!) do for %%b in (!转车点!) do set "剩余交点表=!剩余交点表:%%b=!"
  44. set "查询表=!剩余查询表!"
  45. set "剩余查询表="
  46. if !路线!.==. goto :loop
  47. ::计算站点
  48. :metic
  49. echo,路线:!路线!
  50. goto :eof
复制代码
2

评分人数

TOP

输入 华强路 岗厦北
路线: "华强路 世界之窗 岗厦北"  "华强路 大剧院 岗厦北"
少了条 "华强路 世界之窗 岗厦北 会展中心 市民中心"

输入 岗厦 岗厦北
路线:"岗厦 岗厦北" "岗厦 世界之窗 岗厦北"  "岗厦 大剧院 岗厦北"  "岗厦 世界之窗
岗厦北"  "岗厦 大剧院 岗厦北"  "岗厦 市民中心 岗厦北"  "岗厦 黄贝岭 岗厦北"
"岗厦 岗厦北" 少了两站
"岗厦 市民中心 岗厦北" 少了"市民中心"
"岗厦 黄贝岭 岗厦北" 少了"大剧院"
技术问题请到论坛发帖求助!

TOP

本帖最后由 caruko 于 2011-6-5 21:35 编辑

我这个代码 是只把换乘点写进去。
然后根据这个路线去计算,并找到最短路径。
不是最终结果。

对了...前次提交的有个BUG,把 !路线! 写成 !线路! 了。
现在正常了。

运行结果如下:
  1. 请输入起点站-终点站:华强路 岗厦北
  2. 路线: "华强路 世界之窗 岗厦北"  "华强路 大剧院 岗厦北"
  3. 请输入起点站-终点站:岗厦 岗厦北
  4. 路线:"岗厦 岗厦北"
  5. 可能是字符替换导致出问题了 =。=
复制代码

TOP

代码是按层次计算的,找到匹配的就退出了。 所以层次多的不包括在内。
但是把  if !路线!.==. goto :loop
改成  set /a n+=1&if !n! lss 10 goto :loop

即可得到更多次换乘的结果。

TOP

个人感觉制成图,将站标为坐标,然后根据两点间的直线穿过的线路来算可能会容易点。。。。

有图有真相:
***共同提高***

TOP

plp数学强人制作一个数学模型来计算吧。。。

个人是有心无力哦。。。
***共同提高***

TOP

返回列表