掌上百科 - PDAWIKI

 找回密码
 免费注册

QQ登录

只需一步,快速开始

查看: 1203|回复: 3

[工具] 拼音等特殊字符转为26字母的宏(自制)

[复制链接]

该用户从未签到

发表于 2018-3-19 22:30:35 | 显示全部楼层 |阅读模式
除了用汉字搜索以外,对于一些生僻字词,最方便的还是用拼音来搜索。- y* h9 j4 m0 |, ]& e
但是直接输入拼音比输入汉字更难。
  z" |5 L/ N9 H4 o" m9 c) QEbwin对拼音搜索支持很好,可以用在辞典端和程序端分别实现拼音的自动替换。* B& P" P5 ^+ Y' U% Z; e
比如输入sheng,可以自检索shéng、shèng等。可惜ebwin对汉字支持差,最近开始转战mdx阵营。3 p  a; l+ _; o. z

8 K) K& E8 g8 h0 V" L( hMdict似乎没有实现拼音搜索的好方法,所以写了一个emeditor的宏,将拼音和一些键盘上没有的文字自动转换为26个字母。
/ b1 c3 t0 W# h; }# Q供大家参考。代码如下,附件里是同样内容。0 |7 K) \/ s/ B6 G$ H1 l: X5 k
覆盖unicode的0A0-17F,1C0-1DF。
$ B9 b4 ?, s0 d可以将词头和拼音单独提出后使用,再配合@@@LINK来实现。
4 Z; W1 R3 n3 V9 P3 W/ @; s# b$ q+ T  V4 {& S. ^) V* u
效果大致如下,对于多音字多的词条查起来还是很麻烦,ebwin上可以实现搜索结果的组合。
3 c- |3 u) _5 ^# y( X+ h1 C$ I7 E  Z
可以比较ebwin的效果,可惜ebwin对汉字支持差,无法两全。6 N) O6 {5 d7 p2 f
5 ?& ^9 F( F" S8 V$ D& z
3 y+ Z9 W3 q" j( A
! z4 ^/ i/ N) |* F

6 Y+ [# R8 @6 ddocument.selection.Replace "¡","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
8 \! y9 P! S+ E" _: ]document.selection.Replace "§","ss",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0* i* y' X0 G* z' ]
document.selection.Replace "©","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,09 _5 [8 S$ k/ A' k7 R4 ]* b% X
document.selection.Replace "ª","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
: k" i7 v1 @7 \5 ~% R" L3 c! ndocument.selection.Replace "®","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0; I5 k- S( m/ T( [+ t) V/ H. U
document.selection.Replace "¯","-",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
5 z( z- M/ C/ c( n4 ^6 f1 Jdocument.selection.Replace "°","。",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,00 z$ `3 M  Z( a& Q
document.selection.Replace "±","+-",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0* |# p4 E/ T! k6 {: E
document.selection.Replace "²","2",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,00 P# P- p, H% o7 F+ x/ `
document.selection.Replace "³","3",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
( D- C( U) g* H) X5 g& {document.selection.Replace "´","'",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
, W5 k6 E* H; s% ]" e+ Jdocument.selection.Replace "·",".",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0" l+ r1 h& c9 u. H" y
document.selection.Replace "¹","1",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
0 P9 z4 w) C) T& m; R- adocument.selection.Replace "º","。",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ Y# ?2 H& [* }- t  |5 u& F0 \
document.selection.Replace "¼","1/4",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- E/ S. g( N% C: i. A# n3 D" W
document.selection.Replace "½","1/2",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
7 _+ F3 f  `. Z( V6 g/ gdocument.selection.Replace "¾","3/4",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% U5 D4 h( _/ {( E* X4 e& ^& ]! mdocument.selection.Replace "À","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
) q8 I' W" E! w1 t) |document.selection.Replace "Á","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
) Z. \% g- [, e7 d. L1 Xdocument.selection.Replace "Â","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0% Z) t4 j- Q1 k( }% P
document.selection.Replace "Ã","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- ?/ Y6 X$ \, }8 w% }
document.selection.Replace "Ä","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
, L* r; i' O* adocument.selection.Replace "Å","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
9 E7 F( z$ r9 @8 G& U7 a2 Sdocument.selection.Replace "Æ","AE",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
" Q, [( R* Y! e# s  w/ Idocument.selection.Replace "Ç","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0! C$ o! ~& f4 W7 C
document.selection.Replace "È","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,05 P" }" M6 G0 j1 V( U
document.selection.Replace "É","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0/ p" r. n+ S+ o- R: c9 {
document.selection.Replace "Ê","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
4 s) d' ~0 R4 ldocument.selection.Replace "Ë","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
: j, C! ^8 z$ u) [document.selection.Replace "Ì","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
, @* T% T8 D% C; \7 J$ sdocument.selection.Replace "Í","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
$ L: S  |" [5 w9 \5 s: Gdocument.selection.Replace "Î","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0+ G' q8 O9 P' F$ m# H: I( |
document.selection.Replace "Ï","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% `6 B( T* q$ B0 s" w7 }. Qdocument.selection.Replace "Ð","D",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,07 \& j+ E1 K: o3 O" i$ U9 _3 E6 |0 T$ u
document.selection.Replace "Ñ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 G* }1 Z3 c* E6 f1 r+ ?; E: Sdocument.selection.Replace "Ò","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
; P0 \# `" K: L6 ldocument.selection.Replace "Ó","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0' c; U; ]0 B  i  \% g9 y* W# S9 N) ~
document.selection.Replace "Ô","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
- i( k1 b1 @& H1 xdocument.selection.Replace "Õ","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
/ ]# G+ a* i$ O0 [8 m0 Y5 t" |, M, ?document.selection.Replace "Ö","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,05 d% O+ i2 a% {" X2 d' h
document.selection.Replace "Ø","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% l4 J% d# b# Odocument.selection.Replace "Ù","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
# l' p$ @  H6 H; Y. s+ D- Qdocument.selection.Replace "Ú","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,02 b8 {" x2 e+ W8 c7 ^  j5 B
document.selection.Replace "Û","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( P/ t  V: |3 D7 T3 \( ?3 e- B
document.selection.Replace "Ü","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
" u) K' V: ~* m3 U# i+ B8 l( _) |document.selection.Replace "Ý","Y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
$ @) ]# _% f  c9 @4 Hdocument.selection.Replace "à","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ f( l8 T5 L, c) q+ C( M1 I
document.selection.Replace "á","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
1 S3 ~+ L6 t! O  ?( i+ edocument.selection.Replace "â","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
! l& t& o. B+ Odocument.selection.Replace "ã","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 Q9 \. ?  x# ?+ T# h! C
document.selection.Replace "ä","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
4 t& G, X) B$ T  `2 ]5 ?document.selection.Replace "å","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- H, Q( |. A6 f* \5 O. a5 P6 G
document.selection.Replace "æ","ae",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- c3 J; M  V8 ?  T& R  Z' T$ C
document.selection.Replace "ç","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0% v  l0 l, `0 Z* s
document.selection.Replace "è","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
" N& W; a* \, j" i7 @document.selection.Replace "é","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
9 ]: V0 F0 D  @( c! M/ |: E1 b" Bdocument.selection.Replace "ê","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,02 J: T2 T5 a' l  u4 w: v% z% J% h
document.selection.Replace "ë","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
6 Y* K3 u7 H! A( @0 Rdocument.selection.Replace "ì","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,01 y9 w# {) U! Y% J# v
document.selection.Replace "í","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0  v' Q& T$ q) D0 {. d
document.selection.Replace "î","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- `, j3 X5 j1 L2 M6 @  U: p
document.selection.Replace "ï","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% i9 k  \; R" T; Sdocument.selection.Replace "ñ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 j3 H5 D/ G$ S7 t/ R, D3 g$ i1 A
document.selection.Replace "ò","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,07 U, M3 K1 N  h5 f/ u( u7 I, h/ o
document.selection.Replace "ó","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ j* {% W+ W5 @% d5 U
document.selection.Replace "ô","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
. _  U* [  P8 l+ S3 O7 @document.selection.Replace "õ","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ j% y) P! l2 W
document.selection.Replace "ö","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,00 @- u& B0 w# {/ B/ x
document.selection.Replace "ù","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,00 G& M( g8 U. B  l. Z" t* M
document.selection.Replace "ú","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,05 Q$ i& ^4 Z6 n) D- A6 q
document.selection.Replace "û","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
) W. f/ J$ B, z, E7 ^/ rdocument.selection.Replace "ü","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
4 V' i7 J! k9 h7 ^8 u) adocument.selection.Replace "ý","y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
9 t# [( f- Q0 `* k/ ?" d- e' ]) Bdocument.selection.Replace "ÿ","y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,04 f# s1 z3 s* D7 ?( G- }
document.selection.Replace "Ā","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- ]- M8 P: j; @7 O
document.selection.Replace "ā","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( P4 P" P: @" s" K$ U
document.selection.Replace "Ă","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
$ y, v. ]* i5 f2 Xdocument.selection.Replace "ă","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
* b+ ]9 J( D! r2 P9 {# |" G/ R  }0 e  adocument.selection.Replace "Ą","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0) ~8 n3 J1 q, [$ E
document.selection.Replace "ą","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
2 s/ r, }& J% P/ b5 y8 ldocument.selection.Replace "Ć","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0! p+ N* L; `" ^% b
document.selection.Replace "ć","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
5 |" X( S+ n; |  ^document.selection.Replace "Ĉ","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ ?9 O( s7 z) Q/ K: \
document.selection.Replace "ĉ","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0  S3 T3 {, n. g" r$ I8 A6 Z# t! A
document.selection.Replace "Ċ","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% t, W! v" i* V$ V/ v( i1 gdocument.selection.Replace "ċ","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0/ R- i% ^9 b! z0 H
document.selection.Replace "Č","C",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0  X: h& v  ^0 u5 l! u' `
document.selection.Replace "č","c",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
6 t4 @" _# ]) S( C1 m5 Ndocument.selection.Replace "Ď","D",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 V0 z* C9 Q) F3 w. P, l! z3 `% Q; K
document.selection.Replace "ď","d",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% D7 X# d1 d# c2 f+ i8 ?  Pdocument.selection.Replace "Đ","D",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
: R- y( _3 Y$ Bdocument.selection.Replace "đ","d",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
5 q+ e# k) s" W8 W! s/ Tdocument.selection.Replace "Ē","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
/ c1 {5 o" ?# r$ k+ G* N0 w- ]2 |document.selection.Replace "ē","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,09 s. U, y2 v0 t) i+ G
document.selection.Replace "Ĕ","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
: t7 a# b' ~+ B/ `. jdocument.selection.Replace "ĕ","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
5 w3 u7 [( ]. @; e5 j% g: D( tdocument.selection.Replace "Ė","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,05 I# N( x8 O" I* e
document.selection.Replace "ė","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0# j/ ?5 |/ R5 \0 B3 j
document.selection.Replace "Ę","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
" }5 Y3 k2 [  @9 W0 y" {: Y# Bdocument.selection.Replace "ę","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0: _* ]. G) C2 ]% b9 c
document.selection.Replace "Ě","E",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
; k$ T/ U* o4 Q5 O; B: Tdocument.selection.Replace "ě","e",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0, D; n0 @1 n/ ?# E" E
document.selection.Replace "Ĝ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
# m$ ^$ }2 K! O7 Qdocument.selection.Replace "ĝ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
$ E8 M$ [- V/ @document.selection.Replace "Ğ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% o7 v7 r) J6 h( a! Idocument.selection.Replace "ğ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% S1 o1 [1 t* e8 edocument.selection.Replace "Ġ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0# Z3 Z4 G" l+ J& t) A/ f( {& d
document.selection.Replace "ġ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
# O+ [: x6 @  `( @9 odocument.selection.Replace "Ģ","G",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- ?1 C) D# E0 x0 p" ]6 v+ ~7 I
document.selection.Replace "ģ","g",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ R' ?  Y6 ?" y8 `8 x
document.selection.Replace "Ĥ","H",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0) f$ C$ J8 M# Y! }, I
document.selection.Replace "ĥ","h",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
2 _1 V. w; N' \! W7 ndocument.selection.Replace "Ħ","H",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
( _% K: `4 e9 U- ~2 o9 U9 Mdocument.selection.Replace "ħ","h",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
! e5 \/ o+ i) t. i# x' p0 L! kdocument.selection.Replace "Ĩ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
2 R! J1 J- D! {9 udocument.selection.Replace "ĩ","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
$ Z- H! ?/ m( o. J5 ]document.selection.Replace "Ī","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,04 ?5 a. `8 E2 O. t7 W( @6 y
document.selection.Replace "ī","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0" S- o# ~& _, }- }) b1 q
document.selection.Replace "Ĭ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
5 U* U# x" ~% V, y) k+ ddocument.selection.Replace "ĭ","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0! E" ]) u! B: `3 N3 D
document.selection.Replace "Į","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0/ R$ @5 f! S' k
document.selection.Replace "į","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 c7 F1 i! `. ?/ G9 T. zdocument.selection.Replace "İ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 ~& c# p7 b2 f. O: P+ jdocument.selection.Replace "ı","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
- T8 w6 q/ Z0 A' ]document.selection.Replace "IJ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- N. N- f8 i. p: J  v2 A
document.selection.Replace "ij","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
; N5 V: F  Z' Fdocument.selection.Replace "Ĵ","J",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,09 g  f: C- J9 C; n
document.selection.Replace "ĵ","j",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
1 ^% |& x) T) O' l/ h- rdocument.selection.Replace "Ķ","K",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
) u. ^0 A: V" Mdocument.selection.Replace "ķ","k",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
9 w9 v8 ^" T& A: X: k& B" c- Sdocument.selection.Replace "ĸ","k",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,03 t5 D' o9 j& J+ V& X
document.selection.Replace "Ĺ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0/ T$ Y# }* d0 _1 Q3 Y9 p' h
document.selection.Replace "ĺ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
- J; L" M, {8 P% |7 A8 S! C2 ~document.selection.Replace "Ļ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
  d$ F6 [  n6 D# Ldocument.selection.Replace "ļ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
7 P  U3 W: Z% [3 |/ xdocument.selection.Replace "Ľ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
+ W3 f! f* X5 @/ Qdocument.selection.Replace "ľ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
8 A: F* }; a& |. p5 Gdocument.selection.Replace "Ŀ","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,00 e7 k$ w6 e( ~
document.selection.Replace "ŀ","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0% {% B( p; s4 D3 i  X; a
document.selection.Replace "Ł","L",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
8 Y4 }! K6 P0 mdocument.selection.Replace "ł","l",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,03 C6 U+ U6 z3 J  X6 z2 j8 \
document.selection.Replace "Ń","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- L5 ^+ y9 m6 w' a8 e8 K
document.selection.Replace "ń","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 |, V  g& Z+ u0 ?( Kdocument.selection.Replace "Ņ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
/ @" ?0 n) \9 ]6 Q5 B& J; hdocument.selection.Replace "ņ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
/ a" K$ a/ O8 e& s) Cdocument.selection.Replace "Ň","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
* ]6 |- g! b8 Gdocument.selection.Replace "ň","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
/ ]1 y/ T6 s9 d, T8 C3 ^! `0 Edocument.selection.Replace "ʼn","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,02 g1 ~( I9 a* w6 V. b/ e" P! R
document.selection.Replace "Ŋ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
  _0 }) M) l" udocument.selection.Replace "ŋ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
/ y* r2 u# s& l( v4 g/ X2 F3 `document.selection.Replace "Ō","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
  l: j" ]- Q/ g0 {: }& q$ @  edocument.selection.Replace "ō","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 Z6 E8 L7 u+ adocument.selection.Replace "Ŏ","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% D# ]" d0 f' N6 ?document.selection.Replace "ŏ","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
% d' i# _! a* ~document.selection.Replace "Ő","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0  n2 [" U; h# N* A  r: Q
document.selection.Replace "ő","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 i- w0 h7 I- m6 o3 i8 b$ C& v: N
document.selection.Replace "Œ","OE",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
. Z5 }0 ^9 f% ]5 {2 h. Pdocument.selection.Replace "œ","oe",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0" v% E2 `9 n) D7 o: q+ Q
document.selection.Replace "Ŕ","R",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,07 K8 K- d6 [0 {0 J/ R" W
document.selection.Replace "ŕ","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
7 G/ ^2 K$ x( I- S/ ~% @document.selection.Replace "Ŗ","R",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0: Y# h2 p& h9 H9 s
document.selection.Replace "ŗ","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
. P% _3 i' |+ z+ V8 I+ Mdocument.selection.Replace "Ř","R",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,03 A! h9 Y$ f0 B- T' z: N! g
document.selection.Replace "ř","r",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ }1 l, `5 O: p9 E! F4 \
document.selection.Replace "Ś","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 o: Y- ?0 G5 i6 U9 Ndocument.selection.Replace "ś","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0) o. C$ P. o- a% m% B7 h1 c1 O
document.selection.Replace "Ŝ","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,05 V. w; v, E; @( ]' O  v
document.selection.Replace "ŝ","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0  Q5 U2 M/ b" X
document.selection.Replace "Ş","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,03 M6 I, b: u. N  z: W& x
document.selection.Replace "ş","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0/ J# f4 w$ t8 [6 w3 G" w3 T! Y7 q
document.selection.Replace "Š","S",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
! I& b8 @; [" p3 y2 Sdocument.selection.Replace "š","s",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( V$ O+ d' i6 R
document.selection.Replace "Ţ","T",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
  j2 y+ z! {( _0 Jdocument.selection.Replace "ţ","t",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
- K+ J' m/ f& o- L; p7 bdocument.selection.Replace "Ť","T",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
4 |! c) b. z/ Vdocument.selection.Replace "ť","t",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
1 D8 E8 n" [, p  i. b, E. \0 Sdocument.selection.Replace "Ŧ","T",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0  |( Y- z# Y9 t1 p7 R: c7 C9 [9 X
document.selection.Replace "ŧ","t",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( u9 c& T1 h+ S" C& a: u
document.selection.Replace "Ũ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0* O" B3 Q5 [2 M  G4 A
document.selection.Replace "ũ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
* @" ^+ F; j/ R+ v4 hdocument.selection.Replace "Ū","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0' k  k* [; {- ^' |. X9 h
document.selection.Replace "ū","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
2 b$ I  @( i" @document.selection.Replace "Ŭ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
8 |: t: ~, n! }+ gdocument.selection.Replace "ŭ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,05 m0 @: e: e" _  T; `- V( |& s
document.selection.Replace "Ů","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0# a7 c/ C6 x8 j
document.selection.Replace "ů","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
3 z, [+ m% n: f* o8 ?document.selection.Replace "Ű","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( ]" i( S- M* |9 ?- x; T3 A  k
document.selection.Replace "ű","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 P% [; k. t8 @% }+ B+ O
document.selection.Replace "Ų","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0; c) Z4 n& X. x+ [1 k3 Z) V
document.selection.Replace "ų","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
4 h  B/ ?( `/ p% \1 qdocument.selection.Replace "Ŵ","W",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
6 A' N  u; ?' V# C8 A0 p7 Odocument.selection.Replace "ŵ","w",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 q2 M, F2 K& O. e; _
document.selection.Replace "Ŷ","Y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
' O: r1 `' h% Ydocument.selection.Replace "ŷ","y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0! U' u; ~9 n( v' T1 N; K
document.selection.Replace "Ÿ","Y",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( R8 K: q4 b7 i6 s, @% K
document.selection.Replace "Ź","Z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0, n4 Q- w, m, Z( E
document.selection.Replace "ź","z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
- }3 i+ u8 i, G# Ddocument.selection.Replace "Ż","Z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0) n' e1 J4 X( O" B$ [
document.selection.Replace "ż","z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
0 A8 r- x, C: o8 adocument.selection.Replace "Ž","Z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0$ ^* m& I# G  C% x/ U+ a
document.selection.Replace "ž","z",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
; \+ e  x5 B/ R+ O" s9 N( b8 Ddocument.selection.Replace "Ǎ","A",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0' k+ m" A3 e' @3 ]4 H3 w1 f
document.selection.Replace "ǎ","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0* B  l1 e# P  F9 j  B& p
document.selection.Replace "Ǐ","I",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
+ X9 \# N9 r, C7 o0 Ldocument.selection.Replace "ǐ","i",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0( e& O: B9 m+ _
document.selection.Replace "Ǒ","O",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,07 \7 \% ~" \+ N; ?) x& I
document.selection.Replace "ǒ","o",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,07 l. t+ M. Y) H  q. B- p, j! w$ I" T
document.selection.Replace "Ǔ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
9 H! k, r8 I  [* m2 `# O! ?7 zdocument.selection.Replace "ǔ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0- O5 R; g; _4 _2 K
document.selection.Replace "Ǖ","U",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
' W. l( G" s) b7 \) ^) |. h) ?document.selection.Replace "ǖ","u",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0' o" ~! g" Y3 a2 T; H7 y
document.selection.Replace "Ǘ","V",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,01 R: Z6 t. ]& R$ j: q
document.selection.Replace "ǘ","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
1 a$ h$ p, d- @) L: Sdocument.selection.Replace "Ǚ","V",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,02 U* H6 @. F1 Z6 i4 S' i
document.selection.Replace "ǚ","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,03 Q$ t( C( p8 e9 @! a
document.selection.Replace "Ǜ","V",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,08 k! L& K5 S* _; A% `/ ]
document.selection.Replace "ǜ","v",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
: T8 X/ u# A$ Ydocument.selection.Replace "Ǟ","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
  U5 o3 R0 ^3 d- S, w* B% |document.selection.Replace "ǟ","a",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0
! o8 Q% f* _0 f8 u# Z- k7 }document.selection.Replace "Ǹ","N",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,06 N# `! q* [$ ]7 n$ Z1 ~! h. x+ g7 t
document.selection.Replace "ǹ","n",eeFindReplaceCase Or eeFindReplaceEscSeq Or eeReplaceAll,0

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?免费注册

x

评分

1

查看全部评分

本帖被以下淘专辑推荐:

该用户从未签到

发表于 2020-2-3 15:09:07 | 显示全部楼层
Thanks for your great work.

该用户从未签到

发表于 2020-2-8 11:26:31 | 显示全部楼层
虽然不该挖坟,还是建议在后面加上读音的数字。比如shéng替换为sheng2

该用户从未签到

 楼主| 发表于 2020-2-8 21:34:56 | 显示全部楼层
lejcey 发表于 2020-2-8 11:26
4 b' M) j" E3 ~, x虽然不该挖坟,还是建议在后面加上读音的数字。比如shéng替换为sheng2
' O: b* m# w1 |6 i" t# P
说起来容易做起来难。自动转换éng的话,只能实现为e2ng,要做到数字标示到韵母最后需要非常多步的判断处理
您需要登录后才可以回帖 登录 | 免费注册

本版积分规则

小黑屋|手机版|Archiver|PDAWIKI |网站地图

GMT+8, 2024-4-19 20:41 , Processed in 0.048561 second(s), 10 queries , MemCache On.

Powered by Discuz! X3.4

Copyright © 2001-2023, Tencent Cloud.

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