求一0000到9999所有数结合

1024078948

思路：编辑框1的ABC88+算出来的0000到9999数结合+编辑框2的99
生成一个组合到编辑框3。编辑框3可以保存TXT出来
0000到9999的所有数结合。谢谢了各位高手
数结合.e (3.12 KB, 下载次数: 4)

2020-10-27 00:42 上传

点击文件名下载附件

目分

如此，这般~

神盾科学

1. .版本 2
   
2. .支持库 spec
   
3. 
   
4. .子程序 子程序1
   
5. .局部变量 i, 整数型
   
6. .局部变量 a, 整数型
   
7. 
   
8. .计次循环首 (100000, i)
   
9.     a ＝ 到长整数 (“0000”) ＋ i
   
10.     .判断开始 (取文本长度 (到文本 (a)) ＝ 1)
    
11.         编辑框3.内容 ＝ 编辑框1.内容 ＋ “000” ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
12.     .判断 (取文本长度 (到文本 (a)) ＝ 2)
    
13.         编辑框3.内容 ＝ 编辑框1.内容 ＋ “00” ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
14.     .判断 (取文本长度 (到文本 (a)) ＝ 3)
    
15.         编辑框3.内容 ＝ 编辑框1.内容 ＋ “0” ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
16.     .判断 (取文本长度 (到文本 (a)) ＝ 4)
    
17.         编辑框3.内容 ＝ 编辑框1.内容 ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
18.     .默认
    
19. 
    
20.     .判断结束
    
21.     调试输出 (a, 编辑框3.内容)
    
22.     处理事件 ()
    
23.     延时 (1000)
    
24. .计次循环尾 ()
    
25. 
    
26. 
    
27. .子程序 保存文件
    
28. 
    
29. 写到文件 (取运行目录 () ＋ “\dx.txt”, 到字节集 (编辑框3.内容))
    

复制代码

这个是笨办法

神盾科学

1. .版本 2
   
2. 
   
3. .子程序 子程序1
   
4. .局部变量 i, 整数型
   
5. .局部变量 a, 整数型
   
6. 
   
7. .计次循环首 (10000, i)
   
8.     a ＝ 到整数 (“0”) ＋ i
   
9.     .判断开始 (取文本长度 (到文本 (a)) ＝ 1)
   
10.         编辑框3.内容 ＝ 编辑框1.内容 ＋ “000” ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
11.     .判断 (取文本长度 (到文本 (a)) ＝ 2)
    
12.         编辑框3.内容 ＝ 编辑框1.内容 ＋ “00” ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
13.     .判断 (取文本长度 (到文本 (a)) ＝ 3)
    
14.         编辑框3.内容 ＝ 编辑框1.内容 ＋ “0” ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
15.     .判断 (取文本长度 (到文本 (a)) ＝ 4)
    
16.         编辑框3.内容 ＝ 编辑框1.内容 ＋ 到文本 (a) ＋ 编辑框2.内容 ＋ #换行符 ＋ 编辑框3.内容
    
17.     .默认
    
18. 
    
19.     .判断结束
    
20.     .如果真 (a ＝ 9999)
    
21.         跳出循环 ()
    
22.     .如果真结束
    
23.     处理事件 ()
    
24.     延时 (1)
    
25. .计次循环尾 ()
    
26. 
    
27. 
    
28. .子程序 保存文件
    
29. 
    
30. 写到文件 (取运行目录 () ＋ “\dx.txt”, 到字节集 (编辑框3.内容))
    

复制代码

462085537

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
_按钮2_被单击

写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (编辑框3.内容))

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
变量	整数型

编辑框3.内容 ＝ “”
计次循环首 (9999, 变量)
处理事件 ()
如果 (取文本长度 (到文本 (变量)) ＝ 1)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ “000” ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符
如果 (取文本长度 (到文本 (变量)) ＝ 2)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ “00” ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符
如果 (取文本长度 (到文本 (变量)) ＝ 3)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ “0” ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符
如果 (取文本长度 (到文本 (变量)) ＝ 4)
编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符






如果真 (变量 ＝ 9999)
跳出循环 ()

计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 写到文件 (取运行目录 () ＋ “\1.txt”, 到字节集 (编辑框3.内容))<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 变量, 整数型<br /> <br /> 编辑框3.内容 ＝ “”<br /> .计次循环首 (9999, 变量)<br />     处理事件 ()<br />     .如果 (取文本长度 (到文本 (变量)) ＝ 1)<br />         编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ “000” ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符<br />     .否则<br />         .如果 (取文本长度 (到文本 (变量)) ＝ 2)<br />             编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ “00” ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符<br />         .否则<br />             .如果 (取文本长度 (到文本 (变量)) ＝ 3)<br />                 编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ “0” ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符<br />             .否则<br />                 .如果 (取文本长度 (到文本 (变量)) ＝ 4)<br />                     编辑框3.内容 ＝ 编辑框3.内容 ＋ 编辑框1.内容 ＋ 到文本 (变量) ＋ 编辑框2.内容 ＋ #换行符<br />                 .否则<br /> <br />                 .如果结束<br /> <br />             .如果结束<br /> <br />         .如果结束<br /> <br />     .如果结束<br /> <br />     .如果真 (变量 ＝ 9999)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

目分

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

启动线程 (&子程序1, , )

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
局_头	文本型
局_尾	文本型
i	整数型
局_中	文本型
局_组合	文本型
局_结果	文本型

局_头 ＝ 编辑框1.内容
局_尾 ＝ 编辑框2.内容
计次循环首 (10000, i)
局_中 ＝ 取文本右边 (到文本 (100000 ＋ i － 1), 4)
局_组合 ＝ 局_头 ＋ 局_中 ＋ 局_尾
' 调试输出 (局_组合)
局_结果 ＝ 局_结果 ＋ 局_组合 ＋ #换行符
计次循环尾 ()
编辑框3.内容 ＝ 局_结果

子程序名	返回值类型	公开	备 注
_按钮2_被单击

写到文件 (取运行目录 () ＋ “\结果.txt”, 到字节集 (编辑框3.内容))

i支持库列表	支持库注释
EThread	多线程支持库

.版本 2<br /> .支持库 EThread<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 启动线程 (&子程序1, , )<br /> <br /> .子程序 子程序1<br /> .局部变量 局_头, 文本型<br /> .局部变量 局_尾, 文本型<br /> .局部变量 i, 整数型<br /> .局部变量 局_中, 文本型<br /> .局部变量 局_组合, 文本型<br /> .局部变量 局_结果, 文本型<br /> <br /> 局_头 ＝ 编辑框1.内容<br /> 局_尾 ＝ 编辑框2.内容<br /> .计次循环首 (10000, i)<br />     局_中 ＝ 取文本右边 (到文本 (100000 ＋ i － 1), 4)<br />     局_组合 ＝ 局_头 ＋ 局_中 ＋ 局_尾<br />     ' 调试输出 (局_组合)<br />     局_结果 ＝ 局_结果 ＋ 局_组合 ＋ #换行符<br /> .计次循环尾 ()<br /> 编辑框3.内容 ＝ 局_结果<br /> <br /> .子程序 _按钮2_被单击<br /> <br /> 写到文件 (取运行目录 () ＋ “\结果.txt”, 到字节集 (编辑框3.内容))

1024078948

浪神 发表于 2020-10-27 09:22
[e=3].版本 2
.支持库 EThread

留个Q我还想弄个00-99的组合  

比如：ABC86加00到99的数集合+DF91

红色的包

1024078948

1024078948 发表于 2020-10-27 09:50
留个Q我还想弄个00-99的组合  

比如：ABC86加00到99的数集合+DF91

弄好了，谢谢大家

京A·00001

百d吧  说不定会有机会,找到源码

京A·00001

百d吧  说不定会有机会,找到源码