半角、全角 字符串互转\提取中文或数字
2012-01-13 17:57
369 查看
/*
半角字符串转全角
*/
if exists (select * from dbo.sysobjects where id = object_id(N '[dbo].[convert_CharSet_BJ2QJ] ')
and xtype in (N 'FN ', N 'IF ', N 'TF '))
drop function [dbo].[convert_CharSet_BJ2QJ]
GO
CREATE FUNCTION convert_CharSet_BJ2QJ(@AnsiString nvarchar(2000)) -- 输入的字符串，半角
RETURNS nvarchar(2000)
WITH ENCRYPTION
AS
BEGIN
DECLARE @i int
,@ret nvarchar(2000)
select @i=1
SET @ret= ' '
while @i <=len(@AnsiString)
begin
select @ret = @ret + NCHAR(ascii(SUBSTRING(@AnsiString, @i, 1))+ 0xFEE0 ) -- $FEE0
SET @i=@i+1
end
return @ret
end
go
--
/*
select dbo.convert_CharSet_BJ2QJ( '12345678.900 ')
--
*/
/*
全角字符串转半角
*/
if exists (select * from dbo.sysobjects where id = object_id(N '[dbo].[convert_CharSet_QJ2BJ] ')
and xtype in (N 'FN ', N 'IF ', N 'TF '))
drop function [dbo].[convert_CharSet_QJ2BJ]
GO
CREATE FUNCTION convert_CharSet_QJ2BJ(@WideString nvarchar(2000)) -- 输入的字符串，全角
RETURNS nvarchar(2000)
WITH ENCRYPTION
AS
BEGIN
DECLARE @i int
,@ret nvarchar(2000)
select @i=1
SET @ret= ' '
WHILE SUBSTRING(@WideString,@i,1) <> ' '
BEGIN
SET @ret=@ret+NCHAR(UNICODE(SUBSTRING(@WideString,@i,1))-
CASE
WHEN SUBSTRING(@WideString,@i,1)= '。 ' THEN 12244 ELSE 65248
END )
SET @i=@i+1
END
return @ret
end
go
--
/*
select dbo.convert_CharSet_QJ2BJ( '１２３４５６７８．９。００ ')
--
*/
/*
数字字符串转全角。可以包含中文。
*/
if exists (select * from dbo.sysobjects where id = object_id(N '[dbo].[convert_CharSet_2QJ] ')
and xtype in (N 'FN ', N 'IF ', N 'TF '))
drop function [dbo].[convert_CharSet_2QJ]
GO
CREATE FUNCTION convert_CharSet_2QJ(@AnsiString nvarchar(2000)) -- 输入的字符串，半角
RETURNS nvarchar(2000)
WITH ENCRYPTION
AS
BEGIN
DECLARE @i int
,@ret nvarchar(2000)
select @i=1
SET @ret= ' '
while @i <=len(@AnsiString)
begin
if unicode(SUBSTRING(@AnsiString, @i, 1)) <256
select @ret = @ret + NCHAR(unicode(SUBSTRING(@AnsiString, @i, 1))+ 0xFEE0 )
else
select @ret = @ret + SUBSTRING(@AnsiString, @i, 1)
SET @i=@i+1
end
return @ret
end
go
--
/*
select dbo.convert_CharSet_2QJ( '７我们12345678.900 ')
--
*/
/*
数字字符串转半角。包含汉字的字符串输出 null.
*/
if exists (select * from dbo.sysobjects where id = object_id(N '[dbo].[convert_CharSet_2BJ] ')
and xtype in (N 'FN ', N 'IF ', N 'TF '))
drop function [dbo].[convert_CharSet_2BJ]
GO
CREATE FUNCTION convert_CharSet_2BJ(@WideString nvarchar(2000)) -- 输入的字符串，全角
RETURNS nvarchar(2000)
WITH ENCRYPTION
AS
BEGIN
DECLARE @i int
,@ret nvarchar(2000)
select @i=1
SET @ret= ' '
WHILE SUBSTRING(@WideString,@i,1) <> ' '
BEGIN
if UNICODE(SUBSTRING(@WideString,@i,1))> 255
SET @ret=@ret+NCHAR(UNICODE(SUBSTRING(@WideString,@i,1))-
CASE
WHEN SUBSTRING(@WideString,@i,1)= '。 ' THEN 12244 ELSE 65248
END )
else
SET @ret=@ret+(SUBSTRING(@WideString,@i,1))
SET @i=@i+1
END
return @ret
end
go
--
/*
select dbo.convert_CharSet_2BJ( '156１２３４５６７８．９。００ ')
--
*/
create function c1toc2(@c3 nvarchar(1000))
returns nvarchar(1000)
as
begin
--declare @c1 nvarchar(30),@c2 nvarchar(30)
--set @c1='～！◎＃￥％……※×（）＿＋；‘：“，。、《》？【】『』'
--set @c2='~!@#$%^&*()_+;'':",./<>?[]{}'
select @c3=stuff(@c3,number,1,substring('~!@#$%^&*()_+;'':"",./<>?[]{}',charindex(substring(@c3,number,1),'～！◎＃￥％…※×（）＿＋；‘：“”，。、《》？【】『』'),1))
from master..spt_values where type='p' and number between 1 and len(@c3) and charindex(substring(@c3,number,1),'～！◎＃￥％…※×（）＿＋；‘：“”，。、《》？【】『』')>0
set @c3=replace(@c3,'^^','^')
return @c3
end
go
declare @c nvarchar(1000)
set @c='你好，今天是周未！（你）吃过没有？他说：“你今天很漂亮……”※《◎【】》、『％＃』这两本书很有意思。'
go
--求将一个字段的多条记录，拼成一条记录
if object_id('tb') is not null
drop table tb
go
create table tb
(
编码 varchar(10),
名称 varchar(10)
)
go
insert into tb
select '01','AAA' union all
select '01','BBB' union all
select '01','CCC' union all
select '02','DDD' union all
select '02','eee' union all
select '03','fff'
go
select 编码,名称=stuff((select '/'+名称 from tb where 编码=a.编码 for xml path('')),1,1,'') from tb a group by 编码
go
/*
---
--提取汉字
IF OBJECT_ID('dbo.fn_china_word') IS NOT NULL
DROP FUNCTION dbo.fn_china_word
GO
CREATE FUNCTION dbo.fn_china_word(@S NVARCHAR(100))
RETURNS VARCHAR(100)
AS
BEGIN
WHILE PATINDEX('%[^吖-座]%',@S) > 0---去掉 ^ 就是取非汉字
SET @S = STUFF(@S,PATINDEX('%[^吖-座]%',@S),1,N'')
RETURN @S
END
GO
select dbo.fn_china_word('s上地dfa北京市56中国的首都010sKSD海淀区*&^')
GO
--提取数字
IF OBJECT_ID('dbo.fn_get_number') IS NOT NULL
DROP FUNCTION dbo.fn_get_number
GO
CREATE FUNCTION dbo.fn_get_number(@S VARCHAR(100))
RETURNS VARCHAR(100)
AS
BEGIN
WHILE PATINDEX('%[^0-9]%',@S) > 0
BEGIN
set @s=stuff(@s,patindex('%[^0-9]%',@s),1,'')
END
RETURN @S
END
GO
select dbo.fn_get_number('sdfa北京市56中国的首都010sKSD海淀区*&^')
GO
--提取英文
IF OBJECT_ID('dbo.fn_get_eword') IS NOT NULL
DROP FUNCTION dbo.fn_get_eword
GO
CREATE FUNCTION dbo.get_eword(@S VARCHAR(100))
RETURNS VARCHAR(100)
AS
BEGIN
WHILE PATINDEX('%[^a-z]%',@S) > 0
BEGIN
set @s=stuff(@s,patindex('%[^a-z]%',@s),1,'')
END
RETURN @S
END
GO
select dbo.fn_get_eword('sdfa北京市56中国的首都010sKSD海淀区*&^')
GO
--获取拼音首字母函数
create function fn_GetPy_Each_First(@str nvarchar(4000))
returns nvarchar(4000)
as
begin
declare @strlen int,@re nvarchar(4000)
declare @t table(chr nchar(1) collate Chinese_PRC_CI_AS,letter nchar(1))
insert into @t(chr,letter)
select '吖','A' union all select '八','B' union all
select '嚓','C' union all select '咑','D' union all
select '妸','E' union all select '发','F' union all
select '旮','G' union all select '铪','H' union all
select '丌','J' union all select '咔','K' union all
select '垃','L' union all select '嘸','M' union all
select '拏','N' union all select '噢','O' union all
select '妑','P' union all select '七','Q' union all
select '呥','R' union all select '仨','S' union all
select '他','T' union all select '屲','W' union all
select '夕','X' union all select '丫','Y' union all
select '帀','Z'
select @strlen=len(@str),@re=''
while @strlen>0
begin
select top 1 @re=letter+@re,@strlen=@strlen-1
from @t a where chr<=substring(@str,@strlen,1)
order by chr desc
if @@rowcount=0
select @re=substring(@str,@strlen,1)+@re,@strlen=@strlen-1
end
return(@re)
end
go
select dbo.fn_GetPy_Each_First('大家都是中国人')
go
---获取汉字串中第一个汉字的首字母
create function fn_Getchinese_firstletter
(
@str nvarchar(1)
)
returns nvarchar(1)
as
begin
declare @word nchar(1),@PY nvarchar(4000)
set @PY=''
set @word=left(@str,1)
--如果非汉字字符，返回原字符
set @PY=@PY+(case when unicode(@word) between 19968 and 19968+20901
then (
select top 1 PY
from
(
select 'A' as PY,N'驁' as word
union all select 'B',N'簿'
union all select 'C',N'錯'
union all select 'D',N'鵽'
union all select 'E',N'樲'
union all select 'F',N'鰒'
union all select 'G',N'腂'
union all select 'H',N'夻'
union all select 'J',N'攈'
union all select 'K',N'穒'
union all select 'L',N'鱳'
union all select 'M',N'旀'
union all select 'N',N'桛'
union all select 'O',N'漚'
union all select 'P',N'曝'
union all select 'Q',N'囕'
union all select 'R',N'鶸'
union all select 'S',N'蜶'
union all select 'T',N'籜'
union all select 'W',N'鶩'
union all select 'X',N'鑂'
union all select 'Y',N'韻'
union all select 'Z',N'咗'
) T
where word>=@word collate Chinese_PRC_CS_AS_KS_WS
order by PY ASC
)
else @word
end)
set @str=right(@str,len(@str)-1)
return @PY
end
go
select dbo.fn_Getchinese_firstletter('大家都是中国人')
go
--过滤重复字符
IF OBJECT_ID('dbo.fn_distinct_str') IS NOT NULL
DROP FUNCTION dbo.fn_distinct_str
GO
CREATE FUNCTION dbo.fn_distinct_str(@S NVARCHAR(100),@SPLIT VARCHAR(50))
RETURNS VARCHAR(100)
AS
BEGIN
IF @S IS NULL RETURN(NULL)
DECLARE @NEW VARCHAR(50),@INDEX INT,@TEMP VARCHAR(50)
IF LEFT(@S,1)<>@SPLIT
SET @S = @SPLIT+@S
IF RIGHT(@S,1)<>@SPLIT
SET @S = @S+@SPLIT
WHILE CHARINDEX(@SPLIT,@S)>0 AND LEN(@S)<>1
BEGIN
SET @INDEX = CHARINDEX(@SPLIT,@S)
SET @TEMP = LEFT(@S,CHARINDEX(@SPLIT,@S,@INDEX+LEN(@SPLIT)))
IF @NEW IS NULL
SET @NEW = ISNULL(@NEW,'')+@TEMP
ELSE
SET @NEW = ISNULL(@NEW,'')+REPLACE(@TEMP,@SPLIT,'')+@SPLIT
WHILE CHARINDEX(@TEMP,@S)>0
BEGIN
SET @S=STUFF(@S,CHARINDEX(@TEMP,@S)+LEN(@SPLIT),CHARINDEX(@SPLIT,@S,CHARINDEX(@TEMP,@S)+LEN(@SPLIT))-CHARINDEX(@TEMP,@S),'')
END
END
RETURN RIGHT(LEFT(@NEW,LEN(@NEW)-1),LEN(LEFT(@NEW,LEN(@NEW)-1))-1)
END
GO
select dbo.fn_distinct_str('A,A,B,C,C,B,C,k,e,df,',',')
--A,B,C
GO
--过滤重复字符2
IF OBJECT_ID('dbo.fn_distinct_str2') IS NOT NULL
DROP FUNCTION dbo.fn_distinct_str2
GO
CREATE FUNCTION dbo.fn_distinct_str2(@S varchar(8000))
RETURNS VARCHAR(100)
AS
BEGIN
IF @S IS NULL RETURN(NULL)
DECLARE @NEW VARCHAR(50),@INDEX INT,@TEMP VARCHAR(50)
WHILE LEN(@S)>0
BEGIN
SET @NEW=ISNULL(@NEW,'')+LEFT(@S,1)
SET @S=REPLACE(@S,LEFT(@S,1),'')
END
RETURN @NEW
END
GO
SELECT dbo.fn_distinct_str2('AABCCD')
--ABCD
GO
内容来自用户分享和网络整理，不保证内容的准确性，如有侵权内容，可联系管理员处理 
相关文章推荐
- 全角转半角，提取数字，提取英文，提取中文，过滤重复字符，过滤重复字符2
- 提取字符串中数字、中文、英文字符…
- 存：JavaScript正则表达式提取字符串中字母、数字、中文
- tsql 用户函数- 从字符串中提取需要的字符(中文，数字，字母等)
- JavaScript正则表达式提取字符串中字母、数字、中文[转]
- SQL函数：字符串中提取数字，英文，中文，过滤重复字符（转）
- JavaScript正则表达式提取字符串中字母、数字、中文[转]
- 在sqlserver中如何从字符串中提取数字，英文，中文，过滤重复字符
- 字符串提取替换后再替换回去 和 函数将数字转换中文数字
- javaScript正则表达式提取字符串中字母、数字、中文 && 字符串替换
- 天气预报之提取城市代码：将含中文和数字的字符串分隔处理提取数组
- SQL函数：字符串中提取数字，英文，中文，过滤重复字符
- SQL函数：字符串中提取数字，英文，中文，过滤重复字符
- 在sqlserver中如何从字符串中提取数字，英文，中文，过滤重复字符
- 【转】SQL函数：字符串中提取数字，英文，中文，过滤重复字符
- 类库------对一些字符串进行操作的类1.判断输入是否数字2.截取字符串函数3.过滤输入信息4.生成随机数5.生成验证码图片6.获取汉字第一个拼音7.半角转全角8.全角转半角
- 解决Boost.Regex对中文支持不好的问题(据此解决全角数字换为半角数字)
- 6 MySQL UDF提取字符串中的字符(中文、英文、数字)
- 半角与全角、简繁体中文字符串互相转化
- 把字符串中的全角数字替换成半角数字 ０１２３４５６７８９ 转换成 0123456789