文本文档中间插入图片的问题

zzzddd

假如生成了很多个文本文档   

然后让软件按顺序读取   

怎么样才能在文本文档里的第一段后面  和文档结束前的一段分别插入一张指定的图片呢  

不是在文档的前面后面插入  是在文档内容里面的位置插入      



麻烦大神告诉下方法  

zzzddd

加载在发帖软件里面发布的时候  

zainex

文本与图片不是一个类型，一个是文本型，另一个字节集型，两者不能直接混合保存。
你要先把图片编码成文本型，然后再插入进去，比如用base64编码图片：

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
插入行	整数型
结果	文本型

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
文本	文本型
数组	文本型		0
图片	字节集
图片编码	文本型
数	整数型

图片 ＝ #图片1
计次循环首 (10, )
文本 ＝ 文本 ＋ 到文本 (取随机数 (100, 999)) ＋ 到文本 (取随机数 (100, 999)) ＋ #换行符
计次循环尾 ()
调试输出 (文本)
数组 ＝ 分割文本 (文本, #换行符, )
插入行 ＝ 2
图片编码 ＝ “Base64:[” ＋ 编码_BASE64编码 (图片) ＋ “+]”
插入成员 (数组, 插入行, 图片编码)
计次循环首 (取数组成员数 (数组), 数)
结果 ＝ 结果 ＋ 数组 [数] ＋ #换行符
计次循环尾 ()
调试输出 (结果)

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
数组	文本型		0
正则	正则表达式
base64编码	文本型
当前行	文本型
图片	字节集

数组 ＝ 分割文本 (结果, #换行符, )
当前行 ＝ 数组 [插入行]
正则.创建 (“Base64:\[(.+)\]”, )
base64编码 ＝ 正则.搜索 (当前行, 1, ).取子匹配文本 (当前行, 1, )
图片 ＝ 编码_BASE64解码 (base64编码)
图片框1.图片 ＝ 图片

i支持库列表	支持库注释
spec	特殊功能支持库
RegEx	正则表达式支持库

.版本 2<br /> .支持库 spec<br /> .支持库 RegEx<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 插入行, 整数型<br /> .程序集变量 结果, 文本型<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 文本, 文本型<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 图片, 字节集<br /> .局部变量 图片编码, 文本型<br /> .局部变量 数, 整数型<br /> <br /> 图片 ＝ #图片1<br /> .计次循环首 (10, )<br />     文本 ＝ 文本 ＋ 到文本 (取随机数 (100, 999)) ＋ 到文本 (取随机数 (100, 999)) ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (文本)<br /> 数组 ＝ 分割文本 (文本, #换行符, )<br /> 插入行 ＝ 2<br /> 图片编码 ＝ “Base64:[” ＋ 编码_BASE64编码 (图片) ＋ “+]”<br /> 插入成员 (数组, 插入行, 图片编码)<br /> .计次循环首 (取数组成员数 (数组), 数)<br />     结果 ＝ 结果 ＋ 数组 [数] ＋ #换行符<br /> .计次循环尾 ()<br /> 调试输出 (结果)<br /> <br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 数组, 文本型, , "0"<br /> .局部变量 正则, 正则表达式<br /> .局部变量 base64编码, 文本型<br /> .局部变量 当前行, 文本型<br /> .局部变量 图片, 字节集<br /> <br /> 数组 ＝ 分割文本 (结果, #换行符, )<br /> 当前行 ＝ 数组 [插入行]<br /> 正则.创建 (“Base64:\[(.+)\]”, )<br /> base64编码 ＝ 正则.搜索 (当前行, 1, ).取子匹配文本 (当前行, 1, )<br /> 图片 ＝ 编码_BASE64解码 (base64编码)<br /> 图片框1.图片 ＝ 图片

完整例子.zip (1.15 MB, 下载次数: 1)

2025-5-12 18:48 上传

点击文件名下载附件

花间一壶酒

在word里面？

wmv520

在word里面？

北寂

文本文档好像不能插入图片

haoren1212

通过你之前的https://125.confly.eu.org/forum.php?mod=viewthread&tid=14836558猜测你应该是想在html里添加图片，你可以修改txt文本，在txt文本里添加图片路径，拖放到软件后判断是否为图片路径，是的话使用img标签显示该路径的图片

你的猫

  

窗口程序集名	保 留	保 留	备 注
文档处理程序集

子程序名	返回值类型	公开	备 注
_启动子程序	整数型

变量名	类 型	静态	数组	备 注
文件列表	文本型		0
i	整数型
图片路径1	文本型
图片路径2	文本型

' 获取所有需要处理的文本文档
文件_枚举 ("C:\文档目录\", "*.txt", 文件列表, 假)
' 设置两张要插入的图片路径
图片路径1 = "C:\图片\插入图片1.jpg"
图片路径2 = "C:\图片\插入图片2.jpg"
' 按顺序处理每个文档
计次循环首 (取数组成员数 (文件列表), i)
处理单个文档 (文件列表[i], 图片路径1, 图片路径2)
计次循环尾 ()
返回 (0)

子程序名	返回值类型	公开	备 注
处理单个文档
参数名	类 型	参考	可空	数组	备 注
文档路径	文本型
图片1路径	文本型
图片2路径	文本型

变量名	类 型	静态	数组	备 注
原文内容	文本型
段落数组	文本型		0
新内容	文本型
i	整数型

' 读取原文内容
原文内容 = 到文本 (读入文件 (文档路径))
' 分割段落(假设段落之间用两个换行符分隔)
段落数组 = 分割文本 (原文内容, #换行符 + #换行符, )
' 检查是否有足够段落
如果真 (取数组成员数 (段落数组) < 2)
输出调试文本 ("文档段落不足，跳过处理：" + 文档路径)
返回 ()

' 在第一段后面插入图片1
新内容 = 段落数组[1] + #换行符 + #换行符
新内容 = 新内容 + "[图片1]" + 图片1路径 + "[/图片1]" + #换行符 + #换行符
' 添加中间段落
变量循环首 (2, 取数组成员数 (段落数组) - 1, 1, i)
新内容 = 新内容 + 段落数组[i] + #换行符 + #换行符
变量循环尾 ()
' 在最后一段前插入图片2
新内容 = 新内容 + "[图片2]" + 图片2路径 + "[/图片2]" + #换行符 + #换行符
' 添加最后一段
新内容 = 新内容 + 段落数组[取数组成员数 (段落数组)]
' 保存处理后的文档
写出文件 (文档路径, 到字节集 (新内容))
输出调试文本 ("已处理文档：" + 文档路径)

子程序名	返回值类型	公开	备 注
文件_枚举	整数型
参数名	类 型	参考	可空	数组	备 注
目录路径	文本型
文件类型	文本型
文件列表	文本型
是否包含路径	逻辑型

' 这是一个文件枚举的示例子程序，实际使用时可以用易语言自带的文件操作命令替换
' 这里只是占位，实际实现需要根据具体需求编写
返回 (0)

.版本 2<br /> <br /> .程序集 文档处理程序集<br /> <br /> .子程序 _启动子程序, 整数型<br /> .局部变量 文件列表, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 图片路径1, 文本型<br /> .局部变量 图片路径2, 文本型<br /> <br /> ' 获取所有需要处理的文本文档<br /> 文件_枚举 ("C:\文档目录\", "*.txt", 文件列表, 假)<br /> <br /> ' 设置两张要插入的图片路径<br /> 图片路径1 = "C:\图片\插入图片1.jpg"<br /> 图片路径2 = "C:\图片\插入图片2.jpg"<br /> <br /> ' 按顺序处理每个文档<br /> .计次循环首 (取数组成员数 (文件列表), i)<br />     处理单个文档 (文件列表<i>, 图片路径1, 图片路径2)<br /> .计次循环尾 ()<br /> <br /> 返回 (0)<br /> <br /> .子程序 处理单个文档<br /> .参数 文档路径, 文本型<br /> .参数 图片1路径, 文本型<br /> .参数 图片2路径, 文本型<br /> .局部变量 原文内容, 文本型<br /> .局部变量 段落数组, 文本型, , "0"<br /> .局部变量 新内容, 文本型<br /> .局部变量 i, 整数型<br /> <br /> ' 读取原文内容<br /> 原文内容 = 到文本 (读入文件 (文档路径))<br /> <br /> ' 分割段落(假设段落之间用两个换行符分隔)<br /> 段落数组 = 分割文本 (原文内容, #换行符 + #换行符, )<br /> <br /> ' 检查是否有足够段落<br /> .如果真 (取数组成员数 (段落数组) < 2)<br />     输出调试文本 ("文档段落不足，跳过处理：" + 文档路径)<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 在第一段后面插入图片1<br /> 新内容 = 段落数组[1] + #换行符 + #换行符<br /> 新内容 = 新内容 + "[图片1]" + 图片1路径 + "[/图片1]" + #换行符 + #换行符<br /> <br /> ' 添加中间段落<br /> .变量循环首 (2, 取数组成员数 (段落数组) - 1, 1, i)<br />     新内容 = 新内容 + 段落数组<i> + #换行符 + #换行符<br /> .变量循环尾 ()<br /> <br /> ' 在最后一段前插入图片2<br /> 新内容 = 新内容 + "[图片2]" + 图片2路径 + "[/图片2]" + #换行符 + #换行符<br /> <br /> ' 添加最后一段<br /> 新内容 = 新内容 + 段落数组[取数组成员数 (段落数组)]<br /> <br /> ' 保存处理后的文档<br /> 写出文件 (文档路径, 到字节集 (新内容))<br /> <br /> 输出调试文本 ("已处理文档：" + 文档路径)<br /> <br /> .子程序 文件_枚举, 整数型<br /> .参数 目录路径, 文本型<br /> .参数 文件类型, 文本型<br /> .参数 文件列表, 文本型, 数组<br /> .参数 是否包含路径, 逻辑型<br /> ' 这是一个文件枚举的示例子程序，实际使用时可以用易语言自带的文件操作命令替换<br /> ' 这里只是占位，实际实现需要根据具体需求编写<br /> 返回 (0)

zzzddd

花间一壶酒 发表于 2025-5-12 18:51
在word里面？

TXT文本在发布的时候在指定位置插入图片

zzzddd

wmv520 发表于 2025-5-12 18:55
在word里面？

TXT文本在发布的时候在指定位置插入图片