易语言 ftp读取txt

步骤是，1连接FTP服务器进行下载你要的文本文件到本地

2再打开本地读入文件内容显示在编辑框内

具体例：

版本 2

支持库 internet

支持库 shell

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

局部变量 文件号, 整数型

连接FTP服务器 (“58222184”, “j”, “0910228”, , )

FTP文件下载 (“1txt”, 取特定目录 (3) ＋ “\1txt”, )‘因为我的E不好编辑，我把他存在桌面了！你可以自己设定位置。

文件号 ＝ 打开文件 (取特定目录 (3) ＋ “\1txt”, , )

编辑框1内容 ＝ 读入文本 (文件号, )

[e=1]版本 2

支持库 spec

子程序 _按钮1_被单击

局部变量 ftp, 类_FTP

如果真 (ftp连接FTP服务器 (地址, 帐号, 密码, 21, ))

如果真 (ftp文件上传 (取运行目录 () ＋ “\123txt”, “/123txt”, ))

调试输出 (“上传成功”)

如果真结束

[/e]

1文件上传，返回的是真吗。 是否上传成功，如果成功了说明命令没有问题，是参数的问题。

2文件上传的第二个参数，去掉IP地址试试。

连接FTP服务器 (“地址”, “用户名”, “密码”, 21, )

FTP文件上传 (“要上传的文件html”, “wwwroot/pc要上传的文件html )

断开FTP服务器 ()

这样就对了，你的代码比较乱，不想调试了，给你个成型的！

版本 2

支持库 iext

支持库 internet局部变量 项目类型, 整数型

局部变量 选中项, 整数型

局部变量 当前目录, 文本型

局部变量 容器1, 整数型选中项 ＝ 远程文件框现行选中项

如果真 (选中项 ＝ -1)

返回 ()

如果真结束

项目类型 ＝ 远程文件框取表项数值 (选中项)当前目录 ＝ FTP取现行目录 ()

判断开始 (项目类型 ＝ 0) ' 是否为到上目录

容器1 ＝ 倒找文本 (当前目录, “/”, , 真)

如果真 (容器1 ≠ -1)

当前目录 ＝ 取文本左边 (当前目录, 容器1)

如果真 (当前目录 ≠ “/”)

当前目录 ＝ 取文本左边 (当前目录, 容器1 － 1)

如果真结束

FTP置现行目录 (当前目录)

填充远程框 ()

如果真结束判断 (项目类型 ＝ 1) ' 是否到子目录

如果真 (取文本右边 (当前目录, 1) ≠ “/”)

当前目录 ＝ 当前目录 ＋ “/”

如果真结束

FTP置现行目录 (当前目录 ＋ 远程文件框取标题 (选中项, ))

填充远程框 ()

默认版本 2

支持库 iext

支持库 internet子程序 填充远程框

局部变量 文件名, 文本型, , "0"

局部变量 文件尺寸, 整数型, , "0"

局部变量 文件属性, 整数型, , "0"

局部变量 文件时间, 日期时间型, , "0"

局部变量 数目, 整数型

局部变量 容器1, 整数型

局部变量 名称, 文本型

局部变量 索引, 整数型

局部变量 现行目录, 文本型远程文件框全部删除 ()状态标签标题 ＝ “正在获取目录列表,请稍候”

状态标签刷新显示 () ' 立即显示改变后的标题

数目 ＝ FTP目录列表 (“”, , 文件名, 文件属性, 文件尺寸, 文件时间)

' 填充目录

现行目录 ＝ FTP取现行目录 ()

如果真 (现行目录 ≠ “/”)

远程文件框插入表项 (, , 0, , , 0) ' 如果不是根目录,则插入到父目录的特殊表项

如果真结束计次循环首 (数目, 容器1)

如果真 (位与 (文件属性 [容器1], #子目录) ≠ 0)

名称 ＝ 文件名 [容器1]

如果真 (取文本左边 (名称, 1) ≠ “”)

索引 ＝ 远程文件框插入表项 (, 名称, 1, , , 1)

远程文件框置标题 (索引, 2, 到文本 (文件时间 [容器1]))

如果真结束 如果真结束计次循环尾 ()

' 填充文件

计次循环首 (数目, 容器1)

如果真 (位与 (文件属性 [容器1], #子目录) ＝ 0)

索引 ＝ 远程文件框插入表项 (, 文件名 [容器1], 2, , , 2)

远程文件框置标题 (索引, 1, 到文本 (文件尺寸 [容器1]))

远程文件框置标题 (索引, 2, 到文本 (文件时间 [容器1]))

如果真结束计次循环尾 ()