字符串文本，如何取出任意位置的文本

benha1

例子比如：

一个字符串为：“红绿红蓝青紫橙” ，字符串里面的颜色和数量都是随机的， 如何按照顺序取出比如第一个文本是 红，第2个文本是 绿。会根据 字符串个数来自动读取出来呢

chenboss

  

变量名	类 型	静态	数组	备 注
a	文本型
i	整数型

a ＝ “红绿红蓝青紫橙”
计次循环首 (取文本长度 (a) ÷ 2, i)
调试输出 (取任意位置字 (a, i))
计次循环尾 ()

子程序名	返回值类型	公开	备 注
取任意位置字	文本型
参数名	类 型	参考	可空	数组	备 注
文本	文本型
位置	整数型

返回 (取文本中间 (文本, 位置 × 2 － 1, 2))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 a, 文本型<br /> .局部变量 i, 整数型<br /> <br /> a ＝ “红绿红蓝青紫橙”<br /> <br /> .计次循环首 (取文本长度 (a) ÷ 2, i)<br />     调试输出 (取任意位置字 (a, i))<br /> .计次循环尾 ()<br /> <br /> <br /> .子程序 取任意位置字, 文本型<br /> .参数 文本, 文本型<br /> .参数 位置, 整数型<br /> <br /> 返回 (取文本中间 (文本, 位置 × 2 － 1, 2))

awqear

  

变量名	类 型	静态	数组	备 注
str	文本型
j_i	整数型
str_arr	文本型		0

str ＝ “红绿红蓝青紫橙”
文本_逐字分割 (str, str_arr)
计次循环首 (取数组成员数 (str_arr), j_i)
调试输出 (“第” ＋ 到文本 (j_i) ＋ “位:” ＋ str_arr [j_i])
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .局部变量 str, 文本型<br /> .局部变量 j_i, 整数型<br /> .局部变量 str_arr, 文本型, , "0"<br /> <br /> str ＝ “红绿红蓝青紫橙”<br /> 文本_逐字分割 (str, str_arr)<br /> <br /> .计次循环首 (取数组成员数 (str_arr), j_i)<br />     调试输出 (“第” ＋ 到文本 (j_i) ＋ “位:” ＋ str_arr [j_i])<br /> .计次循环尾 ()

[20:22:59] * Windows 10
[20:22:59] * “第1位:红”
[20:22:59] * “第2位:绿”
[20:22:59] * “第3位:红”
[20:22:59] * “第4位:蓝”
[20:22:59] * “第5位:青”
[20:22:59] * “第6位:紫”
[20:22:59] * “第7位:橙”

真IKUN

主子分割。然后单个取出现次数，最后比较次数即可，加点币给你写一个

xf702

不知道是不是你要的，试试看吧。。

太阳您母亲

  

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

变量名	类 型	静态	数组	备 注
颜色字符串	文本型
颜色数组	文本型		0
颜色统计	整数型		0
i	整数型
j	整数型
临时颜色	文本型
临时次数	整数型

颜色字符串 ＝ “红绿红蓝青紫橙红蓝红”
' 将字符串按字符分割成数组
文本_逐字分割 (颜色字符串, 颜色数组)
' 初始化统计数组
重定义数组 (颜色统计, 假, 取数组成员数 (颜色数组))
' 统计每个颜色出现的次数
计次循环首 (取数组成员数 (颜色数组), i)
颜色统计 [i] ＝ 1
计次循环首 (i － 1, j)
如果真 (颜色数组 [i] ＝ 颜色数组 [j])
颜色统计 [j] ＝ 颜色统计 [j] ＋ 1
颜色统计 [i] ＝ 0
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
' 按出现次数排序（从大到小）
计次循环首 (取数组成员数 (颜色数组) － 1, i)
计次循环首 (取数组成员数 (颜色数组) － i, j)
如果真 (颜色统计 [j] ＜ 颜色统计 [j ＋ 1])
' 交换颜色
临时颜色 ＝ 颜色数组 [j]
颜色数组 [j] ＝ 颜色数组 [j ＋ 1]
颜色数组 [j ＋ 1] ＝ 临时颜色
' 交换次数
临时次数 ＝ 颜色统计 [j]
颜色统计 [j] ＝ 颜色统计 [j ＋ 1]
颜色统计 [j ＋ 1] ＝ 临时次数

计次循环尾 ()
计次循环尾 ()
' 输出结果
计次循环首 (取数组成员数 (颜色数组), i)
如果真 (颜色统计 [i] ＞ 0)
输出调试文本 (“颜色：” ＋ 颜色数组 [i] ＋ “，出现次数：” ＋ 到文本 (颜色统计 [i]))

计次循环尾 ()

子程序名	返回值类型	公开	备 注
文本_逐字分割	整数型		将给定的指定文本,逐字分割出来,目前只支持半角格式[V雪落有声V],支持换行符，由论坛用户[CakeEternal ]修改
参数名	类 型	参考	可空	数组	备 注
文本	文本型				需要取出来的汉字
返回的数组	文本型				保存取出结果的数组变量

变量名	类 型	静态	数组	备 注
A	整数型
V	文本型
C	整数型
D	整数型
E	文本型
F	整数型

A ＝ 1
E ＝ 到半角 (文本)
重定义数组 (返回的数组, 假, 取文本长度 (E))
判断循环首 (A ≤ 取文本长度 (E))
V ＝ 取文本中间 (E, A, 1)
C ＝ 取代码 (V, )
如果真 (C ＝ 13)
如果真 (取代码 (取文本中间 (E, A ＋ 1, 1), ) ＝ 10)
V ＝ #换行符
A ＝ A ＋ 1

如果真 (C ＜ 0)
V ＝ 取文本中间 (E, A, 2)
A ＝ A ＋ 1
F ＝ F ＋ 1
返回的数组 [F] ＝ V
A ＝ A ＋ 1
判断循环尾 ()
重定义数组 (返回的数组, 真, F)
返回 (取数组成员数 (返回的数组))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 颜色字符串, 文本型<br /> .局部变量 颜色数组, 文本型, , "0"<br /> .局部变量 颜色统计, 整数型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 临时颜色, 文本型<br /> .局部变量 临时次数, 整数型<br /> <br /> 颜色字符串 ＝ “红绿红蓝青紫橙红蓝红”<br /> <br /> ' 将字符串按字符分割成数组<br /> 文本_逐字分割 (颜色字符串, 颜色数组)<br /> <br /> <br /> ' 初始化统计数组<br /> 重定义数组 (颜色统计, 假, 取数组成员数 (颜色数组))<br /> <br /> ' 统计每个颜色出现的次数<br /> .计次循环首 (取数组成员数 (颜色数组), i)<br />     颜色统计 <i> ＝ 1<br />     .计次循环首 (i － 1, j)<br />         .如果真 (颜色数组 <i> ＝ 颜色数组 [j])<br />             颜色统计 [j] ＝ 颜色统计 [j] ＋ 1<br />             颜色统计 <i> ＝ 0<br />             跳出循环 ()<br /> <br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> ' 按出现次数排序（从大到小）<br /> .计次循环首 (取数组成员数 (颜色数组) － 1, i)<br />     .计次循环首 (取数组成员数 (颜色数组) － i, j)<br />         .如果真 (颜色统计 [j] ＜ 颜色统计 [j ＋ 1])<br />             ' 交换颜色<br />             临时颜色 ＝ 颜色数组 [j]<br />             颜色数组 [j] ＝ 颜色数组 [j ＋ 1]<br />             颜色数组 [j ＋ 1] ＝ 临时颜色<br /> <br />             ' 交换次数<br />             临时次数 ＝ 颜色统计 [j]<br />             颜色统计 [j] ＝ 颜色统计 [j ＋ 1]<br />             颜色统计 [j ＋ 1] ＝ 临时次数<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> ' 输出结果<br /> .计次循环首 (取数组成员数 (颜色数组), i)<br />     .如果真 (颜色统计 <i> ＞ 0)<br />         输出调试文本 (“颜色：” ＋ 颜色数组 <i> ＋ “，出现次数：” ＋ 到文本 (颜色统计 <i>))<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> .子程序 文本_逐字分割, 整数型, 公开, 将给定的指定文本,逐字分割出来,目前只支持半角格式[V雪落有声V],支持换行符，由论坛用户[CakeEternal ]修改<br /> .参数 文本, 文本型, , 需要取出来的汉字<br /> .参数 返回的数组, 文本型, 参考 可空 数组, 保存取出结果的数组变量<br /> .局部变量 A, 整数型<br /> .局部变量 V, 文本型<br /> .局部变量 C, 整数型<br /> .局部变量 D, 整数型<br /> .局部变量 E, 文本型<br /> .局部变量 F, 整数型<br /> <br /> A ＝ 1<br /> E ＝ 到半角 (文本)<br /> 重定义数组 (返回的数组, 假, 取文本长度 (E))<br /> .判断循环首 (A ≤ 取文本长度 (E))<br />     V ＝ 取文本中间 (E, A, 1)<br />     C ＝ 取代码 (V, )<br />     .如果真 (C ＝ 13)<br />         .如果真 (取代码 (取文本中间 (E, A ＋ 1, 1), ) ＝ 10)<br />             V ＝ #换行符<br />             A ＝ A ＋ 1<br />         .如果真结束<br /> <br />     .如果真结束<br />     .如果真 (C ＜ 0)<br />         V ＝ 取文本中间 (E, A, 2)<br />         A ＝ A ＋ 1<br />     .如果真结束<br />     F ＝ F ＋ 1<br />     返回的数组 [F] ＝ V<br />     A ＝ A ＋ 1<br /> .判断循环尾 ()<br /> 重定义数组 (返回的数组, 真, F)<br /> 返回 (取数组成员数 (返回的数组))

这样？

hbjssf

1111111111111111111111111111111111