文本数据排列+++求源码

xzc08218

如图：把原数据相同文本按照相同个数排列，一个数相同、二个数相同、三个数相同
例如：一排跟四排，有一个数相同，把一排和四排的数据放到编辑框1
          求源码

列明

https://bbs.125.la/thread-14479258-1-1.html
寫好了，我發了開源帖子，你如果需要的話，可以去下載。
如果想在這裏下載，說一聲，我在這裏也上傳一下。
請理解一下我也要混分。

xzc08218

求大神写个源码

列明

用數列循環判斷就完事了。
寫一個字程序，對兩個同成員個數的數列進行（2層）循環判斷，返回元素相同的次數，
然後對10個數列每個數列分別與其餘9個數列傳進剛纔的子程序，判斷返回數。返回數相同的就放在一個編輯框內就行了。

xzc08218

列明 发表于 2019-10-14 15:18
用數列循環判斷就完事了。
寫一個字程序，對兩個同成員個數的數列進行（2層）循環判斷，返回元素相同的次 ...

大神，你说的这个我不懂，能不能给个源码？

列明

.版本 2

.子程序 求兩數列元素相同次數, 整数型
.参数 数列一, 整数型, 数组
.参数 數列二, 整数型, 数组
.局部变量 數列元素個數, 整数型
.局部变量 数列一循環計次, 整数型
.局部变量 數列二循環計次, 整数型
.局部变量 相同次數, 整数型

相同次數 ＝ 0
數列元素個數 ＝ 取数组成员数 (数列一)
.如果真 (數列元素個數 ＝ 取数组成员数 (數列二))
    .计次循环首 (數列元素個數, 数列一循環計次)
        .计次循环首 (數列元素個數, 數列二循環計次)
            .如果真 (数列一 [数列一循環計次] ＝ 數列二 [數列二循環計次])
                相同次數 ＝ 相同次數 ＋ 1
            .如果真结束

        .计次循环尾 ()
    .计次循环尾 ()
.如果真结束
返回 (相同次數)

.子程序 zhuyao
.局部变量 数列一, 整数型, , "1"
.局部变量 數列二, 整数型, , "1"
.局部变量 数列三, 整数型, , "1"
.局部变量 數列四, 整数型, , "1"
.局部变量 数列五, 整数型, , "1"
.局部变量 數列六, 整数型, , "1"
.局部变量 数列七, 整数型, , "1"
.局部变量 循環計次一, 整数型
.局部变量 循環計次二, 整数型
.局部变量 xiantongcishu, 整数型


数列一 ＝ { 1, 2, 3, 4, 5, 6, 7, 71, 0, 0, 0, 0, 0, 0 }
數列二 ＝ { 11, 12, 13, 14, 15, 16, 17, 71, 72, 0, 0, 0, 0, 0 }
数列三 ＝ { 21, 22, 23, 24, 25, 26, 27, 71, 72, 73, 0, 0, 0, 0 }
數列四 ＝ { 31, 32, 33, 34, 35, 36, 37, 71, 72, 73, 74, 0, 0, 0 }
数列五 ＝ { 41, 42, 43, 44, 45, 46, 47, 71, 72, 73, 74, 75, 0, 0 }
數列六 ＝ { 51, 52, 53, 54, 55, 56, 57, 71, 72, 73, 74, 75, 76, 0 }
数列七 ＝ { 61, 62, 63, 64, 65, 66, 67, 71, 72, 73, 74, 75, 76, 77 }


xiantongcishu ＝ 求兩數列元素相同次數 (数列一, 數列二)
输出调试文本 (“xiantongcishu=” ＋ 到文本 (xiantongcishu))

xiantongcishu ＝ 求兩數列元素相同次數 (数列一, 数列三)
输出调试文本 (“xiantongcishu=” ＋ 到文本 (xiantongcishu))
xiantongcishu ＝ 求兩數列元素相同次數 (数列一, 數列四)
输出调试文本 (“xiantongcishu=” ＋ 到文本 (xiantongcishu))
xiantongcishu ＝ 求兩數列元素相同次數 (数列一, 数列五)
输出调试文本 (“xiantongcishu=” ＋ 到文本 (xiantongcishu))
xiantongcishu ＝ 求兩數列元素相同次數 (数列一, 數列六)
输出调试文本 (“xiantongcishu=” ＋ 到文本 (xiantongcishu))
xiantongcishu ＝ 求兩數列元素相同次數 (数列一, 数列七)
输出调试文本 (“xiantongcishu=” ＋ 到文本 (xiantongcishu))




* xiantongcishu=31
* xiantongcishu=25
* xiantongcishu=19
* xiantongcishu=13
* xiantongcishu=7
* xiantongcishu=1

xzc08218

列明 发表于 2019-10-14 15:53
.版本 2

.子程序 求兩數列元素相同次數, 整数型

编辑框1里面的数据怎么放到 数列 里面？

列明

xzc08218 发表于 2019-10-14 16:53
编辑框1里面的数据怎么放到 数列 里面？

數列文本=分割文本（編輯框。內容，#換行符）
數列一文本=分割文本（數列文本【1】，“ ”）
計次循環首（取數組成員數（數列一文本），循環計次）
數列一【循環計次】=到整數（數列一文本【循環計次】）
計次循環尾（）
這是數列一的，別的也都同理。

。子程序 ，編輯框內容到數列，整數型，，返回取得的數列成員數
。參數 ，編輯框內容 ，文本型
。參數， 欲取的數列序號， 整數型
。參數， 取得的數列， 整數型，數組
。變量，數列文本組，文本型，，1
。變量，數列文本，文本型
。變量，數列文本列，文本型，，1
。變量，循環計次，整數型
數列文本組=分割文本（編輯框內容，#換行符）
數列文本=數列文本組【欲取的數列序號】
數列文本列=分割文本（編輯框內容，“ ”）
重定義數組（取得的數列，取數組成員數（數列文本列））
計次循環首（取數組成員數（數列文本列），循環計次）
取得的數列【循環計次】=到整數（數列文本列【循環計次】）
計次循環尾（）
返回（取數組成員數（取得的數列））

xzc08218

參數， 取得的數列， 整數型，數組
错误(10060): 被取地址的子程序“編輯框內容到數列”的参数 3 不能为数组
取消数组，下面这个又不行
重定义数组 (取得的數列, 假, 取数组成员数 (數列文本列))
错误(10050): “重定义数组”库命令的参数“欲重定义的数组变量”需要直接提供数组变量
这咋搞？

xzc08218

列明 发表于 2019-10-14 18:23
數列文本=分割文本（編輯框。內容，#換行符）
數列一文本=分割文本（數列文本【1】，“ ”）
計次循環 ...

大哥，这咋整？
參數， 取得的數列， 整數型，數組
错误(10060): 被取地址的子程序“編輯框內容到數列”的参数 3 不能为数组
取消数组，下面这个又不行
重定义数组 (取得的數列, 假, 取数组成员数 (數列文本列))
错误(10050): “重定义数组”库命令的参数“欲重定义的数组变量”需要直接提供数组变量