此网站为广告印刷行业从业人员提供CDR排版辅助设计技术及Excel订单管理系统开发。
当前位置:Graphhome > 插件资源CDR/Excel > 正文

CDR文本区间的字符匹配方法探讨

本段记录来自群讨论:

文本框输入什么  点按钮查找进入编辑状态要怎么改进

346323624(346323624) 2021-03-18 20:13:04
你这不是已经进入了吗

346323624(346323624) 2021-03-18 20:14:37
匹配到了就会有一个匹配数组 ,表示多个匹配到的结果的起始和结束点

zdj168(2328874722) 2021-03-18 20:14:44
这个文本框我这按钮不是一块   只是弄出来要这样操作

346323624(346323624) 2021-03-18 20:15:17
你根据起始点和结束点来选择进入那一段操作

346323624(346323624) 2021-03-18 20:16:41


346323624(346323624) 2021-03-18 20:17:16
匹配的结果m有起始序号,长度、值,这三样

zdj168(2328874722) 2021-03-18 20:18:15
这么复杂

346323624(346323624) 2021-03-18 20:18:36
要不然多个匹配结果你怎么定位

346323624(346323624) 2021-03-18 20:20:24
还有办法
cql也可以
图灵柯信代理(3314778163) 2021-03-18 21:50:48
Sub test()
Dim dc As Document
Set dc = Application.ActiveDocument
Dim sp1 As Shape
Set sp1 = dc.ActiveShape
Dim str As String
str = "测试"
Dim begin As Long
begin = sp1.Text.Find(str, False)
If begin >= 0 Then
sp1.Text.BeginEdit
sp1.Text.Story.Range(begin - 1, begin + Len(str) - 1).Select
End If
end sub
346323624(346323624) 2021-03-18 22:04:47
Sub dd()

Dim sp1 As Shape
Set sp1 = ActiveDocument.ActiveShape
Dim st1 As String
st1 = "测试"
Dim Rngs As TextRanges
Dim rng As TextRange
Set Rngs = sp1.Text.Range(0, Len(sp1.Text.Story)).FindRanges("@text.tostring.Contains('" & st1 & "')")
Debug.Print Rngs.Count
For Each rng In Rngs
    Debug.Print rng.Start
    Debug.Print rng.Length
Next rng
End Sub
图灵柯信代理(3314778163) 2021-03-18 22:01:48
不对

Jerry(651016514) 2021-03-18 22:02:01
从0开始的么

Jerry(651016514) 2021-03-18 22:02:02
这个计数

图灵柯信代理(3314778163) 2021-03-18 22:02:10
CDR 把不同的语言分为不同的段

346323624(346323624) 2021-03-18 22:02:13
从0开始的

图灵柯信代理(3314778163) 2021-03-18 22:02:19
你全用数字试下

图灵柯信代理(3314778163) 2021-03-18 22:02:33
这条CQL会选中整条
图灵柯信代理(3314778163) 2021-03-18 22:07:51
我能想到的最好方案就是这个  优化下可以改成循环

图灵柯信代理(3314778163) 2021-03-18 22:08:26
要不就正则找
346323624(346323624) 2021-03-18 22:10:55
先找第一个,然后把第一个区间排除,再在剩下的区间找

图灵柯信代理(3314778163) 2021-03-18 22:12:47
是的

346323624(346323624) 2021-03-18 22:13:22
正则也很麻烦,有特殊字符不能用

346323624(346323624) 2021-03-18 22:13:30
还是图灵这个靠谱

版权保护: 本文由Graphhome原创,转载请保留链接: www.graphhome.com/html/28.html

小站主人Graphhome
博主印刷技术专业。熟悉印前技术、CTP制版流程。混迹图文广告行业多年,工作之余为提高工作效率,通过VB语言将coreldraw与Myexcel管理软件集成,搭建了订单管理系统,实现了工作数据一体化管理。站内免费开源地分享了博主作品格辅图攻graphhome软件和部分插件或技术,祝您工作顺利、生活幸福 ̄︶ ̄
  • 文章总数
  • 10122访问次数
  • 建站天数
  • Graphhome排版管理系统CDR

    标签