Question

用vb在 txt文本里检索相应的行再将内容复制到text文本框

先点击list
的每一行
就在txt里面检索相应的内容
再将其复制到另一个textbox显示出来怎么做？

txt的内容是
*
K292/K289
成都, ---, 14:55
德阳, 15:47, 15:51
绵阳, 16:36, 16:45
江油, 17:21, 17:32
广元, 20:15, 20:26
略阳, 23:07, 23:13
凤州, 2:04, 2:14
秦岭, 3:22, 3:40
宝鸡, 4:46, 5:04
杨陵镇, 6:15, 6:33
西安, 7:37, 7:45
三门峡西, 11:31, 11:37
洛阳, 14:15, 14:21
巩义, 15:14, 15:16
郑州, 16:23, 16:33
开封, 17:19, 17:23
商丘, 18:57, 19:03
徐州, 20:50, 21:00
蚌埠, 22:56, 23:18
南京, 1:19, 1:27
镇江, 2:07, 2:10
常州, 2:59, 3:05
无锡, 3:33, 3:38
苏州, 4:04, 4:08
镇江, 18:41, 18:47
丹阳, 19:05, 19:10
常州, 19:51, 19:57
无锡, 20:25, 20:29
苏州, 20:55, 20:59
昆山, 21:24, 21:28
上海, 22:00, 22:20
松江, 23:00, 23:02
嘉兴, 23:40, 23:46
杭州东, 0:42, 0:50
诸暨, 1:50, 1:52
义乌, 2:29, 2:33
金华西, 3:20, 3:36
武义, 4:15, 4:17
永康, 4:39, 4:41
缙云, 5:14, 5:16
丽水, 5:53, 5:55
青田, 6:58, 7:00
温州, 8:15, ---
*
K812/K813
温州, ---, 10:50
青田, 11:51, 11:53
丽水, 12:58, 13:00
缙云, 13:53, 13:55
永康, 14:29, 14:30
武义, 15:04, 15:06
金华西, 16:10, 16:23
义乌, 17:08, 17:14
杭州东, 18:46, 18:57
嘉兴, 19:55, 20:00
松江, 20:40, 20:42
上海, 21:22, 21:40
昆山, 22:12, 22:14
苏州, 22:38, 22:43
无锡, 23:09, 23:15
常州, 23:47, 23:53
丹阳, 0:25, 0:27
南京, 1:37, 1:45
滁州, 2:52, 2:57
明光, 3:46, 3:48
蚌埠, 4:32, 4:42
水家湖, 5:41, 5:45
淮南, 6:12, 6:18
颖上, 7:31, 7:33
阜阳, 8:15, ---
*
K815
南京西, ---, 10:17
南京, 10:25, 10:37
镇江, 11:21, 11:26
丹阳, 11:44, 11:48
常州, 12:22, 12:28
无锡, 12:56, 13:02
苏州, 13:28, 13:35
昆山, 14:00, 14:04
上海, 14:38, ---
*
K816
上海, ---, 15:28
昆山, 15:58, 16:10
镇江, 19:28, 19:33
南京, 20:19, 20:30
南京西, 20:38, ---
*
K820/K817
当涂, 12:51, 12:57
马鞍山, 13:12, 13:18
南京南, 13:52, 13:59
南京, 14:38, 14:53
镇江, 15:33, 15:39
丹阳, 15:57, 16:02
常州, 16:43, 16:50
无锡, 17:23, 17:28
苏州, 18:00, 18:06
昆山, 18:31, 18:37
上海, 19:16, ---
*
K818/K819
上海, ---, 7:43
常州, 10:03, 10:09
南京南, 12:50, 12:59
宣城, 15:52, 16:00
宁国, 16:33, 16:43
绩溪县, 17:58, 18:06
歙县, 18:31, 18:37
黄山, 19:00, ---
*
K840/K837
合肥, ---, 20:50
蚌埠, 22:53, 23:10
苏州, 4:30, 4:3
萧山, 9:33, 9:38
柯桥, 9:59, 10:02
绍兴, 10:10, 10:14
上虞, 10:37, 10:41
余姚, 11:05, 11:09
宁波, 12:00, ---
*
K838/K839
宁波, ---, 17:00
杭州, 20:03, 20:11
海宁, 21:02, 21:04
嘉兴, 21:21, 21:41
上海, 22:56, 23:08
苏州, 0:14, 0:19
南京, 3:05, 3:13
滁州, 3:49, 3:53
蚌埠, 5:21, 5:31
合肥, 7:30, ---
*
list表单里是 每辆车的 车次
要求 点击车次 就在txt里面搜索相应车次
再将两个*中间的内容 复制到 text文本框里

谢谢了～

Answer 1

Private Sub Form_Load()
Dim myline As String, k1g As Boolean, k2g As Boolean
Open App.Path & "\list.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, myline
If k2g = True Then
List1.AddItem myline
k2g = False
End If
If myline = "*" And k1g = False Then
k2g = True
ElseIf myline = "*" And k1g = True Then
k1g = False
End If
Loop
Close #1
End Sub

Private Sub List1_Click()
Text1.Text = ""
Dim temp As String
Dim myline As String
Dim kg1 As Boolean, kg2 As Boolean
kg1 = False
kg2 = False

Open App.Path & "\list.txt" For Input As #1
Do While Not EOF(1)
Line Input #1, myline
If kg2 Then
If myline = "*" Then
Exit Do
Else
Text1.Text = temp
temp = temp + myline + vbCrLf
Text1.Text = temp
End If
End If

If myline = "*" Then
kg1 = True
End If
If kg1 Then
If myline = List1.List(List1.ListIndex) Then
kg2 = True
kg1 = False
Text1.Text = Text1.Text + myline + vbCrLf
Else
kg2 = False
End If
End If
Loop
Close #1
End Sub
======================================================================
代码献上
下载地址：http://files.getdropbox.com/u/322483/%E6%A3%80%E7%B4%A2TXT%E8%BD%A6%E6%AC%A1.rar
======================================================================
另附：你是在火车站工作的么？跟我父母一样……

Answer 2

function GetTxt(Find as string) as string
dim lngFile as long
dim sFile as string

lngFile=freefile
open "d:\myFile.txt" for binary as lngFile
sFile=space(lof(lngFile))
get lngFile,,sFile
close
sFile=split(sFile,Find)(1)
sFile=left(sFile,instr(sFile,"*")-1)
GetTxt=sFile
end function

private sub list1_click()
text1=GetTxt(list1.text)
end sub

Answer 3

用txt不是很方便 建议用mdb格式有方便查找功能

Answer 4

用数据库吧