SQL Server 2005 Beta 2 汉字数据简繁转换实例 (CLR,Assemblies)

playyuer 2004-07-29 11:20:13

http://blog.csdn.net/playyuer/archive/2004/07/29/55917.aspx

比较初级!

以前写过一个 .Net Framework v1.1 的 dll (regasm + gacutil) 注册成 COM 的在 SQL 2000 里用过!

...全文

427 34 打赏收藏举报

写回复

用AI写文章

34 条回复

切换为时间正序

请发表友善的回复…

发表回复

xinzai55 2004-07-31

打赏
举报

都是些有质量的文章哦，楼主有空多发点，多多提拔啊。。。

derny 2004-07-31

打赏
举报

good

txhack 2004-07-31

打赏
举报

佩服你们,总在走在技术的前沿

futulove 2004-07-31

打赏
举报

收了

jimmyge 2004-07-31

打赏
举报

THANK YOU VERY MUCH!

wgy2008 2004-07-31

打赏
举报

学习!!!

zfg1706228 2004-07-31

打赏
举报

佩服无私+超强能力

zjcxc 元老 2004-07-30

打赏
举报

引用word对象来处理,太慢了吧??

有没有直接引用转换模块的?

egxsun 2004-07-30

打赏
举报

学习！

friendliu 2004-07-30

打赏
举报

呵呵，关注

pbsql 2004-07-30

打赏
举报

看看先

xikboy 2004-07-30

打赏
举报

------转贴：
/*

Description:

---需要安裝Office 2000

統杅佽隴:

-------------------------------------------------------

@TransType 轉換類型

0 -- 簡體轉繁體

1 -- 繁體轉簡體

@sInText 待轉換的字串

@sOutText 轉換後的字串

-------------------------------------------------------

*/

ALTER Proc spConverter @TransType tinyint,@sInText Nvarchar(4000),@sOutText Nvarchar(4000)OUTPUT

AS

DECLARE @WordApplication int

DECLARE @ErrHandler int

DECLARE @Document int

DECLARE @Selection int

DECLARE @Message NVARCHAR(4000)

DECLARE @src varchar(255), @desc varchar(255)

--Create Word instance

EXEC @ErrHandler = sp_OACreate 'Word.Application', @WordApplication OUT

IF @ErrHandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @WordApplication, @src OUT, @desc OUT

SELECT hr=convert(varbinary(4),@ErrHandler), Source=@src, Description=@desc

RETURN

END

---// create instance end

--Create a word document instance

EXEC @ErrHandler = sp_OACreate 'Word.Document', @Document OUT

IF @ErrHandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @Document, @src OUT, @desc OUT

SELECT hr=convert(varbinary(4),@ErrHandler), Source=@src, Description=@desc

RETURN

END

--//

---

EXEC @ErrHandler = sp_OAGetProperty @Document, 'Application.Selection', @Selection OUT

IF @ErrHandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @Document

RETURN

END

EXEC @ErrHandler = sp_OASetProperty @Selection, 'Text', @sInText

IF @ErrHandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @Selection

RETURN

END

EXEC @ErrHandler = sp_OAMethod @Selection, 'Range.TCSCConverter',NULL,@TransType,1,1

IF @ErrHandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @Selection

RETURN

END

EXEC @ErrHandler = sp_OAGetProperty @Selection, 'Text', @sOutText OUT

IF @ErrHandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @Selection

RETURN

END

---

EXEC @ErrHandler = sp_OADestroy @WordApplication

IF @Errhandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @WordApplication

RETURN

END

---

EXEC @ErrHandler = sp_OADestroy @Document

IF @Errhandler != 0

BEGIN

EXEC sp_OAGetErrorInfo @Document

RETURN

END

EXEC sp_OAStop

RETURN

zheninchangjiang 2004-07-30