易语言操作csv写入数据/QQ同步助手操作

showtime

通过E把手机号写入到csv中的某一列 一行一个手机号从txt拖进来或者复制到文本框

然后点击按钮直接修改 保存到桌面


QQ同步助手,登陆 导入csv 和一键清空所有联系人(就这三个功能)
能做的 送一台阿里云的服务器 90天的 学生机

参考代码

  

子程序名	返回值类型	公开	备 注
修改CSV数据	逻辑型
参数名	类 型	参考	可空	数组	备 注
CSV文件名	文本型				全路径文件名或当前目录内的文件名
CSV行号	整数型				第几行
CSV列号	整数型				第几列
CSV文本	文本型				修改后的数据

变量名	类 型	静态	数组	备 注
CSV文件号	整数型
Dpos	整数型
Lpos	整数型
Cpos	整数型
Clng	整数型
char	字节型

CSV文件号 ＝ 打开文件 (CSV文件名, , )
如果真 (CSV文件号 ＝ 0)
' 打开文件失败
返回 (假)
移到文件首 (CSV文件号)
' 移动到目标行号
计次循环首 (CSV行号 － 1, )
读入一行 (CSV文件号)
如果真 (是否在文件尾 (CSV文件号, 真))
返回 (假)
处理事件 ()
计次循环尾 ()
Lpos ＝ 取读写位置 (CSV文件号)
' 移动到目标列号
char ＝ 0
Dpos ＝ 0
如果真 (CSV列号 ＞ 1)  ' 当目标列号=1时其实就是在行首
判断循环首 (char ≠ 13)  ' 是否换行
读入数据 (CSV文件号, char)
如果真 (char ＝ 44)  ' 到分隔符
Dpos ＝ Dpos ＋ 1
如果真 (Dpos ＝ CSV列号 － 1)
' 已经移动到目标列号的位置
跳出循环 ()

处理事件 ()
判断循环尾 ()
如果真 (char ＝ 13)  ' 到行尾也没有到达目标列号 出错
返回 (假)

Cpos ＝ 取读写位置 (CSV文件号)  ' <需要修改的数据的位置
' 计算数据长度
char ＝ 0
Clng ＝ 0
判断循环首 (char ≠ 13)  ' 是否换行
读入数据 (CSV文件号, char)
如果真 (char ＝ 44)  ' 到分隔符 跳出
跳出循环 ()
Clng ＝ Clng ＋ 1
处理事件 ()
判断循环尾 ()
' 开始修改
移动读写位置 (CSV文件号, 1, Cpos)
如果真 (Clng ＞ 0)  ' 该位置有数据,删除
删除数据 (CSV文件号, Clng)
' 执行删除操作后读写位置会移动到文件尾部 所以要再移回去
移动读写位置 (CSV文件号, 1, Cpos)
插入文本 (CSV文件号, CSV文本)
关闭文件 (CSV文件号)
返回 (真)

.版本 2<br /> <br /> .子程序 修改CSV数据, 逻辑型<br /> .参数 CSV文件名, 文本型, , 全路径文件名或当前目录内的文件名<br /> .参数 CSV行号, 整数型, , 第几行<br /> .参数 CSV列号, 整数型, , 第几列<br /> .参数 CSV文本, 文本型, , 修改后的数据<br /> .局部变量 CSV文件号, 整数型<br /> .局部变量 Dpos, 整数型<br /> .局部变量 Lpos, 整数型<br /> .局部变量 Cpos, 整数型<br /> .局部变量 Clng, 整数型<br /> .局部变量 char, 字节型<br /> <br /> CSV文件号 ＝ 打开文件 (CSV文件名, , )<br /> .如果真 (CSV文件号 ＝ 0)<br />     ' 打开文件失败<br />     返回 (假)<br /> .如果真结束<br /> 移到文件首 (CSV文件号)<br /> ' 移动到目标行号<br /> .计次循环首 (CSV行号 － 1, )<br />     读入一行 (CSV文件号)<br />     .如果真 (是否在文件尾 (CSV文件号, 真))<br />         返回 (假)<br />     .如果真结束<br />     处理事件 ()<br /> .计次循环尾 ()<br /> Lpos ＝ 取读写位置 (CSV文件号)<br /> ' 移动到目标列号<br /> char ＝ 0<br /> Dpos ＝ 0<br /> .如果真 (CSV列号 ＞ 1)  ' 当目标列号=1时其实就是在行首<br />     .判断循环首 (char ≠ 13)  ' 是否换行<br />         读入数据 (CSV文件号, char)<br />         .如果真 (char ＝ 44)  ' 到分隔符<br />             Dpos ＝ Dpos ＋ 1<br />             .如果真 (Dpos ＝ CSV列号 － 1)<br />                 ' 已经移动到目标列号的位置<br />                 跳出循环 ()<br />             .如果真结束<br /> <br />         .如果真结束<br />         处理事件 ()<br />     .判断循环尾 ()<br />     .如果真 (char ＝ 13)  ' 到行尾也没有到达目标列号 出错<br />         返回 (假)<br />     .如果真结束<br /> <br /> .如果真结束<br /> Cpos ＝ 取读写位置 (CSV文件号)  ' <需要修改的数据的位置<br /> ' 计算数据长度<br /> char ＝ 0<br /> Clng ＝ 0<br /> .判断循环首 (char ≠ 13)  ' 是否换行<br />     读入数据 (CSV文件号, char)<br />     .如果真 (char ＝ 44)  ' 到分隔符 跳出<br />         跳出循环 ()<br />     .如果真结束<br />     Clng ＝ Clng ＋ 1<br />     处理事件 ()<br /> .判断循环尾 ()<br /> ' 开始修改<br /> 移动读写位置 (CSV文件号, 1, Cpos)<br /> .如果真 (Clng ＞ 0)  ' 该位置有数据,删除<br />     删除数据 (CSV文件号, Clng)<br />     ' 执行删除操作后读写位置会移动到文件尾部 所以要再移回去<br />     移动读写位置 (CSV文件号, 1, Cpos)<br /> .如果真结束<br /> 插入文本 (CSV文件号, CSV文本)<br /> 关闭文件 (CSV文件号)<br /> 返回 (真)

showtime

附件
csv格式如下 .修改其他手机的  一行一个. 固定50个
50.zip (302 Bytes, 下载次数: 157)

2016-12-15 14:51 上传

点击文件名下载附件

blueboy9213

学习学习！！！！！！！！！！！！

6641910

22222222222222222222

chafei

学习了 牛

chafei

正需要呢 谢谢

初学者小萌妹

感谢！感谢！感谢！感谢！感谢！感谢！感谢！

1965357612

正需要呢 谢谢

cdtiger

下载来学习学习，谢谢