-1

首先，我想说我不是程序员，所以这对某些人来说可能是基本的，但对我来说肯定不是！

我要完成的任务是检索从服务器自动导入的数据文件的一些字符。数据存储在 CSV 或选项卡式 .txt 文件中的行中，每行包含日期和一些数值。格式始终相同，每次输入新值时，文件仅增长一行。

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

中间的部分（提取字符串）相当简单，但打开和隔离最后一行对我来说太过分了。

感谢大家的帮助！

4

1 回答 1

1 
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
于 2013-10-29T00:14:21.140 回答