刪除CSV上的數字行（腳本）

-7

我正在做一個腳本，它連接到一個web服務並生成一個包含股票數據的txt文件。之後，它會移動並重命名該文件。使用tablepress插件的WP站點每15分鐘導入一次txt文件。問題是我們需要在wp導入之前清除相當多的行。取消改裝成txt文件這樣表示：刪除CSV上的數字行（腳本）

122210099014 
PTA200/234 
202002800003 
902002890008 
20PHH4109/88/SC 
211301487560 
22PFL2807H/12/SC 
242201500511

而且應該轉換爲：

20PHH4109/88/SC 
22PFL2807H/12/SC

要刪除PTA線我用這個：

Set objFS = CreateObject("Scripting.FileSystemObject") 
Set objTextFile = objFS.OpenTextFile("Z:\COMUNIDAD\TP-VISION\Script\Stock\Stock.txt") 
Set objFS1 = objFS.CreateTextFile("Z:\COMUNIDAD\TP-VISION\Script\Stock\Editedwp.txt",true) 
objFS1.close 
set objTextFile2 = objFS.OpenTextFile("Z:\COMUNIDAD\TP-VISION\Script\Stock\ParsedWP.txt",8) 
strFile = "Z:\COMUNIDAD\TP-VISION\Script\Stock\Editedwp.txt" 

Do Until objTextFile.AtEndOfStream 
strLine = objTextFile.ReadLine 
If InStr(strLine,"PTA")> 0 Then 
    strLine = Replace(strLine,"DeleteMe",1) 
    Else 
objTextFile2.writeline strLine 
End If 

Loop 

set objTextFile = nothing 
set objTextFile2 = nothing 

objFS.copyFile "Z:\COMUNIDAD\TP-VISION\Script\Stock\EditedWP.txt", "Z:\COMUNIDAD\TP-VISION\Script\Stock\Stock.txt", true 
objfs.DeleteFile "Z:\COMUNIDAD\TP-VISION\Script\Stock\EditedWP.txt" 

set objfs = nothing 
set objfs1 = nothing

That'讓我刪除一些我不需要的字母數字行。 但是如何清除第一列只有數字內容的行？ 謝謝！

...我在想它，現在我看到刪除每行不超過13個字符，也會做這項工作。所以......可這VBA工程或轉換爲VBS

來源

2015-03-31 Lebrack

好的，那麼......你的問題是什麼？這不是一個代碼寫入服務。 – jonrsharpe 2015-03-31 15:12:12

很好。祝你好運。你有問題嗎？ – 2015-03-31 15:13:30

獨立您試圖做到這一點的語言，你可能需要使用這個表達式：

/^[0-9]+$/

盡力配合這正則表達式到每一行。如果匹配，請刪除該行。

正則表達式測試一行中是否只有數字。

來源

2015-03-31 15:19:20

嗨！最後，我可以用一些腳本來修改那個txt，但是現在我陷入了我需要做的最後一個mod。這裏是代碼： – Lebrack 2015-04-14 10:36:56

FOR/f「tokens = 1,3 delims = _」％A（STOCK.txt）do @echo％A％B >> WEB.txT – Lebrack 2015-04-14 10:50:22

當我執行它時，在CMD上，但在vbs腳本中運行相同的指令會返回錯誤：「Se esperaba un modificador」/「EXPECTED A MODIFIER」。爲什麼它失敗了？我需要添加任何東西？謝謝 – Lebrack 2015-04-14 10:52:17

刪除CSV上的數字行（腳本）

回答

相關問題