求助 - vb.net吧

level 6

风陵93 楼主

怎样利用记事本里的内容查询啊求大神帮忙，就差这一步啦！！！

2013年05月31日 03点05分 1

level 12

🌳🌳🌴s🌴🍀🍀

查询结果部分显示什么？

2013年05月31日 07点05分 2

风陵93

显示最后一列的数，就是考场号

2013年05月31日 10点05分

🌳🌳🌴s🌴🍀🍀

回复风陵93 :用Streamreader读取文本，把引号去掉，把换行符替换为","，将所有数据split到数组，然后遍历数组查找相应内容就是了，找到后取其后第1或第2个数组的值即可。

2013年05月31日 13点05分

level 11

黑客大叔

循环读入，判断

2013年05月31日 12点05分 3

风陵93

我想我需要一些代码

2013年05月31日 13点05分

🌳🌳🌴s🌴🍀🍀

回复风陵93 :你觉得只差“一步”，其实是你只做了“一步”。

2013年05月31日 13点05分

风陵93

回复 lison83 :好吧，我在去努力努力吧，谢谢 [呵呵]

2013年05月31日 13点05分

level 7

youki_xwy

把数据放在文本里不如放到数据库里啊

2013年06月03日 04点06分 4

风陵93

谢谢

2013年06月03日 10点06分

level 11

yu_jizhou

我觉得不如把数据读出来在程序中查找,这样可能好操作一些

2013年06月03日 16点06分 5

level 10

ztw1122

Dim Filen% = FreeFile()
Dim Tmp$ = "", Tmp1() As String
Dim OrGet As Boolean = False
FileOpen(Filen, "C:\1.txt", OpenMode.Input)
Do While (Not EOF(Filen)) Or OrGet
Tmp = LineInput(Filen)
If InStr(Tmp, TextBox1.Text) > 0 Then
Tmp1 = Tmp.Split(",")
If option1.value Then
If InStr(Tmp1(0), TextBox1.Text, CompareMethod.Text) > 0 Then
TextBox2.Text = Tmp(2)
OrGet = True
End If
Else
If InStr(Tmp1(1), TextBox1.Text, CompareMethod.Text) > 0 Then
TextBox2.Text = Tmp(2)
OrGet = True
End If
End If
End If
Loop
FileClose(Filen)

2013年06月04日 00点06分 6