Question

请您为我下面提到的方案获取VB脚本的建议！

情景：

VB脚本需要打开文本文件并读取文本文件中的所有行，但主要条件是，例如，如果文本文件名为read.000，那么VB脚本打开名为read.000的文件，然后验证文本文件应该从读取文本文件的第一行开始，文本文件中的第一行与文件名read.000相同，因此VB脚本验证应该与文本文件名的第一行完全匹配（read.000）。此外，文件名可以是任何read.001或read.002，无论文件名是什么，它应该在文件的第一行中出现的文件中相同。如果满足条件，那么只需要进行第二次验证。一旦文件名验证得到满足，那么VB脚本需要验证文本文件结构，例如，在文本文件read.000中第二行开始“01 John lagoon Canada” 在上面的例子中01 - ＆gt;表示序列号，如果超过两个字符则应该只有两个字符，然后验证失败约翰 - ＆gt;表示名字，如果超过4，则应该只有4个字符，然后验证需要失败，同样适用于泻湖。

请您使用VB脚本向我提出上述请求。

Answer 1

希望我能解决你的问题，我会做这样的事情：

 Dim fso, rfile, line
 Set fso = CreateObject("Scripting.FileSystemObject")
 Set rfile = fso.OpenTextFile(pathtoyourfile, 1)
 Do While rfile.AtEndOfStream <> true
   line = rfile.ReadLine
   if line = fso.GetFileName(pathtoyourfile) then
    do your next Validation or something else'must be speficied
   else
    do something or end 'must be speficied
   End if
 Loop
 rfile.close

使用VB验证文本文件

1 个答案: