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

红毛樱木

泮安宁 发表于 2022-3-28 20:23
请教m大
我写了这部分代码循环读取文本文件的内容，我这里是假设该文本文件有9行，依次读取每一行，但如果 ...

1. _SUB CCC
   
2.     READ D:\新建文本文档.txt,%n%,a
   
3.     MESS %a%
   
4.     CALC n=%n%+1
   
5. _END
   
6. READ D:\新建文本文档.txt,-1,m     //行号，小于0表示读取行数
   
7. SET n=1
   
8. LOOP %n%<=%m%,CALL CCC
   

复制代码

你的循环好像不对吧。。。

泮安宁

红毛樱木 发表于 2022-3-28 20:45
你的循环好像不对吧。。。

感谢回复，我运行没问题啊。。。

mdyblog

泮安宁 发表于 2022-3-28 20:23
请教m大
我写了这部分代码循环读取文本文件的内容，我这里是假设该文本文件有9行，依次读取每一行，但如果 ...

READ D:\新建文本文档.txt,-1,&&Lines

%&Lines% 就是行数

泮安宁

mdyblog 发表于 2022-3-28 23:06
READ D:\新建文本文档.txt,-1,&&Lines

%&Lines% 就是行数

谢谢m大

mdyblog

红毛樱木 发表于 2022-3-28 20:39
它这个示例代码，每个LPOS返回的错误码%&error%都是0xFFFFFFFF80070057，属于“特殊异类”情况不？

对
0xFFFFFFFF80070057 (x64)   0x80070057（x86）
表示 参数非法（E_INVALIDARG）。

mdyblog

527104427 发表于 2022-3-27 11:42
反馈两个问题：

Ver28 非法也顺便 初始化了。
1:
set v0=
set v1=
set v2=1234
RPOS* * * ,v2=v1,,v0  
TEAM  MESS. [%v2%] [%&ERROR%]| EXIT
//1234 ==> [0][0xFFFFFFFF80070057]


2:
part list floppy 支持NT6, Win8x64-VM 测试通过

红毛樱木

mdyblog 发表于 2022-3-28 23:34
Ver28 非法也顺便 初始化了。
1:
set v0=

这里的%&error%属于非法的，为0是不是有点不合适？   

527104427

mdyblog 发表于 2022-3-28 23:34
Ver28 非法也顺便 初始化了。
1:
set v0=

还有点小问题，在XP下正常，在2003下却返回 [-77  A: ]
PART -floppy list drv A:,a
MESS [%a%]

mdyblog

527104427 发表于 2022-3-29 08:07
还有点小问题，在XP下正常，在2003下却返回 [-77  A: ]
PART -floppy list drv A:,a
MESS [%a%]

细细哥的  完整的 USBwin2003.VHD 用MBT-VM测试：

527104427

mdyblog 发表于 2022-3-29 10:30
细细哥的  完整的 USBwin2003.VHD 用MBT-VM测试：

估计R2版2003跟不带R2版还是有区别的。

mdyblog

527104427 发表于 2022-3-29 11:44
估计R2版2003跟不带R2版还是有区别的。

你那是完整系统吗？ 用完整系统测试。 不要用PE测试。

527104427

mdyblog 发表于 2022-3-29 12:09
你那是完整系统吗？ 用完整系统测试。 不要用PE测试。

是完整系统，我再装一个R2试试看。

527104427

mdyblog 发表于 2022-3-29 12:09
你那是完整系统吗？ 用完整系统测试。 不要用PE测试。

果然，打一下R2补丁就不一样了，这系统真是坑人

红毛樱木

泮安宁 发表于 2022-3-28 20:58
感谢回复，我运行没问题啊。。。

你这里的%n%始终是1吧

mdyblog

527104427 发表于 2022-3-29 13:22
果然，打一下R2补丁就不一样了，这系统真是坑人

你把 没有打补丁的 VM系统打包发到123pan上，我测试下。

泮安宁

红毛樱木 发表于 2022-3-29 13:40
你这里的%n%始终是1吧

对哦，写的时候没注意，但我今天又试了一下，运行起来确实可以依次加一循环下去，不知道啥原因
顺便在请教一下大佬，如果文本文件有一行没有字符，是空格或者回车，有没有办法跳过这一行

红毛樱木

泮安宁 发表于 2022-3-29 14:28
对哦，写的时候没注意，但我今天又试了一下，运行起来确实可以依次加一循环下去，不知道啥原因
顺便在请 ...

1. _SUB CCC
   
2.     READ D:\新建文本文档.txt,%n%,a
   
3.     FIND $%a%<>,MESS %a%
   
4.     CALC n=%n%+1
   
5. _END
   
6. READ D:\新建文本文档.txt,-1,m     //行号，小于0表示读取行数
   
7. SET n=1
   
8. LOOP %n%<=%m%,CALL CCC
   

复制代码

泮安宁

红毛樱木 发表于 2022-3-29 14:34

谢谢

527104427

mdyblog 发表于 2022-3-29 14:26
你把 没有打补丁的 VM系统打包发到123pan上，我测试下。

https://www.123pan.com/s/NflRVv-ROLSh
上传了一个虚拟机硬盘和一个ISO源文件。

mdyblog

527104427 发表于 2022-3-29 15:19
https://www.123pan.com/s/NflRVv-ROLSh
上传了一个虚拟机硬盘和一个ISO源文件。

Ver29 可以了：

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%