Question

最重要的是，我想说我不是程序员，所以这对某些人来说可能是基本的，但肯定不适合我！

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

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

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

感谢大家的帮助！

Answer 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

使用VBscript检索txt文件的最后一行

1 个答案: