请问下编辑框怎么排序

隐姓埋名

把一个文章排序成这样的


他会笑当下
周仲伟像空城
计里的诸葛亮似
的笑退了那八个代
表就跑到楼下厢房里
再玩弄他的一套小摆设
接长的两张八仙桌上整整
齐齐摆好了全套的老派做寿
的排场明年八月里他打算替自
己做四十岁的大寿他喜欢照前清
老式的排场大大地热闹一番今儿早
上没有事他就搬出他那宝贝的小摆设
来预先演习正当他自己看着得意的时候
八个工人代表在外边嚷得太厉害他不得不
跑上月台去演了那一幕喜剧现在他再看那小
摆设忽然想起夫人的大事也许要赶在他自己做

じMarcusジ

按字数排列    @半夏时光   来生意了~

〃黑白配

取文本 +  换行

清华博士

按字数排列    @半夏时光   来生意了~  

波哥野结衣

取文本长度判断

隐姓埋名

要源码！！！！！！！！！

半夏时光

正则取出汉字  计次循环排序

隐姓埋名

半夏时光 发表于 2014-5-20 17:21
正则取出汉字  计次循环排序

能给我一个源码吗  

zqq68003002

  

窗口程序集名	保 留	保 留	备 注
程序集1

子程序名	返回值类型	公开	备 注
_启动子程序	整数型		本子程序在程序启动后最先执行

变量名	类 型	静态	数组	备 注
txt	文本型
第一行字数	整数型
写入文本	文本型
剩下文本	文本型
i	整数型

' 全汉字吧，不是全汉字自己改下
剩下文本 ＝ #常量1
第一行字数 ＝ 5
计次循环首 (999, i)
写入文本 ＝ 取文本左边 (剩下文本, 第一行字数 × 2 ��� (i － 1) × 2)
txt ＝ txt ＋ 写入文本 ＋ #换行符
剩下文本 ＝ 取文本右边 (剩下文本, 取文本长度 (剩下文本) － 第一行字数 × 2 ��� (i － 1) × 2)
判断 (取文本长度 (剩下文本) ＝ 0)
跳出循环 ()



计次循环尾 ()
调试输出 (txt)
返回 (0) ' 可以根据您的需要返回任意数值

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

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 程序集1<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 txt, 文本型<br /> .局部变量 第一行字数, 整数型<br /> .局部变量 写入文本, 文本型<br /> .局部变量 剩下文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> ' 全汉字吧，不是全汉字自己改下<br /> <br /> 剩下文本 ＝ #常量1<br /> 第一行字数 ＝ 5<br /> .计次循环首 (999, i)<br /> 写入文本 ＝ 取文本左边 (剩下文本, 第一行字数 × 2 ＋ (i － 1) × 2)<br /> txt ＝ txt ＋ 写入文本 ＋ #换行符<br /> 剩下文本 ＝ 取文本右边 (剩下文本, 取文本长度 (剩下文本) － 第一行字数 × 2 － (i － 1) × 2)<br /> .判断开始 (取文本长度 (剩下文本) ＝ 0)<br /> 跳出循环 ()<br /> .默认<br /> <br /> .判断结束<br /> <br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (txt)<br /> <br /> <br /> <br /> 返回 (0) ' 可以根据您的需要返回任意数值