找回密码
 加入我们

QQ登录

只需一步,快速开始

搜索
查看: 1252|回复: 1

[软硬件讨论] 关于supermemo面板字体修改求助(已解决需要的进)

[复制链接]
发表于 2009-1-5 14:30 | 显示全部楼层 |阅读模式
treo680用YAHM+FontHack V的方式修改supermemo的字体解决了音标显示问题。 ) z, r' b9 [$ j: {
卡片上的字体都正常了,可是选词库那个面板字体大的吓人都超出屏幕了找了半天没找到在哪儿改。
6 v# b2 ?. h- R% ?# j修改过的大大帮忙指点下。
% K! @8 I5 H& X/ P       还看到有的帖子上说zdic2.45可以解决supermemo的音标问题,没找到详细的说明贴。知道的麻烦告诉下方法,谢谢。" m9 W8 h4 J6 ]) ~- w

6 u! {5 @  L! A. M4 [, s     晚上瞎溜达找到一个supermemo 的词库音标为 gmx 音标。同步进去停掉FontHackV居然神奇的解决了。音标显示一切正常,我并没有同步帖子里的字体。反正字体装的很乱我也搞不清楚了,所有文件原封不动奉上。) [5 _4 c2 N! I" P; N
========================================================================================
, s6 M8 Y& I! n# g& U( G把 supermemo 里面的音标格式修改成 gmx 格式,这样,我们只要使用 fc 修改的支持音标的字库就了 见 , 我机器 tx, 字体放内存就行了, 应该 treo 650 680 等都可以使用 这里是 excel 里面的 vba
& f; j+ p( v/ B4 g* E' kSub supermemo2gmx()
0 t. X9 u3 [  F" U'
8 z+ Y; a: `3 z* k8 y( A' supermemo2gmx, R& ]; `; G5 B7 G6 U
'" G) Z* O/ G8 `9 j
'
, B) f$ e9 Z, ~'
. x( w+ s% C+ P, _    Selection.Replace What:="0", Replacement:=Chr(6), LookAt:=xlPart, _! c( w8 l$ k9 \. i, S9 v
        SearchOrder:=xlByRows, MatchCase:=True% w2 h9 B: w) m- }; p5 k6 s
    Selection.Replace What:="1", Replacement:=Chr(4), LookAt:=xlPart, _' R# N9 f9 b4 {: a: h% }# R  k, A& ?9 V
        SearchOrder:=xlByRows, MatchCase:=True; U' k# E+ w: ^! h/ R" h
       Selection.Replace What:="2", Replacement:=Chr(16), LookAt:=xlPart, _5 H* @) ?3 |; ~( j+ K% d6 t$ P+ {
        SearchOrder:=xlByRows, MatchCase:=True
. A$ u4 z2 _& Q) Z+ Y( I) K* I- `. ~& H" M    Selection.Replace What:="3", Replacement:=Chr(15), LookAt:=xlPart, _
; @( Y% Z7 W8 s) m* J$ W        SearchOrder:=xlByRows, MatchCase:=True7 g2 e' \6 L& r3 q
    Selection.Replace What:="4", Replacement:=Chr(11), LookAt:=xlPart, _
3 F+ v) P% `' _# w/ l8 g0 F        SearchOrder:=xlByRows, MatchCase:=True
& X; t" `3 R! H; j    Selection.Replace What:="5", Replacement:=Chr(28), LookAt:=xlPart, _* t0 E3 P! y8 q# W  m$ A) p
        SearchOrder:=xlByRows, MatchCase:=True& s% G! Y: V, t: o
    Selection.Replace What:="6", Replacement:=Chr(29), LookAt:=xlPart, _
* Y8 \4 k0 H8 p4 j+ ^8 d        SearchOrder:=xlByRows, MatchCase:=True( r# c. ~: @, }# `7 E
    Selection.Replace What:="7", Replacement:=Chr(30), LookAt:=xlPart, _
1 i* U9 x+ Z3 }# t, o- n        SearchOrder:=xlByRows, MatchCase:=True4 \6 ]7 U# I$ L
    Selection.Replace What:="8", Replacement:=Chr(25), LookAt:=xlPart, _
! C) m& s  p" ]) ^/ E2 Z        SearchOrder:=xlByRows, MatchCase:=True9 k" D, U6 @: M8 a" N6 g- x: M
    Selection.Replace What:="9", Replacement:=Chr(3), LookAt:=xlPart, _
0 u3 k. I) g: o        SearchOrder:=xlByRows, MatchCase:=True
! U. H9 _/ L: C, g5 C7 |" F% T    Selection.Replace What:="/", Replacement:=Chr(2), LookAt:=xlPart, _
5 s; F+ F" G* Y% E        SearchOrder:=xlByRows, MatchCase:=True   5 r9 h$ U, S, Z2 D7 B
    Selection.Replace What:=" ", Replacement:=Chr(1), LookAt:=xlPart, _1 ]" _6 f/ J3 |; l: P
        SearchOrder:=xlByRows, MatchCase:=True
6 H" y& |9 O# K1 o   
! m. X; k! m. ]! }; m2 P" b+ e; wEnd Sub( o" h. d8 t+ [+ r! _6 ~/ T. \

4 p) B* G6 Q! V7 }; {这样我们还可以在 supermemo 里面显示 汉语拼音; L& v8 ^. j1 @) ?6 H
当然任何一个地方包括 memopda 都能正常显示, 不需用  font4os5 等 hack 工具
' U/ R8 D  @$ }- |# q
) M% S6 Z1 F) d) W  K" p7 _. A* O' i[ 本帖最后由 hellozwz 于 2009-1-5 22:29 编辑 ]

supermemo.rar

197.28 KB, 下载次数: 475

supermemo.rar

197.28 KB, 下载次数: 406

回复

使用道具 举报

 楼主| 发表于 2009-1-5 22:32 | 显示全部楼层
晕了,不小心传了两个上去,麻烦版主帮删一个吧。
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

QQ|Archiver|手机版|小黑屋|吹友吧 ( 京ICP备05078561号 )

GMT+8, 2024-12-22 16:01 , Processed in 0.269967 second(s), 18 queries .

Powered by Discuz! X3.5 Licensed

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表