易语言怎样在文件中插入图片
3个回答
展开全部
不知你要的是不是这种插入图片?!
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.局部变量 要插入图片的文件, 文本型
.局部变量 插入位置, 整数型
.局部变量 要插入的图片, 文本型
要插入图片的文件 = “D:\123.txt”
要插入的图片 = “D:\123.jpg”
文件号 = 打开文件 (要插入图片的文件, #读写, )
.如果真 (文件号 = 0)
信息框 (“文件不存在或正在其它程序使用中!”, 0, )
返回 ()
.如果真结束
插入位置 = 100
.如果 (插入位置 > 取文件长度 (文件号))
移到文件尾 (文件号)
.否则
移动读写位置 (文件号, , 插入位置)
.如果结束
插入字节集 (文件号, 读入文件 (要插入的图片))
关闭文件 (文件号)
信息框 (“ok”, 0, )
.版本 2
.子程序 _按钮1_被单击
.局部变量 文件号, 整数型
.局部变量 要插入图片的文件, 文本型
.局部变量 插入位置, 整数型
.局部变量 要插入的图片, 文本型
要插入图片的文件 = “D:\123.txt”
要插入的图片 = “D:\123.jpg”
文件号 = 打开文件 (要插入图片的文件, #读写, )
.如果真 (文件号 = 0)
信息框 (“文件不存在或正在其它程序使用中!”, 0, )
返回 ()
.如果真结束
插入位置 = 100
.如果 (插入位置 > 取文件长度 (文件号))
移到文件尾 (文件号)
.否则
移动读写位置 (文件号, , 插入位置)
.如果结束
插入字节集 (文件号, 读入文件 (要插入的图片))
关闭文件 (文件号)
信息框 (“ok”, 0, )
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询
广告 您可能关注的内容 |