pcl_test

Set fso = CreateObject("Scripting.FileSystemObject")
Set files = fso.GetFolder(".").Files
tmp1 = "%"&vbCrLf
tmp2 = "(END)"&vbCrLf&"/G08 P1"&vbCrLf&"G54"&vbCrLf
For Each file In files
    If LCase(Right(file.Name, 3)) = ".nc" Then
        tmp1 = tmp1&"("&file.Name&")"&vbCrLf
        Set f = fso.OpenTextFile(file,1)
        txt = txt&reTxT(f.ReadAll,"^/G08 P1\r?\nG54$|^%$")
        f.Close
    End If
Next
fso.CreateTextFile(".\000.nc", 2).WriteLine tmp1&tmp2&txt&"%"
Msgbox "合并完成"

Function reTxT(txt,patrn)
    Set re = New RegExp
    re.Pattern = patrn
    re.Global = True
    re.MultiLine = True
    reTxT = re.Replace(txt,"")
End Function
复制代码

pcl_test

回复 3# raozhao2008

居然不是gbk编码，打包上传你的nc文件，可发网盘分享链接

pcl_test

回复 3# raozhao2008

保存为bat文件运行

1>1/* :
echo off
dir /b *.nc|cscript -nologo -e:jscript "%~0"
exit /b
*/

var loadText = function (strFileIn,strCharset){
    var stream = new ActiveXObject('ADODB.Stream');
    stream.Type = 2;
    stream.Mode = 3;
    stream.Charset = strCharset;
    stream.Open();
    stream.LoadFromFile(strFileIn);
    stream.Position = 0;
    return stream.ReadText;
}

var saveText = function (strArg,strFileOut,strCharset){
    var stream = new ActiveXObject('ADODB.Stream');
    stream.Mode = 3;
    stream.Type = 2;
    stream.Charset = strCharset;
    stream.Open();
    stream.WriteText(strArg);
    return stream.SaveToFile(strFileOut,2);
}

var txt = '';
var fso = new ActiveXObject('Scripting.Filesystemobject');
var StdIn = fso.GetStandardStream(0);
var tmp1 = '%\r\n';
var tmp2 = '(END)\r\n/G08 P1\r\nG54\r\n';
while(!StdIn.AtEndOfStream) {
    var file = StdIn.ReadLine();
    tmp1 = tmp1+'('+file+')\r\n';
    txt = txt+loadText(file,'utf-8').replace(/^\/G08 P1\r?\nG54$|^M30\r?\n%$|^%$|^O0100/mg,'');
}
txt = tmp1+tmp2+txt+'M30\r\n%';
saveText(txt.replace(/(\r?\n)+/g,'\r\n'),'000.nc','utf-8')
复制代码

pcl_test

回复 7# raozhao2008


    本版规则
1、求助时，务必在顶楼一次性把问题交代清楚，建议给出完整有针对性的样本，样本过大可发网盘分享链接。勿发无意义的标题
2、使用 code 标记把代码部分括起来（单击回复框的 <> 按钮，复制粘贴代码进去），以便复制。问题解决后，请编辑顶楼帖子在标题前面注明[已解决]
http://www.bathome.net/thread-3473-1-1.html

pcl_test

回复 9# raozhao2008
6楼已改为离线版

关于传路径的问题，然而……
bat

@echo off
start "正在获取数据，请稍后..." /min "D:\合并NC程序.vbs" "%cd%"
复制代码

vbs

Set Ws = CreateObject("wscript.shell")
If Wscript.Arguments.Count=0 Then
Wscript.Quit
End If
msgbox Wscript.Arguments(0)
复制代码