易语言 按字数分割文本
我有一个1W字的文本,有没有高手可以把他弄成数组的格式,每个数组2000个字,共5个数组左右。其他地方也看过了,有是有,不过分割的速度太慢了,希望可以快一点的。急需,在线...
我有一个1W字的文本,有没有高手可以把他弄成数组的格式,每个数组2000个字,共5个数组左右。其他地方也看过了,有是有,不过分割的速度太慢了,希望可以快一点的。急需,在线等,可加分!!
展开
2个回答
展开全部
.版本 2
.程序集 窗口程序集1
.程序集变量 文本, 文本型
.程序集变量 文本组, 文本型, , "5"
.子程序 _按钮1_被单击.局部变量 计数, 整数型
.如果真 (通用对话框1.打开 () = 真)
文本 = 读入文本 (打开文件 (通用对话框1.文件名, , ), )
.计次循环首 (5, 计数)
文本组 [计数] = 取文本中间 (文本, 2000 × (计数 - 1) + 1, 2000)
.计次循环尾 ()
这个程序只能完整分割半角字符(10000个),若是全角的字符就无法完整分割(例如,中文),分割后会有乱码;若全部是全角字符(10000个,即20000个半角字符),没有空格,则只要把程序里的“2000“改为“4000”就行。 分割后的文本数组就储存在 文本组 这个变量里。
.程序集 窗口程序集1
.程序集变量 文本, 文本型
.程序集变量 文本组, 文本型, , "5"
.子程序 _按钮1_被单击.局部变量 计数, 整数型
.如果真 (通用对话框1.打开 () = 真)
文本 = 读入文本 (打开文件 (通用对话框1.文件名, , ), )
.计次循环首 (5, 计数)
文本组 [计数] = 取文本中间 (文本, 2000 × (计数 - 1) + 1, 2000)
.计次循环尾 ()
这个程序只能完整分割半角字符(10000个),若是全角的字符就无法完整分割(例如,中文),分割后会有乱码;若全部是全角字符(10000个,即20000个半角字符),没有空格,则只要把程序里的“2000“改为“4000”就行。 分割后的文本数组就储存在 文本组 这个变量里。
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询