光烟雾 发表于 2024-2-9 16:02

一个可以用来汉化ct脚本的小工具。

本帖最后由 光烟雾 于 2024-2-9 16:03 编辑

如果英文脚本没有汉化，自己一条条改非常耗时，这个可以批量改。
其实就是一段lua,在ce里点击——表单——显示lua脚本——运行脚本——读取
接着复制到网页翻译比如百度翻译，翻译完后点修改。

f = createForm(true)
f.Position=poDesktopCenter
f.Width=256
f.Height=288
f.Caption = '修改标签 '

local b1=createButton(f)
b1.Left=20
b1.Top=10
b1.caption='读取'

local b2=createButton(f)
b2.Left=155
b2.Top=10
b2.caption='修改'

local m=createMemo(f)
m.Height=180
m.Left=10
m.Top=50
m.Width=240
m.WordWrap=false
m.ScrollBars="ssAutoBoth"


b1.OnClick=function()
local sr = m.getLines()
al=getAddressList()
for n=0, al.Count-1 do
sr.String=al.description
end
end

b2.OnClick=function()
local sr = m.getLines()
al=getAddressList()
for n=0, sr.Count-1 do
al.description=sr.String
end
end
f = createForm(true)
f.Position=poDesktopCenter
f.Width=256
f.Height=288
f.Caption = '修改标签 '

local b1=createButton(f)
b1.Left=20
b1.Top=10
b1.caption='读取'

local b2=createButton(f)
b2.Left=155
b2.Top=10
b2.caption='修改'

local m=createMemo(f)
m.Height=180
m.Left=10
m.Top=50
m.Width=240
m.WordWrap=false
m.ScrollBars="ssAutoBoth"


b1.OnClick=function()
local sr = m.getLines()
al=getAddressList()
for n=0, al.Count-1 do
sr.String=al.description
end
end

b2.OnClick=function()
local sr = m.getLines()
al=getAddressList()
for n=0, sr.Count-1 do
al.description=sr.String
end
end

也可以把这个直接复制加到脚本里，激活后步骤一样。


明识教育 发表于 2024-2-9 17:35

谢谢分享，新年快乐
！

光烟雾 发表于 2024-2-21 18:23

自己顶一下。
页: [1]
查看完整版本: 一个可以用来汉化ct脚本的小工具。