区分汉字和字母的函数

区分汉字和字母的函数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