区分汉字和字母的函数

区分汉字和字母的函数delphi

function gthz(s:string):string;
var i:integer;
begin
result:='';
for i:= 0 to Length(s) do
begin
if (Ord(s[i]) >= 127) then
result:=result+s[i];
end;
end;

区分汉字和字母的函数 sqlserver

if exists (select * from dbo.sysobjects where id = object_id(N'[dbo].[gethz]') and xtype in (N'FN', N'IF', N'TF'))
drop function [dbo].[gethz]
go

Create function gethz( @string nvarchar(4000) )
returns nvarchar(4000)
as
begin

declare @returnstr nvarchar(4000)
set @returnstr=''

DECLARE @position int, @nstring nchar(9)
SET @position = 1
WHILE @position <= DATALENGTH(@string)
BEGIN
if UNICODE(SUBSTRING(@string, @position, 1))>127
set @returnstr= isnull(@returnstr,'')+ SUBSTRING(@string, @position, 1)

set @position = @position + 1
END

return @returnstr

end