【类封装】文本循环池

刘一缘

描述：设置文本后会根据换行符进行分割，之后循环从第一行读到最后一行再回到第一行，以此类推构成循环的文本行应用类。
可扩展：字节集，自定义类型，整数型或其他常见类型
已尝试：文本型，字节集

  

窗口程序集名	保 留	保 留	备 注
LoopText
变量名	类 型	数组	备 注
aBin	文本型	0
sub	整数型

子程序名	返回值类型	公开	备 注
_初始化			当基于本类的对象被创建后，此方法会被自动调用

子程序名	返回值类型	公开	备 注
_销毁			当基于本类的对象被销毁前，此方法会被自动调用

子程序名	返回值类型	公开	备 注
设置文本	整数型
参数名	类 型	参考	可空	数组	备 注
文本数据	文本型

aBin ＝ 分割文本 (文本数据, #换行符, )
返回 (取数组成员数 (aBin))

子程序名	返回值类型	公开	备 注
读取文本	文本型

如果真 (取数组成员数 (aBin) ＝ 0)
返回 (“”)
sub ＝ sub ＋ 1
如果真 (sub ＞ 取数组成员数 (aBin))
sub ＝ 1
返回 (aBin [sub])

.版本 2<br /> <br /> .程序集 LoopText<br /> .程序集变量 aBin, 文本型, , "0"<br /> .程序集变量 sub, 整数型<br /> <br /> .子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用<br /> <br /> <br /> <br /> .子程序 设置文本, 整数型, 公开<br /> .参数 文本数据, 文本型<br /> <br /> aBin ＝ 分割文本 (文本数据, #换行符, )<br /> 返回 (取数组成员数 (aBin))<br /> <br /> .子程序 读取文本, 文本型, 公开<br /> <br /> .如果真 (取数组成员数 (aBin) ＝ 0)<br />     返回 (“”)<br /> .如果真结束<br /> sub ＝ sub ＋ 1<br /> .如果真 (sub ＞ 取数组成员数 (aBin))<br />     sub ＝ 1<br /> .如果真结束<br /> 返回 (aBin [sub])

zjff00

支持开源~！感谢分享

pojiezhe

支持开源~！感谢分享

798924038

还可以再优化一下 把数组下标上限记录一下

这就是爱情

因为有你，温暖了四季~

tyler998

支持开源~！感谢分享

梦境吖

支持开源~感谢分享

深圳梦

支持开源~！感谢分享

gaoqing

谢谢分享

longgekaifa

谢谢分享。