请教：如何从文本文件或文本框中读出指定的字符串？

Question

text2.text=left(text1.text,5)
text2.text=right(text1.text,5)
text2.text=mid(text1.text,2,5)

Answer 1

thanx!若从中查找多次，例如从如下文字中分别输出aa:,bb:,cc:后面的内容到文本框text1(i)中，每输出一组保存一次。该如何做呢？
aa:123
bb:ggg
cc:efg
----------
aa:222
bb:hhh
cc:rrt
-------

Answer 2

strAll="aa:123,bb:ggg,cc:efg,aa:222,bb:hhh,cc:rrt"i=instr(1,strAll,"aa:")
j=instr(1,strAll,"bb:")
k=instr(1,strAll,"cc:")
'aa串
strAA=mid("aa:123,bb:ggg,cc:efg,aa:222,bb:hhh,cc:rrt",i+3,j-1)
'bb串
strBB=mid("aa:123,bb:ggg,cc:efg,aa:222,bb:hhh,cc:rrt",i+3,k-1)strAll=right(strAll,len(strAll)-k)i=instr(1,strAll,"aa:")'cc串
strBB=mid("aa:123,bb:ggg,cc:efg,aa:222,bb:hhh,cc:rrt",k+3,i-1)如此循环下去就可以了。假如从文件中读进来的话，并且格式像你所描述这样可能会更简单一点。用Line input逐行读入判断一下开头三个字符，假如是aa: 或bb:或cc:,那么用right（StrInput,len(strInput)-3),把这行剩余的读出来！

Answer 3

thanx again!!事实上我要处理一种格式相对固定的信件，在文本文件中的格式如下发件人: "accot" <[email protected]>
收件人: <[email protected]>
主题: 20030123H321061:Cernet International Flow Warning
日期: 2003年1月24日 10:16两行内容说明：
时间： 2003-JAN-23aa:123bb:ggg
cc:efg
----------
aa:222
bb:hhh
cc:rrt
-------
... ...
 
信尾的说明  每封信的头和尾都是一样的，我希望取出其中的"时间，aa,bb,cc",把这4个字串输入到数据库中，然后我可以浏览，查询，发送Email给每个用户。
我首先想到的是用文件，但是我不知道怎样打开这样的文件，怎样去掉前后的内容，并且实现从文件的某个位置开始查找"aa"字串，并把其后面的不定长字串取出来。在继续查找"bb"、“cc”,"aa"、"bb"、"cc"... ...直到文件结束。我的问题我认为很复杂，解决了后我会再追加分的。