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

jueduilk

你写的这个脚本可以实现，我之前没有思路 就只能写两个函数 ，分别是大写转小写和小写转大写。可以实现，只是分别要用两个快捷键去控制。不知道如何一个函数来实现一个快捷键切换完成大小写之间的转换。

JC_09

duanpeng 发表于 2023-4-6 11:02
procedure(LowerToUpper(bb)
let((cv objs objText)
cv = geGetEditCellView()

请教您一下！这里的objs 和 obj的区别是什么？bb定义什么的？

ken-via

procedure( LowerLable()
    let ( (  labels  label text res )
        labels  = geGetselectedSet ()
        foreach ( label labels
            if ( lable ~> theLable != nil then
               text = lable ~> theLable
               res = lowerCase (text)
                lable ~> theLable = res
            ); if
        );foreach
    );end let
);end procedure


根据这个可以写另一个

不吃鱼的猫

CKH 发表于 2023-8-3 13:47
请教您一下！这里的objs 和 obj的区别是什么？bb定义什么的？

objs 和 obj是局部变量，自己随便起的名字，bb是参数，比如testCase(args)里面的参数1，2分别对应不同的开关

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)")

JC_09

不吃鱼的猫 发表于 2023-10-10 10:13
objs 和 obj是局部变量，自己随便起的名字，bb是参数，比如testCase(args)里面的参数1，2分别对应不同的 ...

好的，谢谢您！

bj_donnyh

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

    let((cv labels)

这个脚本非常好用，但有一个问题，就是当label中同时有大小写字母出现时，脚本运行后会都换成大写或小写。

着着着火了

bj_donnyh 发表于 2023-10-20 15:10
这个脚本非常好用，但有一个问题，就是当label中同时有大小写字母出现时，脚本运行后会都换成大写或小写 ...

这是一个好问题，但是很难解决，因为电脑压根就不知道你哪个大写想变小写，或者哪个小写想变大写，除非是固定的格式，第一个固定小写，后面都大写之类的，你想想是不是这个理

bj_donnyh

着着着火了 发表于 2023-10-20 15:14
这是一个好问题，但是很难解决，因为电脑压根就不知道你哪个大写想变小写，或者哪个小写想变大写，除非是 ...

确实是这样

着着着火了

jueduilk 发表于 2023-4-7 09:13
你写的这个脚本可以实现，我之前没有思路 就只能写两个函数 ，分别是大写转小写和小写转大写。可以实现，只 ...

刚好给另一个帖子的人回复相关问题时回到了这个帖子，想起你问的这个问题，倒是有了一个实现的方法。

先定义一个全局变量，第一次运行脚本会生成这个变量，使其为t，然后先检测其为t或nil，根据条件分支分别执行大小写转换，最后脚本末尾取反。后面的每次脚本运行就可以实现绑定一个快捷键实现大小写转换了

jinpeng.li

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

    let((cv labels)

是否可以实现连同PIN一起转换