聲母的獲取方法

2021-04-03 03:03:55 字數 2199 閱讀 6807

我們在做資訊管理系統時經常要設定一些固定專案的拼音輸入方法,在做拼音輸入引數設定時又要獲取漢字的聲母,過去我們經常採用的方式就是把所有可能的字元提前放入資料庫中,使用時查詢呼叫,但是這種方式非常的麻煩和笨拙而且速度慢,今天突然找出乙個比較好的獲取聲母的方式,簡單、快捷。

完整**如下:

'獲取字元的聲母字串

public function spells(byval word as string) as string

dim txt as string = ""

dim mm as integer

word = trim(word)

for mm = 1 to len(word)

txt &= spellhead(mid(word, mm, 1))

next

return txt

end function

private function spellhead(byval word as char) as char

dim txt as char

'漢字if asc(word) < 0 then

select case asc(word)

case is < asc("啊")

txt = ""

case asc("啊") to asc("芭") - 1

txt = "a"

case asc("芭") to asc("擦") - 1

txt = "b"

case asc("擦") to asc("搭") - 1

txt = "c"

case asc("搭") to asc("蛾") - 1

txt = "d"

case asc("蛾") to asc("發") - 1

txt = "e"

case asc("發") to asc("噶") - 1

txt = "f"

case asc("噶") to asc("哈") - 1

txt = "g"

case asc("哈") to asc("擊") - 1

txt = "h"

case asc("擊") to asc("喀") - 1

txt = "j"

case asc("喀") to asc("垃") - 1

txt = "k"

case asc("垃") to asc("媽") - 1

txt = "l"

case asc("媽") to asc("拿") - 1

txt = "m"

case asc("拿") to asc("哦") - 1

txt = "n"

case asc("哦") to asc("啪") - 1

txt = "o"

case asc("啪") to asc("期") - 1

txt = "p"

case asc("期") to asc("然") - 1

txt = "q"

case asc("然") to asc("撒") - 1

txt = "r"

case asc("撒") to asc("塌") - 1

txt = "s"

case asc("塌") to asc("挖") - 1

txt = "t"

case asc("挖") to asc("昔") - 1

txt = "w"

case asc("昔") to asc("壓") - 1

txt = "x"

case asc("壓") to asc("匝") - 1

txt = "y"

case is >= asc("匝")

txt = "z"

end select

else

'英文本

if ucase(word) <= "z" and ucase(word) >= "a" then

txt = ucase(word)

else

txt = ""

end if

end if

return txt

end function

以上**在vb2005環境中順利通過,使用時只要呼叫spells這個函式就可以直接返回聲母字串了!

eg:

呼叫spells("中華人民共和國abcd"),返回結果為:"zhrmghgabcd"

替代方法 聲母替代 遺漏的矯治方法

本節課程 言語訓練的知識與技巧 之 聲母替代 遺漏的矯治方法 本期,馬老師講解了聲母替代 遺漏有哪些常見的出錯現象及具體矯治辦法,並進行詳細分析。聲母替代 遺漏的矯治方法 言語訓練的知識與技巧 主要講述了聽障兒童不同的 階段,言語訓練的內容 技巧與側重點。從 初期家長關心的聽能問題入手,講解聽能反應...

時間的獲取方法

sql code declare dtdatetime set dt getdate declare number intset number 3 1 指定日期該年的第一天或最後一天 a.年的第一天 select convert char 5 dt 120 1 1 b.年的最後一天 select c...

獲取元素的方法

1,根據id屬性獲取元素,返回乙個元素物件 document.getelementbyid id名 2,根據標籤名獲取元素,返回乙個偽陣列,裡面儲存了多個dom物件 document.getelementsbytagname 標籤名 可能有的瀏覽器不支援一下方式 3,根據name屬性值獲取元素,返回...