这里是 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

没有评论:
发表评论