[更新376#2825]PECMD2012.1.80.13_Win32_64.多窗口多线程.裸机系统2.3.3.1+18M酷M...

527104427

mdyblog 发表于 2022-3-29 18:11
Ver29 可以了：

原版2003的好了。老大再搞搞原版XP吧，此命令返回空：part list floppy ,d

https://www.123pan.com/s/NflRVv-DOLSh

mdyblog

527104427 发表于 2022-3-29 19:38
原版2003的好了。老大再搞搞原版XP吧，此命令返回空：part list floppy ,d

https://www.123pan.com/s/ ...

XP 软盘 竟然没有 ClassGUID

泮安宁

M大，用此段代码复制大量文件时，会程序无响应，有办法解决吗

1. CALL @WIN1
   
2. _SUB SetEdit1
   
3.     BROW MntDir1,*%Edit1%, 请选择目标目录
   
4.     FIND $%Mntdir1%=,!ENVI @Edit2=%Mntdir1%
   
5. _END
   
6. _SUB SetEdit2
   
7.     BROW txtfile,, 请选择列表文件, txt
   
8.     FIND $%txtFILE%=,!ENVI @Edit1=%txtFILE%
   
9. _END
   
10. _SUB SetEdit3
    
11.     BROW MntDir2,*%Edit3%, 请选择源文件目录
    
12.     FIND $%Mntdir2%=,!ENVI @Edit3=%Mntdir2%
    
13. _END
    
14. 
    
15. //配置文件或者PECMD程序放入目标目录
    
16. _SUB CCC
    
17.     READ %Edit1%,%n%,a  //文件列表
    
18.     FIND $%a%<>,{
    
19.     FDIR D=%a%
    
20.     MDIR %D%
    
21.     //MESS %a%
    
22.     FILE %Edit3%\%a%=>%Edit2%\%a%
    
23.     }
    
24.     CALC n=%n%+1
    
25. _END
    
26. _SUB Start
    
27. READ %Edit1%,-1,m     //行号，小于0表示读取行数
    
28. SET n=1
    
29. LOOP %n%<=%m%,CALL CCC
    
30. MESS 复制完成
    
31. _END
    
32. _SUB WIN1,W400H200,文件复制
    
33. LABE -left Label1,W400H20,注意：需将本程序移动到目标目录运行！,,0xFF0000
    
34. LABE Label,L20W120H30T22,请选择列表文件:
    
35. EDIT Edit1,L150W150H20T20,
    
36. ITEM Item1,L300W50H24T18,浏览,CALL SetEdit2
    
37. LABE Labe2,L20W135H20T58,请选择目标目录：
    
38. EDIT Edit2,L150W150H20T55,
    
39. ITEM Item2,L300W50H24T53,浏览,CALL SetEdit1
    
40. LABE Labe3,L20W135H20T90,绝对路径同级目录：
    
41. EDIT Edit3,L150W150H20T88,
    
42. ITEM Item3,L300W50H24T86,浏览,CALL SetEdit3
    
43. ITEM Item4,L140W100H50T110,开始复制,CALL Start

复制代码

527104427

mdyblog 发表于 2022-3-29 22:25
XP 软盘 竟然没有 ClassGUID

哦

527104427

泮安宁 发表于 2022-3-30 00:38
M大，用此段代码复制大量文件时，会程序无响应，有办法解决吗

CALL Start 改为 Thread* CALL Start 就行啦

泮安宁

527104427 发表于 2022-3-30 00:42
CALL Start 改为 Thread* CALL Start 就行啦

好的，谢谢5大

mdyblog

527104427 发表于 2022-3-30 00:41
哦

重新下载：

红毛樱木

mdyblog 发表于 2022-3-29 22:25
XP 软盘 竟然没有 ClassGUID

这么说，有的精简版pe把注册表里的classguid精简了是不是也会一样的问题

泮安宁

FILE命令有没有办法返回执行结果，成功，失败，文件不存在

红毛樱木

泮安宁 发表于 2022-3-30 03:32
FILE命令有没有办法返回执行结果，成功，失败，文件不存在

每一条pecmd命令，都会返回%&ERROR%

mdyblog

红毛樱木 发表于 2022-3-30 03:08
这么说，有的精简版pe把注册表里的classguid精简了是不是也会一样的问题

说的这个：

XP没有这一项。
这个是系统本身的原因吧。

红毛樱木

mdyblog 发表于 2022-3-30 08:37
说的这个：

XP没有这一项。

这个是系统预先内置到注册表中的，后期通过驱动inf的安装也可能会增加。

527104427

mdyblog 发表于 2022-3-30 03:05
重新下载：

好了

泮安宁

多行文本编辑框可以指定在哪一行写入吗，LOOP循环的时候，用ENVI在编辑框写入内容，每次循环都是在第一行写入内容，之前循环过的内容不能保留，请问M大该怎么操作

红毛樱木

泮安宁 发表于 2022-3-30 16:49
多行文本编辑框可以指定在哪一行写入吗，LOOP循环的时候，用ENVI在编辑框写入内容，每次循环都是在第一行写 ...

内容存到一个变量里，操作变量，再写入EDIT覆盖呢？

泮安宁

红毛樱木 发表于 2022-3-30 16:57
内容存到一个变量里，操作变量，再写入EDIT覆盖呢？

能否给个示例，想不到该怎么写

mdyblog

泮安宁 发表于 2022-3-30 16:49
多行文本编辑框可以指定在哪一行写入吗，LOOP循环的时候，用ENVI在编辑框写入内容，每次循环都是在第一行写 ...

SET  &V=%MEMO1%
WRIT *v  &V,+2,XXXX
ENVI @MEMO1=%&V%

泮安宁

mdyblog 发表于 2022-3-30 19:44
SET  &V=%MEMO1%
WRIT *v  &V,+2,XXXX
ENVI @MEMO1=%&V%

好的

616813768

感谢楼主分享

泮安宁

代码1

1. _SUB CCC
   
2.     READ "D:\1.txt",%n%,content  
   
3.     FIND $%content%<>,{
   
4.     FDIR Dir=%content%
   
5.     MDIR "%Dir%"  
   
6.     FILE "D:\3\%content%"=>"%&CurDir%\%content%"   
   
7.     }
   
8.     CALC n=%n%+1     
   
9. _END
   
10.     READ "D:\1.txt",-1,m     
    
11.     SET n=1
    
12.     LOOP %n%<=%m%,CALL CCC
    
13.     MESS 复制完成

复制代码

代码2

1. FILE D:\3\Windows\System32\CatRoot\{F750E6C3-38EE-11D1-85E5-00C04FC295EE}\LanguageFeatures-WordBreaking-zh-hans-Package~31bf3856ad364e35~amd64~~10.0.*.*.cat=>D:\winpe

复制代码

请教M大，为什么代码1不支持通配符，而代码2支持通配符呢，代码1循环的时候带通配符的文件全部复制失败，不带通配符的文件可以复制成功，然后用代码2测试了一下带通配符的文件，却可以复制成功
看帮助说目录不能有通配符，但FDIR返回的路径是不带通配符的

红毛樱木

泮安宁 发表于 2022-3-31 16:46
代码1
代码2
请教M大，为什么代码1不支持通配符，而代码2支持通配符呢，代码1循环的时候带通配符的文件全 ...

代码1，重现问题的完整文件都打包上传。

泮安宁

红毛樱木 发表于 2022-3-31 17:04
代码1，重现问题的完整文件都打包上传。

Desktop.7z (16.79 KB, 下载次数: 12)

2022-3-31 17:15 上传

点击文件名下载附件

mdyblog

泮安宁 发表于 2022-3-31 16:46
代码1
代码2
请教M大，为什么代码1不支持通配符，而代码2支持通配符呢，代码1循环的时候带通配符的文件全 ...

FILE "D:\3\%content%"=>"%&CurDir%\%content%"

---
FILE SRC=>DST
DST 总是 不能带统配符号
只有 DST为一  目录 时， SRC才可带通配符。匹配的多个源  都拷贝到给子目录下。

FILE "D:\3\%content%"=>"%&CurDir%\%content%"
改为：

FORX  $D:\3\%content%,&&f,,
{  FDIR &sd=%&f%                //源目录
   MSTR &sdx=6,0,%&sd%
   FDIR &fd=%&CurDir%\%sdx%    //子目录
   PATH %&fd%                               //创建子目录
   FILE "%&f%"=>"%&fd%"
}

如果确认不带子目录切都不是目录
FORX  $D:\3\%content%,&&f,,
{  MSTR &fx=6,0,%&f%
   FILE "%&f%"=>"%&CurDir%\%&fx%"   //文件拷贝
}

泮安宁

mdyblog 发表于 2022-3-31 23:35
FILE "D:\3\%content%"=>"%&CurDir%\%content%"

---

谢谢M大，经过你提示我发现我变量搞错了，改了变量就好了，不过又学到了一招用FORX

mdyblog

泮安宁 发表于 2022-3-31 16:46
代码1
代码2
请教M大，为什么代码1不支持通配符，而代码2支持通配符呢，代码1循环的时候带通配符的文件全 ...

另外
不用1行1行地读。
全读进来，再FORX *NL 自动1行1行处理。
READ "D:\1.txt",*r,&&all
FORX *NL &all,&&content,
{
  FIND *&content=, EXIT -  //跳过空行
  FDIR  &&Dir=%&content%
  PATH  "%&Dir%"  
  FILE "D:\3\%&content%"=>"%&CurDir%\%&content%"   
}

泮安宁

mdyblog 发表于 2022-4-1 11:34
另外
不用1行1行地读。
全读进来，再FORX *NL 自动1行1行处理。

那一次全读进来的话，进度条不知道该怎么处理了

mdyblog

泮安宁 发表于 2022-4-1 12:57
那一次全读进来的话，进度条不知道该怎么处理了

一样 的。
进度提示 在
FORX  *NL 下面的 {}中

READ *r本身的时间几乎为0 ，不用考虑。 只用考虑 FORX  *NL {}

泮安宁

mdyblog 发表于 2022-4-1 14:29
一样 的。
进度提示 在
FORX  *NL 下面的 {}中

谢谢m大，刚刚整明白了，其实FORX *NL本身就是个循环，对吧

mdyblog

泮安宁 发表于 2022-4-1 14:37
谢谢m大，刚刚整明白了，其实FORX *NL本身就是个循环，对吧

对

泮安宁

1. SET a=1
   
2. IFEX [ $%a%=2 | $%a%=3 ],{
   
3. FIND $%a%=2,MESS A! MESS B
   
4. }! MESS C

复制代码

这样写为什么不行呢