Question

vb如何从txt查找某一字符串然后将右侧的字符串放入text1

比如我有一个txt
a123123
然后查找到a之后将123123放入text1
**上面作废 **

比如我有一个txt文件 内容为
a123123
b111111
c122222
然后查找到a之后将后面的123123放入text1

Answer 1

text1=right(txt,len(txt)-instr(txt,"a"))
**上面作废**
dim aa as string
Open “你的文件路径和名称.txt” For Input As #1
do while not eof(1)
Line Input #1, aa
if instr(aa,"a") then
text1=right(aa,len(aa)-instr(aa,"a"))
exit do
end if
loop
Close #1