方式來界定你的文字VBSCRIPT

Question

我有以下輸入

「SMEGOLD 1312」，20131127文件， 「C」， 「11606233E」， 「SMX」， 「C」，20131009,170028」 SMX」， 「70207」，0,1,4699,0,469.9， 「USD」，0 「」 0 「」 0 「」 0 「」，0,0,0,8062696， 「」， 0,20131009,170028， 「系統」， 「25228」， 「」， 「166」， 「121328200000223」，785,0， 「」， 「」， 「」， 「」， 「」， 「」， 「」， 「」，「」，「」，「」，「」，0,0,0，「」，20131009,170028，「ADVMEE」

「SMEGOLD 1312」，20131127，「C」，「11606233E」， 「SMX」， 「C」，20131009,170030， 「SMX」， 「70207」，0,1,4699,0,469.9， 「USD」，0 「」 0 「」 0 「」 0「， 」，0,0,0,8062697， 「」，0,20131009,170031， 「系統」， 「25228」， 「」， 「167」， 「121328200000223」，786,0， 「」， 「」， 「」 「」，「」，「」，「」，「」，「」，「」，「」，「」，0,0,0，「」，20131009,170028，「ADVMEE」

我想實現的只是獲取該行的第一個報價文本。示例「SMEGOLD 1312」。然後，我想將提取文本的前3個字符和最後4個字符追加到行尾。

然後移到下一行繼續執行，直到文件結束。

任何建議將是一個很大的幫助。我嘗試使用objRegEx.Pattern但無濟於事

感謝

Answer 1

使用切割/組的第一個字段TOTO（1）的模式，其前三（2）和它的最後四（3）個字符，其餘全部（4）。然後創造性地更換：

>> s = Replace("'SMEGOLD 1312','whatever','ADVMEE'", "'", """") 
>> WScript.Echo s 
>> Set r = New RegExp 
>> r.Pattern = "^((""[^""]{3})[^""]*?([^""]{4}""))(.*)" 
>> WScript.Echo r.Replace(s,"$1$4,$2$3") 
>> 
"SMEGOLD 1312","whatever","ADVMEE" 
"SMEGOLD 1312","whatever","ADVMEE","SME1312"