各位大神，有没有大小写字母转换的脚本呀

术道逸风

我想将lable从小写字母转换成大写字母，有脚本能转换吗

maomao198477

有的

着着着火了

用stringToLower("A")和stringToUpper("a")这两个函数

jueduilk

着着着火了 发表于 2023-4-4 15:22
用stringToLower("A")和stringToUpper("a")这两个函数

IC6找到找到对应这两个函数是lowerCase/upperCase.  有没有方法使用这两个函数 让大小写的lable一键来回切换呢？新手请教。

duanpeng

procedure(LowerToUpper(bb)
let((cv objs objText)
cv = geGetEditCellView()
objs = setof(x cv ~> shapes x ~> objType == "label")
foreach(obj objs
        objText = ""
        objText = obj ~> theLabel
        if(bb == 1
        then
        objText = stringToLower(objText)
        else
        objText = stringToUpper(objText)
        );if
        obj ~> theLabel = objText
);foreach
);let
);proc

note30933

谢谢分享

着着着火了

jueduilk 发表于 2023-4-4 16:28
IC6找到找到对应这两个函数是lowerCase/upperCase.  有没有方法使用这两个函数 让大小写的lable一键来回 ...

procedure(testCase(args)

    let((cv labels)
        cv=geGetEditCellView()
        labels=setof(x geGetSelSet() x~>objType=="label")
        foreach(label labels
            case(args
                (1 label~>theLabel=upperCase(label~>theLabel))
                (2 label~>theLabel=lowerCase(label~>theLabel))
            );end case
        );end foreach
    );end let
);end procedure

hiSetBindKey("Layout" "<Key>KP_1" "testCase(1)")
hiSetBindKey("Layout" "<Key>KP_2" "testCase(2)")

~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~
用法：先选中label，再执行脚本

上面的KP_1 KP_2代表数字键盘的1和2，你要是想改成其他的也可以

ncash0933

谢谢分享

jueduilk

着着着火了 发表于 2023-4-6 14:24
procedure(testCase(args)

    let((cv labels)

感谢 请教下 有没有办法在程序内判断出大小写然后一键进行修改呢？

着着着火了

jueduilk 发表于 2023-4-6 15:58
感谢 请教下 有没有办法在程序内判断出大小写然后一键进行修改呢？

我目前的思路是用正则表达式去筛选label，分类到两个list，然后通过上面的那两个函数处理，没试验过，有待验证