求助

dzxiaojie

包会来听同样方之快未可少桌的朋背子梦起后好你鸟相

请问下 怎么将上面的一段文字 组成4个字一组 让它组出所有可以组成的4个字 而且不重复

misf

修改了一下 这回速度快了 看看是不是你想要的

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 文本, 文本型
   
7. .局部变量 文本数组, 文本型, , "0"
   
8. .局部变量 文本数组2, 文本型, , "0"
   
9. .局部变量 文本数组3, 文本型, , "0"
   
10. .局部变量 文本数组4, 文本型, , "0"
    
11. .局部变量 文本数组5, 文本型, , "0"
    
12. .局部变量 计次, 整数型
    
13. .局部变量 计次2, 整数型
    
14. .局部变量 计次3, 整数型
    
15. .局部变量 计次4, 整数型
    
16. .局部变量 四组文本, 文本型
    
17. .局部变量 一, 文本型
    
18. .局部变量 二, 文本型
    
19. .局部变量 三, 文本型
    
20. .局部变量 四, 文本型
    
21. .局部变量 a, 整数型
    
22. .局部变量 临时文本, 文本型
    
23. 
    
24. 文本 ＝ “包会来听同样方之快未可少桌的朋背子梦起后好你鸟相”
    
25. a ＝ 1
    
26. .计次循环首 (取文本长度 (文本) ÷ 2, )
    
27.     临时文本 ＝ 取文本中间 (文本, a, 2)
    
28.     加入成员 (文本数组, 临时文本)
    
29.     a ＝ a ＋ 2
    
30. .计次循环尾 ()
    
31. 清除数组 (文本数组2)
    
32. 文本数组2 ＝ 文本数组
    
33. .计次循环首 (取数组成员数 (文本数组), 计次)
    
34.     一 ＝ 文本数组 [计次]
    
35.     清除数组 (文本数组3)
    
36.     删除成员 (文本数组2, 1, )
    
37.     文本数组3 ＝ 文本数组2
    
38.     .计次循环首 (取数组成员数 (文本数组2), 计次2)
    
39.         二 ＝ 文本数组2 [计次2]
    
40.         清除数组 (文本数组4)
    
41.         删除成员 (文本数组3, 1, )
    
42.         文本数组4 ＝ 文本数组3
    
43.         .计次循环首 (取数组成员数 (文本数组3), 计次3)
    
44.             三 ＝ 文本数组3 [计次3]
    
45.             删除成员 (文本数组4, 1, )
    
46.             .计次循环首 (取数组成员数 (文本数组4), 计次4)
    
47.                 四 ＝ 文本数组4 [计次4]
    
48.                 四组文本 ＝ 四组文本 ＋ 一 ＋ 二 ＋ 三 ＋ 四 ＋ #换行符
    
49.             .计次循环尾 ()
    
50.         .计次循环尾 ()
    
51.     .计次循环尾 ()
    
52. .计次循环尾 ()
    
53. 写到文件 (“c:\1.txt”, 到字节集 (四组文本))
    

复制代码

dzxiaojie

怎么不来个高手指点下呢

misf

看看这是不是你想要的

1. .版本 2
   
2. 
   
3. .程序集 窗口程序集1
   
4. 
   
5. .子程序 __启动窗口_创建完毕
   
6. .局部变量 文本, 文本型
   
7. .局部变量 文本数组, 文本型, , "0"
   
8. .局部变量 计次, 整数型
   
9. .局部变量 计次2, 整数型
   
10. .局部变量 计次3, 整数型
    
11. .局部变量 计次4, 整数型
    
12. .局部变量 四组文本, 文本型
    
13. .局部变量 一, 文本型
    
14. .局部变量 二, 文本型
    
15. .局部变量 三, 文本型
    
16. .局部变量 四, 文本型
    
17. .局部变量 a, 整数型
    
18. .局部变量 临时文本, 文本型
    
19. 
    
20. 文本 ＝ “包会来听同样方之快未可少桌的朋背子梦起后好你鸟相”
    
21. a ＝ 1
    
22. .计次循环首 (取文本长度 (文本) ÷ 2, )
    
23.     临时文本 ＝ 取文本中间 (文本, a, 2)
    
24.     加入成员 (文本数组, 临时文本)
    
25.     输出调试文本 (临时文本)
    
26.     a ＝ a ＋ 2
    
27. .计次循环尾 ()
    
28. .计次循环首 (取数组成员数 (文本数组), 计次)
    
29.     一 ＝ 文本数组 [计次]
    
30.     .计次循环首 (取数组成员数 (文本数组), 计次2)
    
31.         .判断开始 (计次 ≠ 计次2)
    
32.             二 ＝ 文本数组 [计次2]
    
33.             .计次循环首 (取数组成员数 (文本数组), 计次3)
    
34.                 .判断开始 (计次 ≠ 计次3 且 计次2 ≠ 计次3)
    
35.                     三 ＝ 文本数组 [计次3]
    
36.                     .计次循环首 (取数组成员数 (文本数组), 计次4)
    
37. 
    
38.                         .判断开始 (计次 ≠ 计次4 且 计次2 ≠ 计次4 且 计次3 ≠ 计次4)
    
39.                             四 ＝ 文本数组 [计次4]
    
40.                             四组文本 ＝ 四组文本 ＋ 一 ＋ 二 ＋ 三 ＋ 四 ＋ #换行符
    
41.                         .默认
    
42. 
    
43.                         .判断结束
    
44. 
    
45.                     .计次循环尾 ()
    
46.                 .默认
    
47. 
    
48.                 .判断结束
    
49. 
    
50. 
    
51.             .计次循环尾 ()
    
52.         .默认
    
53. 
    
54.         .判断结束
    
55. 
    
56.     .计次循环尾 ()
    
57. .计次循环尾 ()
    
58. 写到文件 (取当前目录 () ＋ “\1.txt”, 到字节集 (四组文本))
    
59. 
    

复制代码

dzxiaojie

启动后占用内存太厉害 而且看不到程序画面啊

dzxiaojie

misf 发表于 2013-9-17 21:30
看看这是不是你想要的

启动后占用内存太厉害 而且好长时间看不到程序画面啊