2008年12月16日星期二

修改supermemo 的词库音标为gmx音标

把 supermemo 里面的音标格式修改成 gmx 格式,这样,我们只要使用 fc 修改的支持音标的字库就行了, 字体放内存就行了, 应该 treo 650 680 等都可以使用 http://www.palmstamp.com/forum/viewtopic.php?t=64461

这里是 excel 里面的 vba

Sub supermemo2gmx()

'

' supermemo2gmx

'

'



'

Selection.Replace What:="0", Replacement:=Chr(6), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="1", Replacement:=Chr(4), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="2", Replacement:=Chr(16), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="3", Replacement:=Chr(15), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="4", Replacement:=Chr(11), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="5", Replacement:=Chr(28), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="6", Replacement:=Chr(29), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="7", Replacement:=Chr(30), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="8", Replacement:=Chr(25), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="9", Replacement:=Chr(3), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:="/", Replacement:=Chr(2), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True

Selection.Replace What:=" ", Replacement:=Chr(1), LookAt:=xlPart, _

SearchOrder:=xlByRows, MatchCase:=True



End Sub







这样我们还可以在 supermemo 里面显示 汉语拼音
当然任何一个地方包括 memopda 都能正常显示, 不需用 font4os5 等 hack 工具

最简单转换办法, easy ,下载 sugarmemo pc 转换版本, 转换原来词库为 csv 文件,用 excel 打开, 导入 king2gmx.bas 宏, 执行宏,并另存为 制表符分隔 的文本文件,在 用 smconv 来转换即可!


king2gmx.zip (407 Bytes)SMCONV.zip (11.74 KB) sugarmemo_Setup.rar (400.41 KB







没有评论:

发表评论