再谈直选与组选转换问题

haojiong888

A\组选转直选转换问题
比如1、号码组选012 001 000转换成直选有012 021 201 210 102 120 010 001 100 000    要求待转换的数据不限制个数

       2、号码组选002  005转换成直选有002 020 200 005 500 050   要求待转换的数据不限制个数
       3、号码组选000  转换成直选有000  要求待转换的数据不限制个数
简单的说就是以下012 001 000 002  005 000转换以后得到012 021 201 210 102 120  010 100 000 002 020 200 005 500 050

======================================

B\组选转直选转换问题
比如1、号码直选012 021 201 210 102 120  100 001 转换成组选有012 001

       2、号码直选002 020 200  080 008 800转换成组选有002 008
       3、号码直选000  转换成组选有000
简单的说就是以下直选012 021 201 210 102 120  100 001 002 020 200  080 008 800 000转换成组选得到 012 001 002 008 000

企鹅号525150138

例子 (2).e (1.04 MB, 下载次数: 14)

2022-7-7 20:15 上传

点击文件名下载附件

rectdbszy

定这类 软件少说几千，在这回答的不说也知道少。还是转定制吧。

走一回

做起来还是可以的，只是太麻烦了，两个自定义子程序（参数），应该就能解决的

补充内容 (2022-7-6 11:10):
据说用什么递归来着

走一回

应该就是这个效果

haojiong888

走一回 发表于 2022-7-6 11:52
应该就是这个效果

麻烦发下源码啊

走一回

自己再加上四个编辑框吧

  

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

子程序名	返回值类型	公开	备 注
单个字符串子程序A
参数名	类 型	参考	可空	数组	备 注
参_单个字符串文本	文本型

变量名	类 型	静态	数组	备 注
全部文本的数组	文本型		0
i	整数型
头部数字	文本型
最终组合	文本型		0
复制的组合	文本型		0
后两个数字	文本型

文本_逐字分割 (参_单个字符串文本, 全部文本的数组)
复制的组合 ＝ 全部文本的数组
变量循环首 (1, 3, 1, i)
头部数字 ＝ 复制的组合 [i]
删除成员 (全部文本的数组, i, 1)
加入成员 (全部文本的数组, 头部数字)
后两个数字 ＝ 全部文本的数组 [1] ＋ 全部文本的数组 [2]
加入成员 (最终组合, 头部数字 ＋ 后两个数字)
编辑框2.加入文本 (头部数字 ＋ 后两个数字 ＋ #换行符 )
后两个数字 ＝ 全部文本的数组 [2] ＋ 全部文本的数组 [1]
加入成员 (最终组合, 头部数字 ＋ 后两个数字)
编辑框2.加入文本 (头部数字 ＋ 后两个数字 ＋ #换行符 )
全部文本的数组 ＝ 复制的组合
变量循环尾 ()

子程序名	返回值类型	公开	备 注
单个字符串子程序B
参数名	类 型	参考	可空	数组	备 注
参_单个字符串文本	文本型

变量名	类 型	静态	数组	备 注
全部文本的数组	文本型		0
最终数组	文本型

文本_逐字分割 (参_单个字符串文本, 全部文本的数组)
数组_排序 (全部文本的数组, 0, )
编辑框4.加入文本 (全部文本的数组 [1] ＋ 全部文本的数组 [2] ＋ 全部文本的数组 [3] ＋ #换行符 )

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

变量名	类 型	静态	数组	备 注
全部行字符串数组A	文本型		0
全部行字符串数组B	文本型		0
i	整数型

编辑框2.内容 ＝ “”
编辑框4.内容 ＝ “”
全部行字符串数组A ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (全部行字符串数组A), i)
单个字符串子程序A (全部行字符串数组A [i])
计次循环尾 ()
全部行字符串数组B ＝ 分割文本 (编辑框3.内容, #换行符, )
计次循环首 (取数组成员数 (全部行字符串数组B), i)
单个字符串子程序B (全部行字符串数组B [i])
计次循环尾 ()

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 单个字符串子程序A<br /> .参数 参_单个字符串文本, 文本型<br /> .局部变量 全部文本的数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 头部数字, 文本型<br /> .局部变量 最终组合, 文本型, , "0"<br /> .局部变量 复制的组合, 文本型, , "0"<br /> .局部变量 后两个数字, 文本型<br /> <br /> 文本_逐字分割 (参_单个字符串文本, 全部文本的数组)<br /> 复制的组合 ＝ 全部文本的数组<br /> .变量循环首 (1, 3, 1, i)<br />     头部数字 ＝ 复制的组合 <i><br />     删除成员 (全部文本的数组, i, 1)<br />     加入成员 (全部文本的数组, 头部数字)<br />     后两个数字 ＝ 全部文本的数组 [1] ＋ 全部文本的数组 [2]<br />     加入成员 (最终组合, 头部数字 ＋ 后两个数字)<br />     编辑框2.加入文本 (头部数字 ＋ 后两个数字 ＋ #换行符)<br /> <br />     后两个数字 ＝ 全部文本的数组 [2] ＋ 全部文本的数组 [1]<br />     加入成员 (最终组合, 头部数字 ＋ 后两个数字)<br />     编辑框2.加入文本 (头部数字 ＋ 后两个数字 ＋ #换行符)<br />     全部文本的数组 ＝ 复制的组合<br /> .变量循环尾 ()<br /> <br /> .子程序 单个字符串子程序B<br /> .参数 参_单个字符串文本, 文本型<br /> .局部变量 全部文本的数组, 文本型, , "0"<br /> .局部变量 最终数组, 文本型<br /> <br /> 文本_逐字分割 (参_单个字符串文本, 全部文本的数组)<br /> 数组_排序 (全部文本的数组, 0, )<br /> 编辑框4.加入文本 (全部文本的数组 [1] ＋ 全部文本的数组 [2] ＋ 全部文本的数组 [3] ＋ #换行符)<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 全部行字符串数组A, 文本型, , "0"<br /> .局部变量 全部行字符串数组B, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 编辑框2.内容 ＝ “”<br /> 编辑框4.内容 ＝ “”<br /> 全部行字符串数组A ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (全部行字符串数组A), i)<br />     单个字符串子程序A (全部行字符串数组A <i>)<br /> .计次循环尾 ()<br /> <br /> 全部行字符串数组B ＝ 分割文本 (编辑框3.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (全部行字符串数组B), i)<br />     单个字符串子程序B (全部行字符串数组B <i>)<br /> .计次循环尾 ()

haojiong888

走一回 发表于 2022-7-6 13:55
自己再加上四个编辑框吧
[e=3].版本 2

转换完成以后有相同的都不会自动删除啊

走一回

haojiong888 发表于 2022-7-6 20:36
转换完成以后有相同的都不会自动删除啊

有相同的，那是你原来的数里有相同的数字，不关我事的，反正按要求完成源码还送你了。
去个重复都不会，你这是真的白嫖吗？