检索txt文件的最后一行有一个VBScript

问题描述：

之前的所有，我想说的是，我不是一个程序员，所以这可能是基本的一些人，但肯定不适合我！检索txt文件的最后一行有一个VBScript

，我要完成的任务是，读出从服务器自动导入数据文件的某些字符。数据以CSV或标签的.txt文件形式存储在行中，每行包含日期和一些数字值。格式总是相同的，每次输入一个新值时，只有一行文件增长。

我需要的脚本是做什么的，是打开该文件（这个地址是已知和常量）搜索最后一行，然后从该行中提取一个字符串，并将其写入一个不同的.TXT文件，从哪里我可以将其导入另一个特定的软件作为原始值。

中间（提取字符串）中的部分是相当简单的，但开隔离的最后一行是迄今为止对我来说太多。

谢谢大家的帮助！

的唯一方法是按行读入线，抓住最后一个。 – Andrey

您不必逐行读取文件。在这里看到：http://stackoverflow.com/questions/12577628/vbscript-seek-to-end-of-file-to-make-a-tail-command-script/ – MBu

答

dim path 
path = "fileName.txt" 
otherOption(path) 
function otherOption(fileName) 
    const read = 1 
    dim arrFileLines() 

    set objArgs = CreateObject("scripting.FileSystemObject") 
    if objArgs.FileExists(fileName) then 
     set objFile = objArgs.OpenTextFile(fileName,read) 
     i=0 
     do until objFile.AtEndOfStream   
      redim preserve arrFileLines(i)  
      arrFileLines(i) = objFile.ReadLine 
      i = i + 1       
     loop 
     objFile.Close 
    end if 
    wscript.Echo arrFileLines(i-1) 
end function

检索txt文件的最后一行有一个VBScript

相关推荐