Board logo

标题: [其他] 批处理版公交线路信息查询器[2006-11-10] [打印本页]

作者: namejm    时间: 2008-10-12 01:58     标题: 批处理版公交线路信息查询器[2006-11-10]

  本人2006年发表在cn-dos的一个小作品,原帖地址:http://www.cn-dos.net/forum/viewthread.php?tid=24668。转帖于此,是希望做为资料留存备用,更希望后来者能从中得到一些有益的提示,或发现其中的不足并完善之。


  在 [共同参与][挑战思路][批处理:轻松译单词]这个帖子的讨论过程中,我曾提出:借鉴33F的思路,可以做出 公交信息查询器 之类的东西(请看34F的帖子)。
  在提出设想的当天,写下了这个脚本的雏形;在此后将近一个月的时间里,诸事缠身,代码一直在断断续续的编写之中。昨天抽空把代码梳理了一下,把初步的代码发在DOS联盟脚本技术群里,收到了联盟里几位热心会员的反馈。今天再次梳理代码,增添了点功能,发出来请各位测试。
  (提示:若以下提到的功能在这个脚本中得不到反映,则表明这些功能是后续版本的努力方向;若各位有什么好想法,请跟帖发表建议,3Q)

  代码:
  1. @echo off
  2. title 公交线路信息查询器-test
  3. setlocal enabledelayedexpansion
  4. goto begin
  5. 功能:
  6.   ① 输入线路名称,显示该线路的所有站点及发车收车时间;
  7.   ② 输入上车站点和下车站点,显示可直达的车次,并显示每条线路中这两个站点及其之间的所有站点及发车收车时间;
  8.   ③ 可查询换乘线路
  9. 流程:
  10.   1、输入查询对象;
  11.     2、判断输入类型:若为数字、数字+字母,则查询车次;若带汉字,则查询站点信息;
  12.   3、若查询车次,有则显示,无则提示重新查询;
  13.   4、若查询站点,首先检测是否存在此站点;若不存在,则提示换用近似的站点查询;若存在该站点,有直达则只显示直达,无直达则提示查询换乘;若无换乘,则提示重新查
  14. 询,此时罗列近似的起止站点供选择;
  15. code by JM 2006-10-17~11-10   CMD@XP
  16. :begin
  17. cls
  18. set input=
  19. set /p input=请输入车次或上、下车站点:
  20. :: 车次只允许输入数字或数字+字母,否则会认为是站点
  21. echo %input%|findstr /r "^[0-9][0-9]*[a-zA-Z]*$">nul &&(
  22.     call :get_line %input%
  23.     echo !num!
  24.     echo !_time!
  25.     echo !line_info:~1,-1!
  26.     goto end
  27. )
  28. call :find_station %input%
  29. rem ========== 查询车次编号匹配的线路信息 ==========
  30. :get_line
  31. :: 获取要查询的车次编号所在的行
  32. cls
  33. set line=
  34. for /f "tokens=1* delims=:" %%i in ('findstr /nr "^%1路:$" 公交线路.txt') do (
  35.     set line=%%i
  36.     if not "!line!"=="" goto get_block
  37. )
  38. goto no-item
  39. rem ========== 查询直达方案 ==========
  40. :find_station
  41. :: 只允许同时输入两个站点
  42. if "%2"=="" goto begin
  43. if not "%3"=="" goto begin
  44. find "-%1-" 公交线路.txt>nul||goto no-start
  45. find "-%2-" 公交线路.txt>nul||goto no-end
  46. cls
  47. set line=
  48. set str=
  49. set var=
  50. for /f "tokens=1* delims=:" %%i in ('findstr /n "\-%1\-" 公交线路.txt') do (
  51.     set line=%%i
  52.     set str=%%j
  53.     set str=!str:-%2-=!
  54.     if not "!str!"=="%%j" (
  55.         set var=%%j
  56.         set var=!var:-%1-=-☆%1☆-!
  57.         set var=!var:-%2-=-☆%2☆-!
  58.         call :pick-up %input% !var!
  59.         call :type_nostop
  60.     )
  61. )
  62. :: 如果没找到直达线路,则查询换乘方案
  63. if "%var%"=="" call :transfer %input%
  64. :end
  65. pause
  66. goto begin
  67. rem ========== 查询换乘方案 ==========
  68. :: 换乘线路只能查到匹配的第一条,可能不是最短线路
  69. :transfer
  70. set first_line=
  71. set first_id=
  72. set first_time=
  73. set second_line=
  74. set second_id=
  75. set second_time=
  76. set link=
  77. for /f "tokens=1* delims=:" %%i in ('findstr /n "\-%1\-" 公交线路.txt') do (
  78.     set first_line=%%i&set str_start=%%j
  79.     set stations_start=!str_start:-= !
  80.     for /f "tokens=1* delims=:" %%k in ('findstr /n "\-%2\-" 公交线路.txt') do (
  81.         set second_line=%%k&set str_end=%%l
  82.         set stations_end=!str_end:-= !
  83.         for %%m in (!stations_start!) do (
  84.             for %%n in (!stations_end!) do (
  85.                 if "%%m"=="%%n" (
  86.                     set link=%%m
  87.                     set /a line=!first_line!-2&&call :get_block
  88.                     set first_id=!num!
  89.                     set first_time=!_time!
  90.                     set /a line=!second_line!-2&&call :get_block
  91.                     set second_id=!num!
  92.                     set second_time=!_time!
  93.                     goto type_change
  94.                 )
  95.             )
  96.         )
  97.     )
  98. )
  99. if "%link%"=="" goto no-change
  100. rem ━━━━━━━━━━━ 子过程 ━━━━━━━━━━━
  101. rem ========== 获取某条线路的完整信息 ==========
  102. :get_block
  103. set /a line-=1
  104. set count=
  105. for /f "skip=%line%" %%i in (公交线路.txt) do (
  106.     set /a count+=1
  107.     if !count! equ 1 set num=%%i
  108.     if !count! equ 2 set _time=%%i
  109.     if !count! equ 3 set line_info=%%i
  110.     if !count! gtr 3 goto :eof
  111. )
  112. rem ========== 提取上车站点到下车站点之间的所有站点 ==========
  113. :pick-up
  114. for /f "tokens=2-4 delims=☆" %%i in ("%3") do set var=%%i%%j%%k
  115. :: 判断输入的起止点在 公交线路.txt 中的先后顺序
  116. :: 以决定是否逆向显示相关信息
  117. for /f "tokens=1 delims=-" %%i in ("!var!") do if "%%i"=="%2" call :reverse
  118. goto :eof
  119. rem ========== 显示直达方案信息 ==========
  120. :type_nostop
  121. set /a line-=2
  122. call :get_block
  123. echo 乘坐 %num:~0,-2% 路车(%_time%):%var%
  124. echo.
  125. goto :eof
  126. rem ========== 显示换乘方案信息 ==========
  127. :type_change
  128. echo 交汇点是 %link%
  129. echo.
  130. set str_start=!str_start:-%1-=-☆%1☆-!
  131. set str_start=!str_start:-%link%-=-☆%link%☆-!
  132. echo 先搭乘 %first_id:~0,-2% 路在 %link% 站下车,然后换乘 %second_id:~0,-2% 路即可,换乘方案为:
  133. echo.
  134. call :pick-up %1 %link% %str_start%
  135. echo %first_id:~0,-2%路(%first_time%): %var%
  136. set str_end=!str_end:-%2-=-☆%2☆-!
  137. set str_end=!str_end:-%link%-=-☆%link%☆-!
  138. echo.
  139. call :pick-up %1 %2 %str_end%
  140. echo %second_id:~0,-2%路(%second_time%): %var%
  141. echo _____________________________________________________________
  142. goto :eof
  143. rem ========== 逆向显示站点信息 ==========
  144. :reverse
  145. set var=%var:-= %
  146. set str=
  147. for %%i in (%var%) do set str=%%i-!str!
  148. set var=%str:~0,-1%
  149. goto :eof
  150. rem ━━━━━━━━━━━ 出错信息 ━━━━━━━━━━━
  151. :no-start
  152. cls
  153. echo 没有找到名为 "%1" 的上车站点
  154. pause
  155. goto begin
  156. :no-end
  157. cls
  158. echo 没有找到名为 "%2" 的下车站点
  159. pause
  160. goto begin
  161. :no-change
  162. echo 没有找到直达线路,也找不到只转一次车的换乘方案
  163. pause
  164. goto begin
  165. :no-item
  166. echo 没有找到车次编号为 "%input%" 的相关信息,请重新查阅.
  167. pause
  168. goto begin
复制代码
  公交线路.txt
  1. 线路信息格式为:
  2.   ① 文本正文首行不能为线路信息,可以设为空,或其他内容;
  3.   ②  每条线路第一行为线路编号,格式为"数字+路:"(如11路:)或 数字+字母+路:(如503A路:),必须是中文半角状态下的冒号;第二行为发、收车时间;第三行为经过的站点,每个站点用短横线括起来,(如:-川大-电子科大-);
  4.     ③  每条线路的信息块之间只能用空行分隔,或者不分隔;
  5.   ④  除了站点、时间之间用-分隔之外,其他行不能再出现-;
  6. ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━
  7. 1路:
  8. 6:00-23:00
  9. -青龙场中心站-昭觉寺横街-洪家坡-驷马桥-高笋桥-解放路一段-梁家巷-好又多府河店-北大街-中西顺城街-盐市口-红照壁-南大街-浆洗街-南郊路-武侯祠-高升桥-高升桥路中段-佳灵路-川藏路高新路口-太平园-八一家具城-
  10. 2路:
  11. 5:45-22:30
  12. -火车北站-荷花池-高笋塘-二环路北四段-二环路东一段北-二环路东一段中-二环路东一段南-麻石桥-二环路东三段中-万年场-双林中横路-双桥子-塔子山-五桂桥-
  13. 3路:
  14. 6:15-23:00
  15. -桦林园-红砖桥-沙河大桥-东光小区-二环路东五段-三官堂-顺江路-九眼桥-牛王庙-水碾河-东风大桥-大慈寺路-总府路东-文化宫-太升路口-青羊二医院-江汉路东-江汉路西-通锦桥-沙湾路-会展中心-西南交大-交大路西-香榭里-九里堤公交总站-
  16. 城乡3路:
  17. 6:30-18:30
  18. -大丰镇-古柏树村五组-古柏树村四组-川建社区-陆家工业区-幸福村-园艺场-王贾村-九里店-八里桥-双水村-双水碾村-荆竹村-川陕路口-昭觉寺-青龙场-省粮校-省政法学院-成绵立交桥-龙潭立交桥-丛树林-十陵客运站-
  19. 4路:
  20. 5:50-23:00
  21. -五桂桥-双桥子-水碾河-东风大桥-大慈寺路-总府路东-总府路-人民西路-东城根上街-羊市街-西大街-西月城街-花牌坊街-西门车站-营门口立交桥-五里村-茶店子-茶店子西-三环路成灌路立交桥南-茶店子公交站-
复制代码
  可供参考的数据库文本内容可以在这里下载:火车网,感谢 vkill 提供。
作者: cuipengfei    时间: 2010-10-9 16:33

能不能把全国城市的公交线路都查出来?




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2