时刻表有两个，Content.txt和Detail.txt，前者保存各车次概要信息，包括车次名、起点站、终点站、发车时刻和到达时刻，一个车次占一行，后者保存所有车次停靠站的详细信息。要求（其他我都会做，只有这两点实在不会了）：1程序启动后列表框显示所有车次，单击其中一项，文本框中显示此车中途停靠所有车站，到站时间和发车时间，并纵向对齐；2在经停车站组合框中输入一个站名然后回车，列表框中只显示经过此车站的全部车次。由于字数限制，以下只是文本文件截取。Deatail读取时应注意“*”号。
Content.txt:
T65, 北京, 南京西, 20:40, 8:24
T66, 南京西, 北京, 20:46, 8:31
T86, 苏州, 北京, 17:07, 7:02
Detail.txt
*
T65
北京, ---, 20:40
济南, 1:11, 1:19
蚌埠, 6:06, 6:14
南京, 8:01, 8:16
南京西, 8:24, ---
*
T66
南京西, ---, 20:46
南京, 20:54, 21:09
蚌埠, 22:57, 23:05
济南, 3:44, 3:52
北京, 8:31, ---
*
T86
苏州, ---, 17:07
无锡, 17:29, 17:32
常州, 17:59, 18:02
镇江, 18:42, 18:45
南京, 19:23, 19:27
蚌埠, 21:14, 21:22
济南, 2:00, 2:08
德州, 3:25, 3:27
沧州, 4:30, 4:32
天津西, 5:41, 5:43
北京, 7:02, ---
'程序启动后列表框显示所有车次，
sub form_load()
dim tempStr as str
open "content.txt" for Input as #1
do while not eof(1)
line input #1,tempStr
list1.additem tempstr
loop
close #1
end sub
'单击其中一项，文本框中显示此车中途停靠所有车站，到站时间和发车时间，并纵向对齐；
Content.txt和Detail.txt
sub list1_click()
dim a as string
dim i as integer
dim tempStr as string
text1.text=""
i=instr(list1.list(listindex,",",1)
a =left(list1.list(listindex),i-1) '取出车次信息
open "detail.txt" for Input as #1
do while not eof(1)
line input #1,tempStr
if tempStr=a then
do
text1.text=text1.text+tempStr+chr(13) '增加回车符
line input #1,tempStr
loop until tempStr="*"
end if
loop
close #1
end sub
2在经停车站组合框中输入一个站名然后回车，列表框中只显示经过此车站的全部车次。
sub combox1_lostFocus()
open "detail.txt" for Input as #1
do while not eof(1)
line input #1,tempStr
if tempStr="*" then
line input #1,tempStr
a=tempStr '记住车次
b=""
end if
i=instr(list1.list(listindex,",",1)
if i>0 then b =left(list1.list(listindex),i-1) '取出站名信息
if b=combox1.text then list2.additem a '加车次信息
LOOP
close #1
end sub
sub form_load()
dim tempStr as str
open "content.txt" for Input as #1
do while not eof(1)
line input #1,tempStr
list1.additem tempstr
loop
close #1
end sub
'单击其中一项，文本框中显示此车中途停靠所有车站，到站时间和发车时间，并纵向对齐；
Content.txt和Detail.txt
sub list1_click()
dim a as string
dim i as integer
dim tempStr as string
text1.text=""
i=instr(list1.list(listindex,",",1)
a =left(list1.list(listindex),i-1) '取出车次信息
open "detail.txt" for Input as #1
do while not eof(1)
line input #1,tempStr
if tempStr=a then
do
text1.text=text1.text+tempStr+chr(13) '增加回车符
line input #1,tempStr
loop until tempStr="*"
end if
loop
close #1
end sub
2在经停车站组合框中输入一个站名然后回车，列表框中只显示经过此车站的全部车次。
sub combox1_lostFocus()
open "detail.txt" for Input as #1
do while not eof(1)
line input #1,tempStr
if tempStr="*" then
line input #1,tempStr
a=tempStr '记住车次
b=""
end if
i=instr(list1.list(listindex,",",1)
if i>0 then b =left(list1.list(listindex),i-1) '取出站名信息
if b=combox1.text then list2.additem a '加车次信息
LOOP
close #1
end sub
温馨提示：答案为网友推荐，仅供参考
第1个回答 2011-03-20
很简单的，但是需要“列车时刻表”，将列车时刻表数据为一个数据库，就方便查询了。
没有“列车时刻表”，无法给出具体源代码。本回答被网友采纳
没有“列车时刻表”，无法给出具体源代码。本回答被网友采纳
