檢索txt文件的最後一行有一個VBScript

-1

之前的所有，我想說的是，我不是一個程序員，所以這可能是基本的一些人，但肯定不適合我！檢索txt文件的最後一行有一個VBScript

，我要完成的任務是，讀出從服務器自動導入數據文件的某些字符。數據以CSV或標籤的.txt文件形式存儲在行中，每行包含日期和一些數字值。格式總是相同的，每次輸入一個新值時，只有一行文件增長。

我需要的腳本是做什麼的，是打開該文件（這個地址是已知和常量）搜索最後一行，然後從該行中提取一個字符串，並將其寫入一個不同的.TXT文件，從哪裏我可以將其導入另一個特定的軟件作爲原始值。

中間（提取字符串）中的部分是相當簡單的，但開隔離的最後一行是迄今爲止對我來說太多。

謝謝大家的幫助！

來源

2013-10-28 Franco Nardelli

的唯一方法是按行讀入線，抓住最後一個。 – 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

來源

2013-10-29 00:14:21 mhs

檢索txt文件的最後一行有一個VBScript

回答

相關問題