取系统变量名，某后缀名默认的打开程序以及附加参数

StarAdmire

取系统变量名，某后缀名默认的打开程序以及附加参数
（此函数已封入懒人模块不过是v1.3）
（需调用懒人模块）

开始之前请允许我啰嗦一下，我之前发过一个关于加密软件的帖子，那时候吹嘘“哪怕是.txt文件都可以”，但实际并不行，尴尬了然后我为了解决这个问题，就在那里研究
我想到的一个方法是，取到  当点击这个文件时（后缀名非.exe）结束进程并不是结束这个文件的进程（话说单凭文件名好像取不到进程），而是结束打算结束打开这个文件的软件（已经被证实不可行！不要轻易尝试！）
然后我在研究如何实现的时候，发现了一篇这样的文章
关键信息其实就这几句话

他为我们介绍了CMD的两个命令，assoc 查找所有扩展名（后缀名）对应的系统扩展名（后缀名）本身的命名，
摸索.ing
assoc + 后缀名 查找此后缀名对应的系统后缀名

还有
ftype 可以返回系统的扩展名（后缀名）命名
摸索.ing
ftype + 系统扩展名（后缀名）本身的命名 查找此后缀名对应的默认打开应用以及附加参数


细心的人肯定发现了，他那里会有一串%SystemRoot%，系统中的全局变量，
那这样不就是取不到完整路径了？？
额，一番河狸的尝试.ing

不亏是俺


好，现在知道了这么多后
再配合上懒人模块中早已封入的CMD匿名管道

  

子程序名	返回值类型	公开	备 注
系统_取系统变量名_LR	文本型		通过DOS命令取系统变量名的值
参数名	类 型	参考	可空	数组	备 注
变量名称	文本型				%变量名%

变量名	类 型	静态	数组	备 注
执行结果	文本型

CMD_初始化_LR ()
执行结果 ＝ CMD_执行_LR (“echo ” ＋ 变量名称)
CMD_结束_LR ()
返回 (执行结果)

子程序名	返回值类型	公开	备 注
系统_取后缀名的系统命名_LR	文本型		通过DOS命令取系统的扩展名命名
参数名	类 型	参考	可空	数组	备 注
后缀名	文本型				包含“.”的后缀名

变量名	类 型	静态	数组	备 注
执行结果	文本型

CMD_初始化_LR ()
执行结果 ＝ CMD_执行_LR (“assoc ” ＋ 后缀名)
' .txt=txtfile
执行结果 ＝ 子文本替换 (执行结果, 后缀名 ＋ “=”, “”, , , 真)  ' 删除多余文本
CMD_结束_LR ()
返回 (执行结果)

子程序名	返回值类型	公开	备 注
系统_取后缀名默认打开程序_LR	文本型		通过DOS命令取打开此后缀名文件的默认程序以及参数
参数名	类 型	参考	可空	数组	备 注
后缀名	文本型				注：此后缀名需要系统名称！ 系统_取后缀名的系统命名

变量名	类 型	静态	数组	备 注
执行结果	文本型
正则	正则表达式类
i	整数型

CMD_初始化_LR ()
执行结果 ＝ CMD_执行_LR (“ftype ” ＋ 后缀名)
' txtfile=%SystemRoot%\system32\NOTEPAD.EXE %1
执行结果 ＝ 子文本替换 (执行结果, 后缀名 ＋ “=”, “”, , , 真)
正则.创建 (“%.*?%”, 执行结果, , , , )  ' 匹配执行结果中所含的系统变量
计次循环首 (正则.取匹配数量 (), i)  ' 系统变量替换
执行结果 ＝ 子文本替换 (执行结果, 正则.取匹配文本 (i, ), 系统_取系统变量名_LR (正则.取匹配文本 (i, )), , , 真)
计次循环尾 ()
CMD_结束_LR ()
返回 (执行结果)

.版本 2<br /> <br /> .子程序 系统_取系统变量名_LR, 文本型, 公开, 通过DOS命令取系统变量名的值<br /> .参数 变量名称, 文本型, , %变量名%<br /> .局部变量 执行结果, 文本型<br /> <br /> CMD_初始化_LR ()<br /> 执行结果 ＝ CMD_执行_LR (“echo ” ＋ 变量名称)<br /> CMD_结束_LR ()<br /> 返回 (执行结果)<br /> <br /> .子程序 系统_取后缀名的系统命名_LR, 文本型, 公开, 通过DOS命令取系统的扩展名命名<br /> .参数 后缀名, 文本型, , 包含“.”的后缀名<br /> .局部变量 执行结果, 文本型<br /> <br /> CMD_初始化_LR ()<br /> 执行结果 ＝ CMD_执行_LR (“assoc ” ＋ 后缀名)<br /> ' .txt=txtfile<br /> 执行结果 ＝ 子文本替换 (执行结果, 后缀名 ＋ “=”, “”, , , 真)  ' 删除多余文本<br /> CMD_结束_LR ()<br /> 返回 (执行结果)<br /> <br /> .子程序 系统_取后缀名默认打开程序_LR, 文本型, 公开, 通过DOS命令取打开此后缀名文件的默认程序以及参数<br /> .参数 后缀名, 文本型, , 注：此后缀名需要系统名称！ 系统_取后缀名的系统命名<br /> .局部变量 执行结果, 文本型<br /> .局部变量 正则, 正则表达式类<br /> .局部变量 i, 整数型<br /> <br /> CMD_初始化_LR ()<br /> 执行结果 ＝ CMD_执行_LR (“ftype ” ＋ 后缀名)<br /> ' txtfile=%SystemRoot%\system32\NOTEPAD.EXE %1<br /> 执行结果 ＝ 子文本替换 (执行结果, 后缀名 ＋ “=”, “”, , , 真)<br /> 正则.创建 (“%.*?%”, 执行结果, , , , )  ' 匹配执行结果中所含的系统变量<br /> .计次循环首 (正则.取匹配数量 (), i)  ' 系统变量替换<br />     执行结果 ＝ 子文本替换 (执行结果, 正则.取匹配文本 (i, ), 系统_取系统变量名_LR (正则.取匹配文本 (i, )), , , 真)<br /> .计次循环尾 ()<br /> <br /> CMD_结束_LR ()<br /> 返回 (执行结果)

收工！


哦对了，看在作者大大将这么细的分上

咳咳

FUYUEPC

不错不错..爱研究...

Suky

迷迷糊糊

784326742

能写不？能写和删就给力了，也就是管理

wjswzj0

新技能已get√

xtavoxing

不错不错..爱研究...

sinewtec

感谢分享，很给力！~

tmdgdx

谢谢分享！

大师兄是反派

感谢分享，很给力！~