txt文本按列数分割成两个文本，用易语言什么写，高手写个呗

专业代售软件

如：
267115297---959539---zqyqka596736@163.com
267115348---425959---mfztjj883453@163.com
267115354---344968---byfgcj815219@163.com
267115372---559093---xhkqve510080@163.com

什么分割成以下两个文本：
267115297---959539                             zqyqka596736@163.com
267115348---425959                             mfztjj883453@163.com
267115354---344968                             byfgcj815219@163.com
267115372---559093                             xhkqve510080@163.com

hbcainiao

导入_被单击
文件号   整数型
读出一行 文本型
读写位置 整数型
等待分割的文本   文本型    0
通用对话框.打开
文件号=打开文件(通用对话框.文件名)
读入文本(文件号)
移到文件首(文件号)
判断循环首(是否在文件尾(文件号,真)<>真)
移动读写位置 (文件号, 1, 读写位置)
读出一行 ＝ 读入一行 (文件号)
读写位置 ＝ 取读写位置 (文件号)
如果真(读出一行<>"")
等待分割的文本=分本分割(读出一行,"-")
写出文本(文件号,等待分割的文本[1]+"-"+等待分割的文本[2]+取空白文本(8)+等待分割的文本[3]+#换行符)
判断循环尾 ()


我这个写的是你要从TXT文档打开的文件写的,如果不懂的加我Q514981195 我教你弄

专业代售软件

千年 发表于 2014-8-16 00:41
伙计，连击这么多贴？小心哦。

嗯，知道了，我发贴时出现错误了，以为没发成功呢,下次我会注意

batcd

是我电脑的问题还是输入法确实不好用，还是论坛出问题了点了代码不能写出去

batcd

为什么不行呢？代码不能写吗？


补充内容 (2014-8-16 06:17):
.版本 2
.支持库 spec

.局部变量 s, 文本型, , "0"
.局部变量 i, 整数型
.局部变量 z, 文本型
.局部变量 y, 文本型
.局部变量 xx, 文本型
.局部变量 yy, 文本型

s ＝ 分割文本 (编辑框1.内容, #换行符, )
.计次循环首 (取数组成员数 (s), i)
    z ＝ 取文本左边 (s , 18)
    xx ＝ xx ＋ z ＋ #换行符
    y ＝ 取文本右边 (s , 20)
    yy ＝ yy ＋ y ＋ #换行符
.计次循环尾 ()
调试输出 (xx)
调试输出 (yy)

Default

  

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

变量名	类 型	静态	数组	备 注
分割文本	文本型		0
i	整数型
邮箱	文本型
文本数组	文本型		0
账号	文本型

分割文本 ＝ 分割文本 (编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (分割文本), i)
文本数组 ＝ 分割文本 (分割文本 [i], “---”, )
如果真 (取数组成员数 (文本数组) ＝ 3)
账号 ＝ 账号 ＋ 文本数组 [1] ＋ “---” ＋ 文本数组 [2] ＋ #换行符
邮箱 ＝ 邮箱 ＋ 文本数组 [3] ＋ #换行符
重定义数组 (文本数组, 假, 0)
计次循环尾 ()
写到文件 (“c:\1.txt”, 到字节集 (账号))
写到文件 (“c:\2.txt”, 到字节集 (邮箱))

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 分割文本, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 邮箱, 文本型<br /> .局部变量 文本数组, 文本型, , "0"<br /> .局部变量 账号, 文本型<br /> <br /> 分割文本 ＝ 分割文本 (编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (分割文本), i)<br />     文本数组 ＝ 分割文本 (分割文本 <i>, “---”, )<br />     .如果真 (取数组成员数 (文本数组) ＝ 3)<br />         账号 ＝ 账号 ＋ 文本数组 [1] ＋ “---” ＋ 文本数组 [2] ＋ #换行符<br />         邮箱 ＝ 邮箱 ＋ 文本数组 [3] ＋ #换行符<br />     .如果真结束<br />     重定义数组 (文本数组, 假, 0)<br /> .计次循环尾 ()<br /> 写到文件 (“c:\1.txt”, 到字节集 (账号))<br /> 写到文件 (“c:\2.txt”, 到字节集 (邮箱))

千年

伙计，连击这么多贴？小心哦。

又是饭桶

帮你弄好了 私下加我QQ 1160263111 不忍心你被删帖然后还拿不到