主頁(yè) > 知識(shí)庫(kù) > ASP常用函數(shù):getpy()

ASP常用函數(shù):getpy()

熱門標(biāo)簽:云南便宜外呼系統(tǒng)平臺(tái) 沈陽(yáng)電話機(jī)器人公司 長(zhǎng)春公司外呼系統(tǒng)中心 沈陽(yáng)三五防封電銷卡 鄢陵學(xué)校如何做地圖標(biāo)注 鄭州智能外呼電銷機(jī)器人廠家 虛擬電話外呼系統(tǒng) 成都ai外呼系統(tǒng)線路 廣東語(yǔ)音外呼系統(tǒng)公司
%
'取字段數(shù)據(jù)每個(gè)漢字的拼音首字母

Function getpychar(char)
    tmp = 65536 + Asc(char)
    If(tmp>= 45217 And tmp= 45252) Then
        getpychar = "A"
    ElseIf(tmp>= 45253 And tmp= 45760) Then
        getpychar = "B"
    ElseIf(tmp>= 47761 And tmp= 46317) Then
        getpychar = "C"
    ElseIf(tmp>= 46318 And tmp= 46825) Then
        getpychar = "D"
    ElseIf(tmp>= 46826 And tmp= 47009) Then
        getpychar = "E"
    ElseIf(tmp>= 47010 And tmp= 47296) Then
        getpychar = "F"
    ElseIf(tmp>= 47297 And tmp= 47613) Then
        getpychar = "G"
    ElseIf(tmp>= 47614 And tmp= 48118) Then
        getpychar = "H"
    ElseIf(tmp>= 48119 And tmp= 49061) Then
        getpychar = "J"
    ElseIf(tmp>= 49062 And tmp= 49323) Then
        getpychar = "K"
    ElseIf(tmp>= 49324 And tmp= 49895) Then
        getpychar = "L"
    ElseIf(tmp>= 49896 And tmp= 50370) Then
        getpychar = "M"
    ElseIf(tmp>= 50371 And tmp= 50613) Then
        getpychar = "N"
    ElseIf(tmp>= 50614 And tmp= 50621) Then
        getpychar = "O"
    ElseIf(tmp>= 50622 And tmp= 50905) Then
        getpychar = "P"
    ElseIf(tmp>= 50906 And tmp= 51386) Then
        getpychar = "Q"
    ElseIf(tmp>= 51387 And tmp= 51445) Then
        getpychar = "R"
    ElseIf(tmp>= 51446 And tmp= 52217) Then
        getpychar = "S"
    ElseIf(tmp>= 52218 And tmp= 52697) Then
        getpychar = "T"
    ElseIf(tmp>= 52698 And tmp= 52979) Then
        getpychar = "W"
    ElseIf(tmp>= 52980 And tmp= 53640) Then
        getpychar = "X"
    ElseIf(tmp>= 53689 And tmp= 54480) Then
        getpychar = "Y"
    ElseIf(tmp>= 54481 And tmp= 62289) Then
        getpychar = "Z"
    Else '如果不是中文,則不處理
        getpychar = char
End If
End Function

Function getpy(Str)
    For i = 1 To Len(Str)
        getpy = getpygetpychar(Mid(Str, i, 1))
    Next
End Function
%>

標(biāo)簽:朝陽(yáng) 平頂山 四平 湖北 防城港 孝感 馬鞍山 遼陽(yáng)

巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP常用函數(shù):getpy()》,本文關(guān)鍵詞  ASP,常用,函數(shù),getpy,ASP,常用,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題,煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們,我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無(wú)關(guān)。
  • 相關(guān)文章
  • 下面列出與本文章《ASP常用函數(shù):getpy()》相關(guān)的同類信息!
  • 本頁(yè)收集關(guān)于ASP常用函數(shù):getpy()的相關(guān)信息資訊供網(wǎng)民參考!
  • 推薦文章