文字分割

GT白嫖怪

如题文字分割，7个文字一组然后换一行继续.

Tenacitys

.版本 2
.支持库 spec

.子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行
.局部变量 str, 文本型
.局部变量 i, 整数型
.局部变量 str2, 文本型

str ＝ “abcdefgabcdefgabcdefgabcdefgabcdefgabcdefgabcdefg”
str2 ＝ “”

.计次循环首 (取文本长度 (str), i)
    .如果真 (i ％ 7 ＝ 0)
        str2 ＝ str2 ＋ “----” ＋ 取文本中间 (str, i, 7)

    .如果真结束

.计次循环尾 ()
调试输出 (str2)

返回 (0)  ' 可以根据您的需要返回任意数值

鹏书

GT白嫖怪

源码在这忘记上传了

鹏书

18250506900 发表于 2023-8-14 02:29
源码在这忘记上传了

  

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

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

文本 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本), i)
编辑框1.加入文本 (文本 [i])
如果真 (i ％ 6 ＝ 0)
编辑框1.加入文本 ( #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), i)<br />     编辑框1.加入文本 (文本 <i>)<br />     .如果真 (i ％ 6 ＝ 0)<br />         编辑框1.加入文本 (#换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

鹏书

  

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

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

文本 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (文本), i)
编辑框1.加入文本 (文本 [i])
如果真 (i ％ 7 ＝ 0)
编辑框1.加入文本 ( #换行符 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 文本 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (文本), i)<br />     编辑框1.加入文本 (文本 <i>)<br />     .如果真 (i ％ 7 ＝ 0)<br />         编辑框1.加入文本 (#换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

7个是余7

帅气与大侠

新建文本文档 3.e (153.18 KB, 下载次数: 1)

2023-8-14 02:41 上传

点击文件名下载附件

  

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

变量名	类 型	静态	数组	备 注
快速文本对象	快速文本对象
分割的文本	文本型		0
I	整数型
文本	文本型

分割的文本 ＝ 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (分割的文本), I)
快速文本对象.添加 (分割的文本 [I])
如果真 (I ％ 7 ＝ 0)
快速文本对象.添加 ( #换行符 )

计次循环尾 ()
编辑框1.内容 ＝ 快速文本对象.取文本 (, )

i支持库列表	支持库注释
commobj	通用对象支持库

.版本 2<br /> .支持库 commobj<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 快速文本对象, 快速文本对象<br /> .局部变量 分割的文本, 文本型, , "0"<br /> .局部变量 I, 整数型<br /> .局部变量 文本, 文本型<br /> <br /> 分割的文本 ＝ 分割文本 (#常量1, #换行符, )<br /> .计次循环首 (取数组成员数 (分割的文本), I)<br />     快速文本对象.添加 (分割的文本 [I])<br />     .如果真 (I ％ 7 ＝ 0)<br />         快速文本对象.添加 (#换行符)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 编辑框1.内容 ＝ 快速文本对象.取文本 (, )

dwcq

dwcq

啊啊啊啊啊啊啊

陽陽陽

计次循环首（ceil(取文本长度（你的文本） / 7)，n）{
    加入成员（数组，取文本中间（你的文本，7*n,7））
}



.版本 2

.子程序 ceil, 整数型
.参数 num, 双精度小数型

' 取整 ()
' 调试输出 (num, 取整 (num))
.如果真 (num ＝ 取整 (num))
    返回 (num)
.如果真结束
返回 (取整 (num ＋ 1))