[问题求助] 【已解决】VBS如何实现数控代码文件的合并？

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

10楼

发表于 2015-8-19 19:11 | 只看该作者

本帖最后由 pcl_test 于 2015-8-19 19:30 编辑

回复 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)
复制代码

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

9楼

发表于 2015-8-19 17:52 | 只看该作者

回复 8# pcl_test

好滴，以后会注意

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

8楼

发表于 2015-8-19 17:46 | 只看该作者

回复 7# raozhao2008

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

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

7楼

发表于 2015-8-19 16:15 | 只看该作者

本帖最后由 raozhao2008 于 2015-8-19 16:19 编辑

回复 6# pcl_test

联网的肯定不行啊，转码的问题，是不是只有中文不能正常显示，其他的都没问题啊，
如果是这样，那就不用转码了

还有我现在想用右键合并：在*.nc文件的右键添加“合并NC程序”，启动时就执行以下bat，

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

它会将路径传递给vbs，
合并NC程序.vbs

path = WScript.Arguments.Unnamed.Item(0)rem...这里的代码请完善以下，vbs我实在是看不懂、不会改，特别是替换的那一块麻烦您做些注释，多谢
复制代码

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

6楼

发表于 2015-8-19 12:15 | 只看该作者

本帖最后由 pcl_test 于 2015-8-19 19:03 编辑

回复 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')
复制代码

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

5楼

发表于 2015-8-19 11:36 | 只看该作者

回复 4# pcl_test

已上传

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

4楼

发表于 2015-8-19 11:20 | 只看该作者

回复 3# raozhao2008

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

Rank: 4

帖子: 113
积分: 488
技术: 0
捐助: 0
注册时间: 2008-9-5

3楼

发表于 2015-8-19 09:12 | 只看该作者

回复 2# pcl_test

多谢pcl_test 您这么晚还为这伤脑，多谢多谢。因为昨晚我这边突然短路停电了，重新编辑的帖子没保存，一些重点没有说明完全，
现在我已重新编辑完帖子，重点部分已在000.nc中说明，还望您多费心了。
还有我已测试过您的代码，发现

Rank: 8 Rank: 8

帖子: 3041
积分: 5333
技术: 685
捐助: 0
注册时间: 2014-10-19

2楼

发表于 2015-8-18 23:39 | 只看该作者

本帖最后由 pcl_test 于 2015-8-19 00:02 编辑

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
复制代码