关于supermemo面板字体修改求助（已解决需要的进）

hellozwz

treo680用YAHM+FontHack V的方式修改supermemo的字体解决了音标显示问题。
卡片上的字体都正常了，可是选词库那个面板字体大的吓人都超出屏幕了找了半天没找到在哪儿改。
修改过的大大帮忙指点下。
9 w; B- ?8 D( O! R0 {       还看到有的帖子上说zdic2.45可以解决supermemo的音标问题，没找到详细的说明贴。知道的麻烦告诉下方法，谢谢。

     晚上瞎溜达找到一个supermemo 的词库音标为 gmx 音标。同步进去停掉FontHackV居然神奇的解决了。音标显示一切正常，我并没有同步帖子里的字体。反正字体装的很乱我也搞不清楚了，所有文件原封不动奉上。
7 M( Z- [2 ]3 U. h========================================================================================
把 supermemo 里面的音标格式修改成 gmx 格式,这样,我们只要使用 fc 修改的支持音标的字库就了 见 , 我机器 tx, 字体放内存就行了, 应该 treo 650 680 等都可以使用 这里是 excel 里面的 vba
9 F6 P$ D6 T1 |Sub supermemo2gmx()
1 {6 L5 F: E2 M8 M/ x0 u" \8 N'
' supermemo2gmx
'
3 e" d% Y$ a$ G'
1 y- m# Z# R- D& A2 M'
    Selection.Replace What:="0", Replacement:=Chr(6), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
$ w8 f" R2 B/ e9 k    Selection.Replace What:="1", Replacement:=Chr(4), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
( Q7 M! k0 y4 m       Selection.Replace What:="2", Replacement:=Chr(16), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
    Selection.Replace What:="3", Replacement:=Chr(15), LookAt:=xlPart, _
) O5 z/ v: C; v  W( ^        SearchOrder:=xlByRows, MatchCase:=True
- T1 ^# L" b. O1 k/ Y2 {2 p0 H    Selection.Replace What:="4", Replacement:=Chr(11), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
8 s8 \, W0 ]* o" h+ V    Selection.Replace What:="5", Replacement:=Chr(28), LookAt:=xlPart, _
; v. ^- y! W$ C  S) I7 X        SearchOrder:=xlByRows, MatchCase:=True
    Selection.Replace What:="6", Replacement:=Chr(29), LookAt:=xlPart, _
- J6 l: _# t1 z/ o. P* R- f9 j        SearchOrder:=xlByRows, MatchCase:=True
6 [" s4 g0 t* c0 _7 E' t1 D    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
! r* t3 r) t+ F9 v' }7 F    Selection.Replace What:="9", Replacement:=Chr(3), LookAt:=xlPart, _
        SearchOrder:=xlByRows, MatchCase:=True
! k0 W5 F1 u+ R4 `0 E: o    Selection.Replace What:="/", Replacement:=Chr(2), LookAt:=xlPart, _
5 h7 P  |! z' h$ U' s4 M5 T        SearchOrder:=xlByRows, MatchCase:=True   
    Selection.Replace What:=" ", Replacement:=Chr(1), LookAt:=xlPart, _
' H! V5 i5 P( L& t" I/ E) r        SearchOrder:=xlByRows, MatchCase:=True
7 X/ y1 p# }  q   
1 B4 ?7 n/ h3 q. B- E+ B/ lEnd Sub

; {* y/ h  A4 \: F$ N6 u+ R这样我们还可以在 supermemo 里面显示 汉语拼音
4 y7 @; w0 _1 V* o当然任何一个地方包括 memopda 都能正常显示, 不需用  font4os5 等 hack 工具
1 l' R& w& B+ k; k
[ 本帖最后由 hellozwz 于 2009-1-5 22:29 编辑 ]

hellozwz

晕了，不小心传了两个上去，麻烦版主帮删一个吧。