删除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上的数字行（脚本）

回答

相关问题