【问题少年】数组问题 给数组成员标号问题

灌水帝

Text={小明，小明，小明，大明，小红，大明，大红，大红，小明，大明，大明}

现有文本型数组Text   

现在给数组的每一个成员标上序号（用自定义类型）
孖生兄弟.名字=小明
孖生兄弟.编号=1
孖生兄弟.名字=小明
孖生兄弟.编号=2
孖生兄弟.名字=小明
孖生兄弟.编号=3
孖生兄弟.名字=小明
孖生兄弟.编号=4

孖生兄弟.名字=小红
孖生兄弟.编号=1

孖生兄弟.名字=大明
孖生兄弟.编号=1
孖生兄弟.名字=大明
孖生兄弟.编号=2
孖生兄弟.名字=大明
孖生兄弟.编号=3
孖生兄弟.名字=大明
孖生兄弟.编号=4



如何实现以上的编号呢  每个名字相同的为一组 然后给相同名字的标上序号
当然Text数组 还可能有其他人名       方法应该是用计次循环 但是新手比较吃力 特来论坛发问。

xiaowg

  

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

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
text	文本型		0
a	节点
n	整数型
b	整数型
c	文本型		0
m	整数型

text ＝ { “小明”, “小明”, “小明”, “大明”, “小红”, “大明”, “大红”, “大红”, “小明”, “大明”, “大明” }
计次循环首 (取数组成员数 (text), n)
如果真 (a.加入属性 (text [n], 1) ＝ 假)
a.取数值 (text [n], b)
a.修改属性 (text [n], b ＋ 1)

计次循环尾 ()
a.取全部属性名 (c)
计次循环首 (取数组成员数 (c), n)
a.取数值 (c [n], b)
计次循环首 (b, m)
调试输出 (“孖生兄弟.名字=” ＋ c [n])
调试输出 (“孖生兄弟.编号=” ＋ 到文本 (n))
计次循环尾 ()
调试输出 (“-------------------”)
计次循环尾 ()

i支持库列表	支持库注释
EDataStructure	数据结构支持库
spec	特殊功能支持库

.版本 2<br /> .支持库 EDataStructure<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 text, 文本型, , "0"<br /> .局部变量 a, 节点<br /> .局部变量 n, 整数型<br /> .局部变量 b, 整数型<br /> .局部变量 c, 文本型, , "0"<br /> .局部变量 m, 整数型<br /> <br /> text ＝ { “小明”, “小明”, “小明”, “大明”, “小红”, “大明”, “大红”, “大红”, “小明”, “大明”, “大明” }<br /> .计次循环首 (取数组成员数 (text), n)<br />     .如果真 (a.加入属性 (text [n], 1) ＝ 假)<br />         a.取数值 (text [n], b)<br />         a.修改属性 (text [n], b ＋ 1)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> a.取全部属性名 (c)<br /> .计次循环首 (取数组成员数 (c), n)<br />     a.取数值 (c [n], b)<br />     .计次循环首 (b, m)<br />         调试输出 (“孖生兄弟.名字=” ＋ c [n])<br />         调试输出 (“孖生兄弟.编号=” ＋ 到文本 (n))<br />     .计次循环尾 ()<br />     调试输出 (“-------------------”)<br /> .计次循环尾 ()

冯古屋

炮制虽繁必不敢省人工,品位虽贵必不敢减物力
自己选择用自行车，还硬要别人给你配个宝马的发动机？
最好的方法，就是换个方式去处理这些数据。

灌水帝

冯古屋 发表于 2016-8-14 22:21
炮制虽繁必不敢省人工,品位虽贵必不敢减物力
自己选择用自行车，还硬要别人给你配个宝马的发动机？
最好 ...

开宝马的有解决方法?   新人求帮。。。

福仔

还是用节点吧,处理速度比较快 可以设置属性为 1 2 3 4  属性值对应  小明1  小明2  小明3  小明4...如果还嫌能存少的话,可以用xml

小淡

1. .版本 2
   
2. 
   
3. .局部变量 Text, 文本型, , "11"
   
4. .局部变量 i, 整数型
   
5. .局部变量 临时, 孖生兄弟
   
6. .局部变量 孖生兄弟, 孖生兄弟, , "0"
   
7. .局部变量 临时Text, 文本型
   
8. 
   
9. Text ＝ { “小明”, “小明”, “小明”, “大明”, “小红”, “大明”, “大红”, “大红”, “小明”, “大明”, “大明” }
   
10. .计次循环首 (取数组成员数 (Text), i)
    
11.     临时Text ＝ 临时Text ＋ Text [i] ＋ “|”
    
12.     临时.名字 ＝ Text [i]
    
13.     临时.编号 ＝ 文本_取出现次数 (临时Text, Text [i] ＋ “|”)
    
14.     加入成员 (孖生兄弟, 临时)
    
15. .计次循环尾 ()
    

复制代码

方向盘

xiaowg 发表于 2016-8-14 22:39
[e=0].版本 2
.支持库 EDataStructure
.支持库 spec

你试了没？可行吗？

灌水帝

xiaowg 发表于 2016-8-14 22:39
[e=0].版本 2
.支持库 EDataStructure
.支持库 spec

你测试了么....  成员的编号成固定了...   你再看下题目 .....

灌水帝

小淡 发表于 2016-8-14 22:42

谢谢这位兄台 但是在遇到超级大的Text数组的时候 你这个非常影响效率.....

灌水帝

xiaowg 发表于 2016-8-14 22:39
[e=0].版本 2
.支持库 EDataStructure
.支持库 spec

我将代码改了下 就OK了  谢谢兄台。