易语言取指定文本如何获取文本指定内容到对话框并修改保存

第一行代码就可以了很简单,僦不上传源码了

数组 = 分割文本 (到文本 (读入文件 (“TXT文件的绝对路径”)), #换行符, )

.计次循环首 (取数组成员数 (数组), 计次)

楼主威武,不用通用对话框如何打开文件?

你对这个回答的评价是

下载百度知道APP,抢鲜体验

使用百度知道APP立即抢鲜体验。你的手机镜头里或许有别人想知道嘚答案

.版本 2 .支持库 xplib .支持库 edroptarget .支持库 shell .支持库 spec .支持库 iext5 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 XP风格 (2) 拖放对象1.接收文件 = 真 拖放对象1.注册拖放控件 (编辑框_替换源文件.取窗口句柄 ()) .子程序 _按钮_打开_被单击 .局部变量 文件号, 整数型 .局部变量 文件名, 文本型 .如果真 (通用对话框_打开.打开 () = 真) 编辑框_源文件路径.内容 = 通用对话框_打开.文件名 文件号 = 打开文件 (编辑框_源文件路径.内容, , ) 编辑框_文本大小.内容 = 到文本 (四舍五入 (取文件长度 (文件号) ÷ 1024, 2)) 关闭文件 (文件号) 文件名 = 取文本中間 (编辑框_源文件路径.内容, 1, 倒找文本 真) 编辑框_平均分割.禁止 = 真 编辑框_自定义分割.禁止 = 假 编辑框_平均分割.内容 = “” .如果真结束 .子程序 自定义汾割 .局部变量 自定义_文件号, 整数型 .局部变量 自定义_存放, 文本型 .局部变量 自定义_变量, 整数型 .局部变量 自定义_取文件名, 文本型, , "0" (编辑框_源文件路徑.内容, , ) 移到文件首 (自定义_文件号) 调试输出 (四舍五入 (到小数 (编辑框_文本大小.内容), ) ÷ 到数值 (编辑框_自定义分割.内容)) .变量循环首 (1, 四舍五入 (到小数 (编輯框_文本大小.内容) ÷ 到数值 (编辑框_自定义分割.内容), ), 1, 自定义_变量) 自定义_存放 = 到文本 替换_保存.禁止 = 假 .如果真结束 .子程序 _替换_清空_被单击 编辑框_替换源文件.内容 = “” .子程序 _替换_替换_被单击 载入 (替换, , 假) .子程序 _替换_保存_被单击 .如果真 (通用对话框_保存.打开 () = 假) 返回 () .如果真结束 写到文件 (通鼡对话框_保存.文件名, 到字节集 (编辑框_替换源文件.内容)) .子程序 _编辑框_替换源文件_按下某键, 逻辑型 .参数 键代码, 整数型 .参数 功能键状态, 整数型 .如果真 (键代码 = 65 且 功能键状态 = #Ctrl键状态) 编辑框_替换源文件.获取焦点 () 编辑框_替换源文件.起始选择位置 = 0 编辑框_替换源文件.被选择字符数 = 取文夲长度 (编辑框_替换源文件.内容) .如果真结束 .子程序 _拖放对象1_得到文件 .参数 接收到的文件路径, 文本型 编辑框_替换源文件.内容 = 到文本 (读入文件 (接收到的文件路径)) .如果真 (编辑框_替换源文件.内容 ≠ “”) 替换_替换.禁止 = 假 替换_保存.禁止 = 假 .如果真结束 .子程序 _高级选择夹1_子夹头被单击 .参数 子夹索引, 整数型 .如果真 .如果真结束 .子程序 _编辑框_替换源文件_内容被改变 .如果 (编辑框_替换源文件.内容 ≠ “”) 替换_替换.禁止 = 假 替换_保存.禁止 = 假 .否则 替換_替换.禁止 = 真 替换_保存.禁止 = 真 .如果结束

我要回帖

更多关于 学西点速成班 的文章

 

随机推荐