有大佬可以帮我分割一下文件吗？2个字为一行

qweqwe1233

跪求大神，可以帮我弄一下，研究一天了，没研究明白，1个字为一行   比如：
中
华
历
史

qweqwe1233

一个字的 打错标题了~

Ruang

文本_逐字分割（）


精易模块

Ruang

demo.e (963.81 KB, 下载次数: 3)

2025-5-18 09:55 上传

点击文件名下载附件

补充内容 (2025-5-18 09:55):
精易模块

Ruang

  

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

变量名	类 型	静态	数组	备 注
文本1	文本型		0
文本2	文本型

文本_逐字分割 ( #常量1, 文本1)
文本2 ＝ 数组_合并_快速 (文本1, #换行符 )
调试输出 (文本_删除空行 (文本2))

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _启动子程序, 整数型, , 本子程序在程序启动后最先执行<br /> .局部变量 文本1, 文本型, , "0"<br /> .局部变量 文本2, 文本型<br /> <br /> 文本_逐字分割 (#常量1, 文本1)<br /> 文本2 ＝ 数组_合并_快速 (文本1, #换行符)<br /> 调试输出 (文本_删除空行 (文本2))

b0y

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
b	字节集
len
new	字节集
i
j

b ＝ 读入文件 (“3500字.txt”)
b ＝ 子字节集替换 (b, { 13, 10 }, {  }, , )
len ＝ 取字节集长度 (b)
new ＝ 取空白字节集 (len × 2)
计次循环首 (len, i)
j ＝ j ＋ 1
new [j] ＝ b [i]
如果真 (i ％ 2 ＝ 0)
new [j ＋ 1] ＝ 13
new [j ＋ 2] ＝ 10
j ＝ j ＋ 2

计次循环尾 ()
写到文件 (“2.txt”, new)

.版本 2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 b, 字节集<br /> .局部变量 len<br /> .局部变量 new, 字节集<br /> .局部变量 i<br /> .局部变量 j<br /> <br /> b ＝ 读入文件 (“3500字.txt”)<br /> b ＝ 子字节集替换 (b, { 13, 10 }, {  }, , )<br /> len ＝ 取字节集长度 (b)<br /> new ＝ 取空白字节集 (len × 2)<br /> .计次循环首 (len, i)<br />     j ＝ j ＋ 1<br />     new [j] ＝ b <i><br />     .如果真 (i ％ 2 ＝ 0)<br />         new [j ＋ 1] ＝ 13<br />         new [j ＋ 2] ＝ 10<br />         j ＝ j ＋ 2<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 写到文件 (“2.txt”, new)

qweqwe1233

b0y 发表于 2025-5-18 09:56
[e=0].版本 2

.子程序 __启动窗口_创建完毕

哥 方便发我一下吗？谢谢 我用你的代码复制到易语言里面说：运算符无右侧运算数据。
编译现行易程序失败或被中止!      Q：820756  感谢  感谢

qweqwe1233

有没有大神可以帮我分割好 发给我呀，我用大佬们的代码 我运行不起来 哎 纯小白

b0y

qweqwe1233 发表于 2025-5-18 10:03
哥 方便发我一下吗？谢谢 我用你的代码复制到易语言里面说：运算符无右侧运算数据。
编译现行易程序失败 ...

粘贴后的源码 b <i>改成b

补充内容 (2025-5-18 10:11):
b

补充内容 (2025-5-18 10:12):
b左中括号i右中括号

Ruang

qweqwe1233 发表于 2025-5-18 10:10
有没有大神可以帮我分割好 发给我呀，我用大佬们的代码 我运行不起来 哎 纯小白 ...

111.txt (32.27 KB, 下载次数: 1)

2025-5-18 10:15 上传

点击文件名下载附件