精易论坛

标题: 易语言如何修改文本指定内容? [打印本页]

作者: liu2000    时间: 2025-3-23 16:28
标题: 易语言如何修改文本指定内容?
CREATE TOOL ; TAPERSPHERICAL FORM TOOL
RENAME TOOL "1" "14转6沙长120" //刀具名称-------备注注释
EDIT TOOL "14转6沙长120" LENGTH "120" //刀具长度-------备注注释
EDIT TOOL "14转6沙长120" TIPRADIUS "3" //刀尖半径-------备注注释
EDIT TOOL "14转6沙长120" DIAMETER "14" //刀具直径-------备注注释
EDIT TOOL "14转6沙长120" TAPERANGLE "8" //刀具锥角-------备注注释
EDIT TOOL "14转6沙长120" SHANK_COMPONENT ADD
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT ADD
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT UPPERDIA "50"
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT LOWERDIA "50"
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT LENGTH "50"
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT ADD
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT UPPERDIA "130"
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT LOWERDIA "130"
EDIT TOOL "14转6沙长120" HOLDER_COMPONENT LENGTH "130"
EDIT TOOL "14转6沙长120" OVERHANG "130" //刀具伸出-------备注注释
TOOL ACCEPT

这是一个文本,编码格式为ANSI的,如何按照例子上的信息框内容修改固定的参数,就和全部替换一样,通过点击按钮把14转6沙长120改为编辑框里的内容,刀具长度120也改为编辑框里的内容,填写有备注注释的都需要改,改完后保存到原位置这个要怎么实现?

例子.e

948.39 KB, 下载次数: 7


作者: aipca    时间: 2025-3-23 16:35
文本=子文本替换(文本,” LENGTH +#引号+120+#引号 “,“ LENGTH ”+#引号+编辑框.内容,)

拿编辑框.内容 替换文本里面的 LENGTH "120"  部份

补充内容 (2025-3-23 17:15):
举一粟子而已,都是一样的意思
作者: 是可可吖    时间: 2025-3-23 16:36
5个编辑框里没有内容?把要改的内容写在编辑框里
作者: liu2000    时间: 2025-3-23 16:46
是可可吖 发表于 2025-3-23 16:36
5个编辑框里没有内容?把要改的内容写在编辑框里

是的,编辑框里写好内容,替换文本里的内容,
作者: 是可可吖    时间: 2025-3-23 16:48
liu2000 发表于 2025-3-23 16:46
是的,编辑框里写好内容,替换文本里的内容,

我知道,你得把5个编辑框分别替换什么内容说清楚,这样我们才知道怎么写。比如第一个编辑框替换哪个内容,第二个替换哪个...等等,把问题描述清楚了,才解决的快
作者: liu2000    时间: 2025-3-23 16:48
aipca 发表于 2025-3-23 16:35
文本=子文本替换(文本,” LENGTH +#引号+120+#引号 “,“ LENGTH ”+#引号+编辑框.内容,)

拿编辑框. ...

大佬,原文件在我的文档里,是不是先打开我的文档里的再修改,再保存呢
作者: liu2000    时间: 2025-3-23 16:50
补充,原文件在我的文档根目录里,源码例子里少写了一个刀具伸出-------备注注释,需求是在编辑框里写好参数修改文本里的参数
作者: liu2000    时间: 2025-3-23 16:56
是可可吖 发表于 2025-3-23 16:48
我知道,你得把5个编辑框分别替换什么内容说清楚,这样我们才知道怎么写。比如第一个编辑框替换哪个内容 ...

REATE TOOL ; TAPERSPHERICAL FORM TOOL
RENAME TOOL "1" "要替换的内容" //刀具名称-------备注注释
EDIT TOOL "要替换的内容" LENGTH "要替换的内容" //刀具长度-------备注注释
EDIT TOOL "要替换的内容" TIPRADIUS "要替换的内容" //刀尖半径-------备注注释
EDIT TOOL "要替换的内容" DIAMETER "要替换的内容" //刀具直径-------备注注释
EDIT TOOL "要替换的内容" TAPERANGLE "要替换的内容" //刀具锥角-------备注注释
EDIT TOOL "要替换的内容" SHANK_COMPONENT ADD
EDIT TOOL "要替换的内容" HOLDER_COMPONENT ADD
EDIT TOOL "要替换的内容" HOLDER_COMPONENT UPPERDIA "50"
EDIT TOOL "要替换的内容" HOLDER_COMPONENT LOWERDIA "50"
EDIT TOOL "要替换的内容" HOLDER_COMPONENT LENGTH "50"
EDIT TOOL "要替换的内容" HOLDER_COMPONENT ADD
EDIT TOOL "要替换的内容" HOLDER_COMPONENT UPPERDIA "130"
EDIT TOOL "要替换的内容" HOLDER_COMPONENT LOWERDIA "130"
EDIT TOOL "要替换的内容" HOLDER_COMPONENT LENGTH "130"
EDIT TOOL "要替换的内容" OVERHANG "要替换的内容" //刀具伸出-------备注注释
TOOL ACCEPT


易语言的例子里用标签写上了,文本里需要改的我改成要替换的内容了//刀尖半径,这个是备注,

补充内容 (2025-3-23 16:58):
最左边的那一竖排就是刀具名称,那一大竖排都是刀具名称
作者: 是可可吖    时间: 2025-3-23 17:17
  
子程序名返回值类型公开备 注
_按钮1_被单击  
变量名类 型静态数组备 注
fg文本型0
i整数型 
备注文本文本型 
要替换的内容文本型 
文本文本型 
fg = 分割文本 ( #常量1, #换行符, )
计次循环首 (取数组成员数 (fg), i)
如果真 (寻找文本 (fg [i], “-------”, , ) ≠ -1)
备注文本 = 文本_取出中间文本 (fg [i], “//”, “-------”, , )
要替换的内容 = 文本_取出中间文本 (fg [i], #引号, #引号, , )
判断 (备注文本 = “刀具名称”)
文本 = 子文本替换 (fg [i], 要替换的内容, 编辑框1.内容, , , )
判断 (备注文本 = “刀具直径”)
文本 = 子文本替换 (fg [i], 要替换的内容, 编辑框2.内容, , , )
判断 (备注文本 = “刀尖半径”)
文本 = 子文本替换 (fg [i], 要替换的内容, 编辑框3.内容, , , )
判断 (备注文本 = “刀具锥角”)
文本 = 子文本替换 (fg [i], 要替换的内容, 编辑框4.内容, , , )
判断 (备注文本 = “刀具长度”)
文本 = 子文本替换 (fg [i], 要替换的内容, 编辑框5.内容, , , )


文本 = 文本 + #换行符
写到文件 (取特定目录 (3)“测试.txt”, 到字节集 (文本))

计次循环尾 ()


i支持库列表   支持库注释   
shell操作系统界面功能支持库



补充内容 (2025-3-23 17:18):
一脸懵逼,看不懂需求,看样子写的应该不对
作者: 算法艺术家    时间: 2025-3-23 20:23
子文本替换
作者: liu2000    时间: 2025-3-23 21:25
是可可吖 发表于 2025-3-23 17:17
[e=2].版本 2
.支持库 shell

CREATE TOOL ; TAPERSPHERICAL FORM TOOL
RENAME TOOL "1" "刀具名称"
EDIT TOOL "刀具名称" LENGTH "刀具长度"
EDIT TOOL "刀具名称" TIPRADIUS "刀尖半径"
EDIT TOOL "刀具名称" DIAMETER "刀具直径"
EDIT TOOL "刀具名称" TAPERANGLE "刀具锥角"
EDIT TOOL "刀具名称" SHANK_COMPONENT ADD
EDIT TOOL "刀具名称" HOLDER_COMPONENT ADD
EDIT TOOL "刀具名称" HOLDER_COMPONENT UPPERDIA "50"
EDIT TOOL "刀具名称" HOLDER_COMPONENT LOWERDIA "50"
EDIT TOOL "刀具名称" HOLDER_COMPONENT LENGTH "50"
EDIT TOOL "刀具名称" HOLDER_COMPONENT ADD
EDIT TOOL "刀具名称" HOLDER_COMPONENT UPPERDIA "130"
EDIT TOOL "刀具名称" HOLDER_COMPONENT LOWERDIA "130"
EDIT TOOL "刀具名称" HOLDER_COMPONENT LENGTH "130"
EDIT TOOL "刀具名称" OVERHANG "刀具伸出"
TOOL ACCEPT


大佬这样呢?把文本里的,刀具名称,刀具长度,刀尖半径,刀具直径,刀具锥角,刀具伸出,通过易语言里的编辑框修改,比如编辑框1里写20,替换的是刀具名称,修改后文本里刀具名称就被替换成20了,剩下的一样替换方法,一共6个编辑框对应文本里要修改的6个




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4