VB 读取TXT内指定的内容

Question

有一user.TXT文本，在当前文件夹。内容 很多用户名 一用户名占一行。 我想在程序中实现，在INPUTBOX输入的内容与suer.TXT对比。只有USER.TXT中存在的用户名才能执行下面的程序，不存在的直接EXIT SUB
。大楷这效果。
请教大虾们，怎么实现在TXT内查找并判断是否与INPUTBOX输入的值完全一样呢？不一样就MSGBOX“错误”。。。

Answer 1

我建议你掌握VB的Instr()函数:
我举个例子，你应该能体会并应用；
Dim s1 as strinh
Dim L as integer
s1 ="DA14 X25 TR25"
L = Instr(s1,"TR")

Print L
显示10
Instr(s1,"TR") --- 在字符串变量S1中，从左开始寻找“TR”，首先出现的位置。

有了这个函数，再利用VB的Left()、Mid()、Right()等函数，应该可以解决你的问题了。

注意，你的这个文本里有回车换行符号，通常一个换行符号算作2个字符。
希望能解决您的问题。本回答被提问者采纳