DELIMITER $$
DROP FUNCTION IF EXISTS `Fun_GetPY`$$
CREATE FUNCTION `HIS`.`Fun_GetPY`
(in_string VARCHAR(21845))
RETURNS VARCHAR(21845) CHARSET utf8
BEGIN
#截取字符串，每次做截取后的字符串存放在該變量中，初始為函數參數in_string值
DECLARE tmp_str VARCHAR(21845) CHARSET gbk DEFAULT '' ;
#tmp_str的長度
DECLARE tmp_len SMALLINT DEFAULT 0;
#tmp_str的長度
DECLARE tmp_loc SMALLINT DEFAULT 0;
#截取字符，每次 left(tmp_str,1) 返回值存放在該變量中
DECLARE tmp_char VARCHAR(2) CHARSET gbk DEFAULT '';
#結果字符串
DECLARE tmp_rs VARCHAR(21845)CHARSET gbk DEFAULT '';
#拼音字符，存放單個漢字對應的拼音首字符
DECLARE tmp_cc VARCHAR(2) CHARSET gbk DEFAULT '';
#初始化，將in_string賦給tmp_str
SET tmp_str = in_string;
#初始化長度
SET tmp_len = LENGTH(tmp_str);
#如果被計算的tmp_str長度大於0則進入該while
WHILE tmp_len > 0 DO
#獲取tmp_str最左端的首個字符，注意這里是獲取首個字符，該字符可能是漢字，也可能不是。
SET tmp_char = LEFT(tmp_str,1);
#左端首個字符賦值給拼音字符
SET tmp_cc = tmp_char;
#獲取字符的編碼范圍的位置，為了確認漢字拼音首字母是那一個
SET tmp_loc=INTERVAL(CONV(HEX(tmp_char),16,10),0xB0A1,0xB0C5,0xB2C1,0xB4EE,0xB6EA,0xB7A2,0xB8C1,0xB9FE,0xBBF7,0xBFA6,0xC0AC
,0xC2E8,0xC4C3,0xC5B6,0xC5BE,0xC6DA,0xC8BB,0xC8F6,0xCBFA,0xCDDA ,0xCEF4,0xD1B9,0xD4D1);
#判斷左端首個字符是多字節還是單字節字符，要是多字節則認為是漢字且作以下拼音獲取，要是單字節則不處理。如果是多字節字符但是不在對應的編碼范圍之內，即對應的不是大寫字母則也不做處理，這樣數字或者特殊字符就保持原樣了
IF (LENGTH(tmp_char)>1 AND tmp_loc>0 AND tmp_loc<24) THEN
#獲得漢字拼音首字符
SELECT ELT(tmp_loc,'A','B','C','D','E','F','G','H','J','K','L','M','N','O','P','Q','R','S','T','W','X','Y','Z') INTO tmp_cc;
END IF;
IF ASCII(tmp_cc)>64 AND ASCII(tmp_cc) <91
THEN
#將當前tmp_str左端首個字符拼音首字符與返回字符串拼接
SET tmp_rs = CONCAT(tmp_rs,tmp_cc);
END IF;
#將tmp_str左端首字符去除
SET tmp_str = SUBSTRING(tmp_str,2);
#計算當前字符串長度
SET tmp_len = LENGTH(tmp_str);
END WHILE;
#返回結果字符串
RETURN tmp_rs;
END$$
DELIMITER ;
測試:
select Fun_GetPY('２０１６年9月,電子病歷,EMR衛生局外加中文英文標點符號\>\,＼／，．；')