{新人求救} 如何从TXT文本中提取信息作为文件名保存

小弟不会VB，目前被一个小问题难倒，求救呀

需要从.TXT文件中提取如


Datalog report
04/04/2008 14:54:22
      Prog Name:    VB211_CP2_8S_J3004_changeCP_080318_04.xls
       Job Name:    VB211_CP2_8S_J3004_changeCP_080318_04.xls
            Lot:    FA7Y-6624
       Operator:    Admin
      Test Mode:   
      Node Name:    TERADYNEJ3004
      Part Type:    Resist
    Channel map:    Chan_8


其中红色的部分，作为文件名保存出来，这是同时交给我的一个程序需要添加的一部分， 我看了看 好像命名的那段代码是



            outfile2 = File1.Path + "\" + "stat" + "_" & lotNo & ".log"
            Open outfile2 For Append As #5
         

求教各位老大，谢谢各位了，我手里没有书，这个任务很着急，希望得到大家帮助~~

搜索更多相关主题的帖子: TXT 文本 文件名 新人

简单的字符串处理。
没有书可以到网上找教程，你能给出的唯一让别人帮你做的理由是你没有脑子但是有RMB。

我都不知道该看什么....

那我告诉你，先把整个文件输入成一个字符串，然后使用Mid、Instr函数就搞定了。这是一种方法。

FileName = File1.Path + "\" + File1.List(k)
      Open outfile1 For Append As #2
        SnNo = 0
        passsum = 0
        Erase Snstr()
        Erase waferNo()
        
       Open FileName For Input As #1
       Line Input #1, stringline
      

您看看这是 把选择好的一个文件~写入成一个字符串吗？

不知道。我不喜欢用VB自带输入输出。我用fso。
你给的代码明显是不完整的，没法看。

VB探讨群
48029944
欢迎加入

FileName="c:\abc.txt"
open FileName for input As #1
    outputtxt=""
    do while not eof(1)
        line input #1, outputname
        outputtxt=outputtxt & outputname & vbcrlf
    loop
close #1
outputname=trim(mid(outputtxt,instr(outputtxt,"Lot:"),instr(instr(outputtxt,"Lot:"),outputtxt,vbcrlf)))

outputname=outputname & ".txt"

'outputname的内容为“FA7Y-6624.txt"