MSSQL String in RTF wandeln

… und noch eine SQL Funktion aus meiner Sammlung. Diese Funktion ermöglicht das Umwandeln eines normalen Strings in ein RTF „Objekt“ direkt auf der Datenbank.

-- Diese SQL Query erstellt eine neue Funktion mit dem Namen string2rtf. Die Funktion hat zur Aufgabe einen übergebenen String
-- in ein RTF Objekt umzuwandeln.
-- @param String enthält den Rohstring
-- @return rtfstring enthält den string plus die rtf Erweiterungen

if exists (select * from information_schema.routines where routine_name = N'string2rtf' and routine_type = 'function') drop function [dbo].[string2rtf]
GO
CREATE FUNCTION dbo.string2rtf(@string varchar(8000))
returns varchar(8000)
AS
BEGIN

DECLARE @praefix varchar(200)
DECLARE @suffix varchar(200)
DECLARE @rtfstring varchar(8000)

SET @praefix = '{\rtf1\ansi\ansicpg1252\deff0\deflang1033{\fonttbl{\f0\fnil\fcharset0 Microsoft Sans Serif;}}\viewkind4\uc1\pard\f0\fs17 '
SET @suffix = '\par}'
SET @rtfstring = NULL

SET @rtfstring = @praefix + @string + @suffix;
SET @rtfstring = REPLACE(@rtfstring,CHAR(9),'\tab ');
SET @rtfstring = REPLACE(@rtfstring,CHAR(13) + CHAR(10),'\par ');
SET @rtfstring = REPLACE(@rtfstring,CHAR(13),'\par ');
SET @rtfstring = REPLACE(@rtfstring,CHAR(10),'\par ');
SET @rtfstring = REPLACE(@rtfstring,'ä','\''e4');
SET @rtfstring = REPLACE(@rtfstring,'Ä','\''c4');
SET @rtfstring = REPLACE(@rtfstring,'ü','\''fc');
SET @rtfstring = REPLACE(@rtfstring,'Ü','\''dc');
SET @rtfstring = REPLACE(@rtfstring,'ö','\''f6');
SET @rtfstring = REPLACE(@rtfstring,'Ö','\''d6');
SET @rtfstring = REPLACE(@rtfstring,'ß','ss');
SET @rtfstring = REPLACE(@rtfstring,'€','\''80');

return @rtfstring
end