易语言 按字数分割文本

2024-11-06 23:21:58
推荐回答(2个)
回答(1):

.版本 2
.程序集 窗口程序集1
.程序集变量 文本, 文本型
.程序集变量 文本组, 文本型, , "5"

.子程序 _按钮1_被单击.局部变量 计数, 整数型
.如果真 (通用对话框1.打开 () = 真)
文本 = 读入文本 (打开文件 (通用对话框1.文件名, , ), )
.计次循环首 (5, 计数)
文本组 [计数] = 取文本中间 (文本, 2000 × (计数 - 1) + 1, 2000)
.计次循环尾 ()

这个程序只能完整分割半角字符(10000个),若是全角的字符就无法完整分割(例如,中文),分割后会有乱码;若全部是全角字符(10000个,即20000个半角字符),没有空格,则只要把程序里的“2000“改为“4000”就行。 分割后的文本数组就储存在 文本组 这个变量里。

回答(2):

包括标点符号吗??