1、楼上的代码不能适应“pos语句不在行开头”的情况。
以下是“能够适应”的代码
rem subt存储的是字幕,x是横坐标,y是纵坐标
function addpos(subt,x,y)
sublen=len(subt)
exf=false
for cp=1 to sublen-5
if format$(mid$(subt,cp,6))="{\POS(" then
rcp=cp
exf=true
end if
if exf then
for cp=rcp to sublen
if mid$(subt,cp,1)="}" then exf2=true:exit for
next
if exf2 then
subt1=mid$(subt,1,rcp-1)
subt2=mid$(subt,cp+1)
addpos=subt1+"{\pos("+trim(str(x))+","+trim(str(y))+")}"+subt2
else
msgbox("字幕语句中的POS代码有错。",,"提示")
end if
else
addpos="{\pos("+trim(str(x))+","+trim(str(y))+")}"+subt
end if
end function
未经调试，请谨慎使用
2、popsub的“窗口大小、位置的记忆功能”：
最大化窗口后，关闭popsub的时候就记忆了“最大化”的坐标和大小
关闭时检查一下“form.windowsstate”，如果是“2”就表明处在最大化状态，不要记录大小和位置，下次启动恢复窗口大小后把它设为“2”即可。
3、坐标自动添加功能可以使“为日文歌词汉字注音”更加快捷。
建议再增加一个“锁定x/y坐标”的功能。
添加2个check和text，两个check的caption分别叫“锁定x坐标”和“锁定y坐标”。两个文本框输入要锁定的值。
这样，在标注音的时候就可以更方便的对齐注音。
