在进行字符串处理时，常常需要提取其中某一类型的字符，有时候需要提取其中的数字，有时需要提取其中的英文字符，而有时候则需要提取其中的中文字符。
这里利用正则匹配，实现了该功能。
废话少说，直接上码：
DELIMITER $$
DROP FUNCTION IF EXISTS `Num_char_extract`$$
CREATE FUNCTION `Num_char_extract`(Varstring VARCHAR(100)CHARSET utf8, flag INT) RETURNS VARCHAR(50) CHARSET utf8BEGIN
DECLARE len INT DEFAULT 0;
DECLARE Tmp VARCHAR(100) DEFAULT '';
SET len=CHAR_LENGTH(Varstring);
IF flag = 0
THEN
WHILE len > 0 DO
IF MID(Varstring,len,1)REGEXP'[0-9]' THEN
SET Tmp=CONCAT(Tmp,MID(Varstring,len,1));
END IF;
SET len = len - 1;
END WHILE;
ELSEIF flag=1
THEN
WHILE len > 0 DO
IF (MID(Varstring,len,1)REGEXP '[a-zA-Z]')
THEN
SET Tmp=CONCAT(Tmp,MID(Varstring,len,1));
END IF;
SET len = len - 1;
END WHILE;
ELSEIF flag=2
THEN
WHILE len > 0 DO
IF ( (MID(Varstring,len,1)REGEXP'[0-9]')
OR (MID(Varstring,len,1)REGEXP '[a-zA-Z]') )
THEN
SET Tmp=CONCAT(Tmp,MID(Varstring,len,1));
END IF;
SET len = len - 1;
END WHILE;
ELSEIF flag=3
THEN
WHILE len > 0 DO
IF NOT (MID(Varstring,len,1)REGEXP '^[u0391-uFFE5]')
THEN
SET Tmp=CONCAT(Tmp,MID(Varstring,len,1));
END IF;
SET len = len - 1;
END WHILE;
ELSE
SET Tmp = 'Error: The second paramter should be in (0,1,2,3)';
RETURN Tmp;
END IF; DELIMITER $$DROP FUNCTION IF EXISTS `Num_char_extract3`$$CREATE FUNCTION `Num_char_extract3`(Varstring VARCHAR(100)CHARSET utf8, myFlag VARCHAR(100) CHARSET utf8) RETURNS VARCHAR(50) CHARSET utf8BEGIN
DECLARE len INT DEFAULT 0; -- Varstring的总长度
DECLARE bLen INT DEFAULT 0;-- 当前循环 网站交易 开始的字符位置
DECLARE flag INT DEFAULT 0; -- 定义获取文字的类别,0 表示(0),(-1)这种格式;1,表示D1,D2这种格式
DECLARE myText VARCHAR(100) DEFAULT '';-- myFlag中的文字,例如(-1),则myText为-1;(1),则myText为1
DECLARE myTextNum INT DEFAULT 0; -- 和myText对应,是myText 网站交易 对应的数字
DECLARE myIndex INT DEFAULT -1;-- D1,D2里面1,2的数字
DECLARE Tmp VARCHAR(100) DEFAULT '';-- 返回的字符串
DECLARE v_isFind BOOL DEFAULT FALSE;-- 标记是否找到
DECLARE prevChar VARCHAR(1) DEFAULT NULL;-- 上一个字符
DECLARE myReturn VARCHAR(100) DEFAULT '';
SET len = CHAR_LENGTH(Varstring);
SET bLen = 0;
IF LOCATE ('(',myFlag) > 0 AND LOCATE (')',myFlag) > 0 THEN SET flag = 0;
ELSEIF LOCATE ('D',myFlag) > 0 THEN SET flag = 1;
ELSE SET flag = -1;
END IF;
IF flag = 0
THEN
-- (1)取()中的按照字符串分割,取索引位置为0值,例如马栏山连接线（K0+000~K3+840）”，（0）特征值取“马栏山连接线”，（1）取特征值取“K0+000~K3+840”
SET myText = SUBSTRING_INDEX(SUBSTRING_INDEX(myFlag,')',1),'(',-1);-- 取出括号内的数字
IF myText NOT REGEXP '[0-9]' THEN
SET Tmp = 'Error: The (1111) paramter should be in num';
RETURN Tmp;
ELSE
SET myTextNum = myText+0;-- 转为数字
END IF;
IF myText = '0' THEN -- 取括号外的内容
WHILE bLen <= len DO
IF MID(Varstring,bLen,1) NOT REGEXP'[（]' AND MID(Varstring,bLen,1) NOT REGEXP'[(]' THEN
SET Tmp=CONCAT(Tmp,MID(Varstring,bLen,1));
ELSE
SET bLen = len; -- 即跳出循环
END IF;
SET bLen = bLen + 1;
END WHILE;
ELSE
IF LOCATE ('(',Varstring) > 0 THEN -- 兼容中文括号和外文括号
SET myText = SUBSTRING_INDEX(SUBSTRING_INDEX(Varstring,')',1),'(',-1);
ELSE
SET myText = SUBSTRING_INDEX(SUBSTRING_INDEX(Varstring,'）',1),'（',-1);
END IF;
SET Tmp = SPLIT_STR(myText, ',', myTextNum);
END IF;
ELSEIF flag=1
THEN
SET myText = SUBSTRING(myFlag,2);-- 截取D之后的所有字符
IF myText NOT REGEXP '[0-9]' THEN
SET Tmp = 'Error: The (222) paramter should be in num';
RETURN Tmp;
ELSE
SET myIndex = myText+0;-- 转为数字
END IF;
SET myTextNum = 0;-- 当前循环的已经获取的符合条件的个数
-- D1,D2,D3：表示分别于分项名称中第一个开始的数字+字母的值，如冲击钻机冲孔桩径150cm以内孔深30m以内黏土，D1表示特征值的为150cm,D2特征值的为30m
WHILE bLen <= len DO
IF bLen > 0 THEN
SET prevChar = MID(Varstring,bLen-1,1);-- 存放上一个的字符
END IF;
IF MID(Varstring,bLen,1) REGEXP '[0-9]' AND (prevChar IS NULL OR prevChar REGEXP '[0-9]' OR Tmp = '') THEN -- 获取连续的数字
SET Tmp=CONCAT(Tmp,MID(Varstring,bLen,1));
ELSE
IF prevChar REGEXP'[0-9]' AND (MID(Varstring,bLen,1) REGEXP '[a-zA-Z]') THEN-- 如果上一个是数字,当前是字母,则符合条件
SET myTextNum = myTextNum+1;-- 已经符合条件的个数,myTextNum则累加1
IF myIndex = myTextNum THEN -- 如果已经找到满足条件的个数了
SET v_isFind = TRUE;
SET Tmp=CONCAT(Tmp,MID(Varstring,bLen,1));
END IF;
ELSE
IF v_isFind THEN -- 已经找到,如果没有找到,则需要继续找
IF (MID(Varstring,bLen,1) NOT REGEXP '[a-zA-Z]') THEN -- 只要不匹配字母,则推出
SET bLen = len; -- 即跳出循环
ELSE
SET Tmp=CONCAT(Tmp,MID(Varstring,bLen,1)); -- 匹配,则一直累加
END IF;
ELSE
SET Tmp = '';-- 开始新一轮循环
END IF;
END IF;
END IF;
SET bLen = bLen + 1;
END WHILE;
ELSE
SET Tmp = 'Error: The second paramter should be in (0,1,2,3)';
RETURN Tmp;
END IF;
RETURN Tmp;
END$$
DELIMITER ;
1.查询结果
SELECT Num_char_extract3('马栏山连接线（K0+000~K3+840,连接线）','(0)');//马栏山连接线SELECT Num_char_extract3('马栏山连接线（K0+000~K3+840,连接线）','(1)');//K0+000~K3+840SELECT Num_char_extract3('马栏山连接线（K0+000~K3+840,连接线）','(2)');//连接线
SELECT Num_char_extract3('冲击70钻65机冲孔桩径150cm以内孔深30m以内黏土80km我的世界90我的','D0');//""SELECT Num_char_extract3('冲击70钻65机冲孔桩径150cm以内孔深30m以内黏土80km我的世界90我的','D1');//150cmSELECT Num_char_extract3('冲击70钻65机冲孔桩径150cm以内孔深30m以内黏土80km我的世界90我的','D2');//30mSELECT Num_char_extract3('冲击70钻65机冲孔桩径150cm以内孔深30m以内黏土80km我的世界90我的','D3');//80kmSELECT Num_char_extract3('冲击70钻65机冲孔桩径150cm以内孔深30m以内黏土80km我的世界90我的','D4');//"
RETURN REVERSE(Tmp);
END$$
DELIMITER
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/69993776/viewspace-2752475/ ，如需转载，请注明出处，否则将追究法律责任。
