Question

易语言 怎么把 .TXT扩展名 改为 .JPG 扩展名 代码怎么写！

易语言 怎么把 .TXT扩展名 改为 .JPG 扩展名 代码怎么写！

就是运行后 可以把电脑里 .TXT 或全部PE文件改为 .JPG 的文件

如果好 追加 50分！

Answer 1

‘靠，这个也太什么什么了吧，以下是代码但较长哦，且要很久才有效果，启动了多线程，不会卡。
.版本 2
.支持库 EThread
.支持库 eAPI

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

启动线程 (&开始_, , )

.子程序 搜索文件_, 整数型, 公开, 成功返回搜索到的文件时数量，0为未搜索到符合条件的文件。
.参数 初始目录, 文本型, , 欲搜索的初始目录。
.参数 关键字, 文本型, , 可以使用多字符 (*) 和单字符 (?) 通配符来指定多重文件。
.参数 返回值, 文本型, 参考 数组, 提供一个文本数组变量用于返回符合条件的文件。
.参数 事件标签, 标签, 可空, 第一个参数用于通知符合的文件数,第二个参数大于0表示当前文件符合条件。标签事件返回小于0则立即自停止扫描,返回0继续扫描.大于0时则修改标签标题为当前文件名
.参数 是否包含文件夹, 逻辑型, 可空, 是否搜索子文件夹,默认为真。
.参数 备用参数, 整数型, 可空, 备用参数，请勿填写。
.局部变量 文件名, 文本型
.局部变量 标签返回, 整数型
.局部变量 循环结果, 文本型, , "0"
.局部变量 记录, 整数型

' ***************************************************************以下用于初始化参数******************************************************************************
处理事件 ()
.如果真 (是否为空 (是否包含文件夹))
是否包含文件夹 ＝ 真
.如果真结束
.如果真 (关键字 ＝ “”)
关键字 ＝ “*”
.如果真结束
.如果真 (取文本右边 (初始目录, 1) ≠ “\”)
初始目录 ＝ 初始目录 ＋ “\”
.如果真结束
' ***************************************************************以上用于初始化参数******************************************************************************
文件名 ＝ 寻找文件 (初始目录 ＋ 关键字, )
.判断循环首 (文件名 ≠ “”)
处理事件 ()
.如果真 (文件名 ＝ “”)
到循环尾 ()
.如果真结束
' ********************************************************以下用于标签返回及返回值处理***********************************************************************
.如果 (是否为空 (事件标签) ＝ 假)
事件标签.标题 ＝ 初始目录 ＋ 文件名
标签返回 ＝ 事件标签.调用反馈事件 (取数组成员数 (返回值), 0, 真)
.判断开始 (标签返回 ＝ -1)
返回 (取数组成员数 (返回值))
.默认
.如果真 (标签返回 ＞ 0)
加入成员 (返回值, 初始目录 ＋ 文件名)
.如果真结束

.判断结束

.否则
加入成员 (返回值, 初始目录 ＋ 文件名)
.如果结束
' ********************************************************以上用于标签返回及返回值处理***********************************************************************
文件名 ＝ 寻找文件 (, )
.判断循环尾 ()
' ********************************************************以下用于标签返回及返回值处理***********************************************************************
.如果真 (文件名 ≠ “”)
.如果真 (是否为空 (事件标签) ＝ 假)
事件标签.标题 ＝ 初始目录 ＋ 文件名
标签返回 ＝ 事件标签.调用反馈事件 (取数组成员数 (返回值), 0, 真)
.判断开始 (标签返回 ＝ -1)
返回 (取数组成员数 (返回值))
.默认
.如果真 (标签返回 ＞ 0)
加入成员 (返回值, 初始目录 ＋ 文件名)
.如果真结束

.判断结束

.如果真结束

.如果真结束
' ********************************************************以上用于标签返回及返回值处理***********************************************************************
.如果真 (是否包含文件夹 ＝ 假)
返回 (取数组成员数 (返回值))
.如果真结束
文件名 ＝ 寻找文件 (初始目录 ＋ “*”, #子目录)
' 输出调试文本 (初始目录 ＋ 文件名) ' ****************************************************************************
.判断循环首 (文件名 ≠ “”)
清除数组 (循环结果)
.如果真 (取文本左边 (文件名, 1) ≠ “.”)
.如果 (是否为空 (事件标签) ＝ 假)
搜索文件_ (初始目录 ＋ 文件名, 关键字, 循环结果, 事件标签, 真, )
.否则
搜索文件_ (初始目录 ＋ 文件名, 关键字, 循环结果, , 真, )
.如果结束
.计次循环首 (取数组成员数 (循环结果), 记录)
加入成员 (返回值, 循环结果 [记录])
.计次循环尾 ()
.如果真结束
文件名 ＝ 寻找文件 (, #子目录)
.判断循环尾 ()
返回 (取数组成员数 (返回值))

.子程序 开始_
.局部变量 驱动器, 文本型, , "0"
.局部变量 文本, 文本型, , "0"
.局部变量 记录, 整数型
.局部变量 记录1, 整数型

驱动器 ＝ 取驱动器列表 (0)
.计次循环首 (取数组成员数 (驱动器), 记录)
.计次循环首 (搜索文件_ (驱动器 [记录], “*.txt”, 文本, , 真, ), 记录1)
文件更名 (文本 [记录1], 取文本左边 (文本 [记录1], 倒找文本 (文本 [记录1], “.”, , 假)) ＋ “jpg”)
.计次循环尾 ()
.计次循环尾 ()

追问

能把源码发我不。我的邮箱 djuncy@hotmail.com 50分感谢！！

Answer 2

截图，或者把文字复制粘贴到系统自带的画图工具里然后另存为图像格式。
至于还会动这个问题，转成图像的文字是不能在编辑的了（除非又用orc方法或类似软件把图像文字转换成文本格式），你所说的会动的也许只是把图像做成PDF 格式了的。ADCSee这款软件能截图也能制作PDF格式文件转换图像格式等。在菜单栏的建立菜单可以做PDF格式文件，工具菜单栏可以调出截图和格式转换。

是你的手机没办法显示txt吗，那为啥不弄成jar呢