关于VB搜索TXT文本并判断有无重复遇到的问题

Question

我的代码是这样的，大概目的就是，当搜索到map.txt里已经存有某个地图的数据时，就弹出提示框，若没有，则添加
（map.txt里的格式为：
地图1名|数据1
地图2名|数据2
地图3名|数据3
……）
Dim txt As String, mapval As Double, wz As Single
Open App.Path & "\map.txt" For Input As #1 '先打开MAP.TXT搜索有没有相同的地图名称
While Not EOF(1)
Line Input #1, a
b = Combo1.Text
wz = InStr(a, "|")
mapname = Left(a, wz - 1)
Dim jg As Boolean
If InStr(a, b) > 0 And Len(mapname) = Len(Text3.Text) Then
jg = True '若有则给JG赋值为TRUE
Else
jg = False '否则赋值为FALSE
End If
Wend
Close #1

If jg = True Then
MsgBox "已添加过该地图！" ’为TRUE时弹出提示框
Else
Open App.Path & "\map.txt" For Append As #1
Print #1, Text3.Text & "|" & Label10.Left - Label9.Left
Close #1
MsgBox "添加地图成功！" '‘若无则添加地图
End If

======================================
现在问题就出在，因为在搜索时是WHILE WEND循环，一直搜索到文本结尾，所以若即将添加的地图名正好出现在TXT文件的最后一行时，JG则返回TRUE，此时出现提示，一切正常。但是虽然已经有过该地图，若该地图名在TXT文件中不是最后一行时，则JG的值就被最后一行的值覆盖了，返回的仍然是FALSE，于是又添加了一次地图信息，就起不到判断作用了。

试了在第一个IF语句中的JG=TRUE后又加了一个EOF(1)=TRUE，不行，提示错误。改变整个语句的结构也不行，现在想有没有其它的办法可以让VB一次性地搜索全部文档，或者在搜索到同样字符串时立刻停止？

Answer 1

看了你的问题。存在就不添加。
首先，（map.txt里的格式为：
地图1名|数据1
地图2名|数据2
地图3名|数据3
……)
那么就可以直接 在整个内容里 搜 “地图 名|”如果存在就不添加。
|分割符号必须有，用来区分 是地图名，因为后面数据有可能会和地图名一样的。
代码：
Dim db As String
Dim dbLen As Long

b = Combo1.Text & "|"

Open App.Path & "\map.txt" For Binary As #1
If Not EOF(1) Then
dbLen = LOF(1)
db = Input(dbLen, 1)
End If
Close #1
If InStr(db, b) > 0 Then
jg = True '若有则给JG赋值为TRUE
Else
jg = False '否则赋值为FALSE
End If

If jg = True Then
MsgBox "已添加过该地图！" ’为TRUE时弹出提示框
Else
Open App.Path & "\map.txt" For Append As #1
Print #1, Text3.Text & "|" & Label10.Left - Label9.Left
Close #1
MsgBox "添加地图成功！" '‘若无则添加地图
End If

如果数据量大 建议用数据库。

Answer 2

修改如下:
Dim txt As String, mapval As Double, wz As Single
Open App.Path & "\map.txt" For Input As #1 '先打开MAP.TXT搜索有没有相同的地图名称
While Not EOF(1)
Line Input #1, a
b = Combo1.Text
wz = InStr(a, "|")
mapname = Left(a, wz - 1)
Dim jg As Boolean
If InStr(a, b) > 0 And Len(mapname) = Len(Text3.Text) Then
jg = True '若有则给JG赋值为TRUE
exit While
Else
jg = False '否则赋值为FALSE
End If
Wend
Close #1

If jg = True Then
MsgBox "已添加过该地图！" ’为TRUE时弹出提示框
Else
Open App.Path & "\map.txt" For Append As #1
Print #1, Text3.Text & "|" & Label10.Left - Label9.Left
Close #1
MsgBox "添加地图成功！" '‘若无则添加地图
End If

Answer 3

你可以用 exit sub 或 exit function 来跳出.
注: 如果你的程序段为 Function 则用eixt function, 为sub则用exit sub.
如果是for 循环,则可用exit for 来终止循环.