[原创]sqlserver2005 从大文本字段中查找某关键字对应的内容

概述在我自己工作中，要处理各种不同电子病例模板的数据，一些电子病例数据存放于数据库的大文本字段中，在我们自己系统中又要求重要的域要分开和提供接口供别人调用，我们需要把这些数据进行拆分，如拆分出： 入院情况；出院时间；住院经过；出院情况；出院医嘱；出院嘱托；出院带药；入院诊断；出院诊断；病理诊断； 因为模板不同，每个域的位置会不一样或者没有，所以我决定写一个函数来处理，下面我说一下我的做法： 字段内容如

在我自己工作中，要处理各种不同电子病例模板的数据，一些电子病例数据存放于数据库的大文本字段中，在我们自己系统中又要求重要的域要分开和提供接口供别人调用，我们需要把这些数据进行拆分，如拆分出：

入院情况；出院时间；住院经过；出院情况；出院医嘱；出院嘱托；出院带药；入院诊断；出院诊断；病理诊断；
因为模板不同，每个域的位置会不一样或者没有，所以我决定写一个函数来处理，下面我说一下我的做法：

字段内容如：

<table ID="table1" wIDth="100%" border="0">      <tbody>          <tr>              <td align="center" colspan="6" ><Font color="#000000"><span  ID="_ctl0_C1_Label1">出院记录</span> </Font></td>          </tr>          <tr>              <td ><span >姓名：</span> <span  ID="_ctl0_C1_lbname">王XXX</span></td>              <td ><span >性别：</span> <span  ID="_ctl0_C1_lbSex">男性</span></td>              <td ><span >年龄：</span> <span  ID="_ctl0_C1_lbAge">57岁</span></td>              <td > </td>          </tr>          <tr>              <td><span >入院时间：</span> <span  ID="_ctl0_C1_tbInHosTime">2013-01-09</span></td>              <td><span >出院时间：</span> <span  ID="_ctl0_C1_tbOutHosTime">2013-01-15</span></td>              <td><span >住院天数：</span> <span  ID="_ctl0_C1_tbDays">6</span> 天</td>              <td> </td>          </tr>          <tr>              <td valign="top" colspan="4"><span >入院诊断：</span> <span  ID="_ctl0_C1_tbInDiag">1.眩晕综合征 2.胃癌术后 3.左下肢静脉血栓形成</span></td>          </tr>          <tr>              <td valign="top" colspan="4"><span >出院诊断：</span> <span  ID="_ctl0_C1_tbOutDiag">1.眩晕综合征 2.胃癌术后 3.左下肢静脉血栓形成 4.2型糖尿病 5.轻度贫血（缺铁性） 6.慢性乙型病毒性肝炎</span></td>          </tr>          <tr>              <td valign="top" colspan="4"><span >入院情况：</span><span  ID="_ctl0_C1_tbBlDiag">患者，男性，57岁，因“头晕4小时”入院。浙一医院胃癌行根治术后病史7月，术后病理活检示胃溃疡型低分化腺癌，部分印戒细胞癌伴淋巴结转移性癌，已行8次化疗，左下肢静脉血栓形成病史7月，目前口服华法林片。查体：T37.0℃ P62次/分 R18次/分 BP123/68mmHg，神志清，呼吸平稳，口唇无发绀，锁骨上淋巴结未及肿大，双肺未及罗音，心率62次/分，律齐，未及杂音，腹平软，无压痛及反跳痛，腹部可见竖直手术疤痕，约8cm，愈合佳，肝脾肋下未及，双下肢无水肿；专科检查：右利手，言语流利，瞳孔等大约0.3cm，对光反射灵敏，口角无歪斜，伸舌居中，颈软，指鼻试验准确，四肢肌力5级，双侧巴氏征阴性。辅助检查：2012-05-14，本院，浙一医院，胃镜病理活检示胃溃疡型低分化腺癌，部分印戒细胞癌伴淋巴结转移性癌；B超示左髂外静脉、左股总静脉、左股浅静脉血栓形成，左下肢动脉血流通畅。 </span></td>          </tr>          <tr ID="_ctl0_C1_tr_blbg">              <td valign="top" colspan="4"><span >检验报告：</span><span  ID="_ctl0_C1_tbOutBlbg">2013-01-09 11：17查急常规+CRP+表抗：白细胞计数 4.0*10^9/L，血红蛋白 90g/L，血小板计数 214*10^9/L，中性粒细胞比率 45.2%，平均血红蛋白含量 25.6pg，平均血红蛋白浓度 317g/L，血小板体积分布宽度 9.2%，C-反应蛋白 1.4mg/L，乙肝表面抗原筛查 阳性；2013-01-09 11：24查凝血功能全套（急）：国际标准化比值 1.19；2013-01-09 11：44查急诊心肌酶谱+TnI定量：抗链球菌溶血素＂O＂ 202IU/ml；2013-01-09 14：26查糖化血红蛋白：HbA1C(NGSP) 7.9%，HbA1C(IFCC) 63mmol/mo，eGA(估算平均血糖) 9.97mmol/L，总糖化血红蛋白 10.6%；2013-01-10 09：31查糖化血红蛋白：HbA1C(NGSP) 7.7%；2013-01-10 09：50查凝血功能全套：国际标准化比值 0.99；2013-01-10 12：38查乙肝定量：乙肝表面抗原(定量) ＞250.00IU/ml，乙肝核心抗体(定量) 13.57S/CO；2013-01-10 13：25查糖耐量二次(G+I+C)：空腹血糖 7.79mmol/L，餐后二小时血糖 13.03mmol/L，肝肾功能、血脂、电解质、甲状腺功能、肿瘤标志化验基本正常；2013-01-12 11：27查凝血功能全套：国际标准化比值 1.11；2013-01-14 10：07查凝血功能全套：国际标准化比值 1.10。</span></td>          </tr>          <tr>              <td valign="top" colspan="4"><span >诊治经过：</span> <span  ID="_ctl0_C1_tbProcess">予保护胃粘膜、抗凝，改善循环、营养神经及支持对症等治疗。</span></td>          </tr>          <tr ID="_ctl0_C1_trJc" >              <td valign="top" colspan="4">诊疗期间主要检查结果：</td>          </tr>          <tr ID="_ctl0_C1_trJcjg" >              <td valign="top" colspan="4"> </td>          </tr>          <tr>              <td valign="top" colspan="4"><span >出院情况：</span><span  ID="_ctl0_C1_tbOutHosRecord">患者血压稳定，无头痛、头晕，无视物旋转，饮食、睡眠良好，无恶心、呕吐，无畏寒、发热，无胸闷、气促及呼吸困难，大小便无殊，查体：神志清，言语流利，对答切题，肺部听诊无罗音，心律齐，腹平软，肝脾肋下未触及，四肢肌力5级，右手握力稍弱，持物可，两侧巴氏征（-）；病情稳定，今要求出院，嘱其注意休息，继续用药，定期复查。  </span></td>          </tr>          <tr>              <td valign="top" colspan="4"><span >疗效评价：</span> <span  ID="_ctl0_C1_lbLxpj">不选</span></td>          </tr>          <tr>              <td valign="top" colspan="4" ><span >出院医嘱：</span></td>          </tr>          <tr>              <td valign="top" colspan="4"><span >　　出院康复指导及注意事项：</span><span  ID="_ctl0_C1_lblZysx">低脂、糖尿病饮食，忌烟酒，适当活动，定期复查，继续用药，监测血糖、凝血功能。</span></td>          </tr>          <tr ID="_ctl0_C1_trfzsj">              <td valign="top" colspan="4"><span >　　复诊时间：</span><span  ID="_ctl0_C1_lblFzsj">门诊随访，监测血糖、凝血功能。</span></td>          </tr>          <tr ID="_ctl0_C1_trcydy">              <td valign="top" colspan="4"><span >　　出院带药：</span></td>          </tr>          <tr>              <td  valign="top" colspan="4">  <span ID="_ctl0_C1_tbOutAdvice" >甲钴胺片500ug tID，呋喃硫胺片50mg tID。</span></td>          </tr>          <tr>              <td colspan="4">              <table wIDth="100%">                  <tbody>                      <tr>                          <td wIDth="70%"> </td>                          <td><span >医师签名：</span><span  ID="_ctl0_C1_tbDoctor">李海霞</span></td>                      </tr>                      <tr>                          <td> </td>                          <td><span >记录日期：</span><span  ID="_ctl0_C1_tbDateTime">2013-01-14</span></td>                      </tr>                  </tbody>              </table>              </td>          </tr>      </tbody>  </table>

首先进行去HTML或XML标记处理，使用正则表达式，sqlserver2005使用正则有两种，一种是使用ole自动化调用vbscript，另一种是用c#编写sqlserver  CLR项目建立自定义函数，我使用的前者。正则函数摘于网上：

set ANSI_NulLS ONset QUOTED_IDENTIFIER ONgo/*描述：正则式运算函数*/CREATE   function   [dbo].[regexReplace]   (     @source   varchar(5000),--原字符串     @regexp   varchar(1000),--正则表达式     @replace   varchar(1000),--替换值     @globalReplace   bit   =   0,--是否是全局替换     @ignoreCase   bit   =   0               --是否忽略大小写   )   returnS   varchar(1000)   AS   begin     declare   @hr   integer     declare   @objRegExp   integer     declare   @result   varchar(5000)         exec   @hr   =   sp_OACreate   'VBScript.RegExp',@objRegExp   OUTPUT     IF   @hr   <>   0   begin     exec   @hr   =   sp_OADestroy   @objRegExp     return   null     end     exec   @hr   =   sp_OASetProperty   @objRegExp,'Pattern',@regexp     IF   @hr   <>   0   begin     exec   @hr   =   sp_OADestroy   @objRegExp     return   null     end     exec   @hr   =   sp_OASetProperty   @objRegExp,'Global',@globalReplace     IF   @hr   <>   0   begin     exec   @hr   =   sp_OADestroy   @objRegExp     return   null     end     exec   @hr   =   sp_OASetProperty   @objRegExp,'IgnoreCase',@ignoreCase     IF   @hr   <>   0   begin     exec   @hr   =   sp_OADestroy   @objRegExp     return   null     end       exec   @hr   =   sp_OAMethod   @objRegExp,'Replace',@result   OUTPUT,@source,@replace     IF   @hr   <>   0   begin     exec   @hr   =   sp_OADestroy   @objRegExp     return   null     end     exec   @hr   =   sp_OADestroy   @objRegExp     IF   @hr   <>   0   begin     return   null     end     return   @result   end   

然后最主要的处理函数：

CREATE FUNCTION [dbo].[Func_GetDomainFromText](@value VARCHAR(MAX),@keyword VARCHAR(20))RETURNS VARCHAR(MAX)/* * 描述：从备注信息中找出某部分数据，如出院诊断。 * 作者：罗毅 * 例子：select top 20 dbo.Func_GetDomainFromText(LeaveSituation,'出院诊断') FROM RS_Mytable*/BEGIN	--先去掉HTML符号	DECLARE @T VARCHAR(MAX)	SET @T = dbo.regexReplace(@value,'<.+?>','',1,1)			--预设置节点	DECLARE @Items table(name varchar(20),Pos INT)	INSERT INTO @Items VALUES('入院情况',CHARINDEX('入院情况',@T))	INSERT INTO @Items VALUES('出院时间',CHARINDEX('出院时间',@T))	INSERT INTO @Items VALUES('住院经过',CHARINDEX('住院经过',@T))	INSERT INTO @Items VALUES('出院情况',CHARINDEX('出院情况',@T))	INSERT INTO @Items VALUES('出院医嘱',CHARINDEX('出院医嘱',@T))	INSERT INTO @Items VALUES('出院嘱托',CHARINDEX('出院嘱托',@T))	INSERT INTO @Items VALUES('出院带药',CHARINDEX('出院带药',@T))	INSERT INTO @Items VALUES('入院诊断',CHARINDEX('入院诊断',@T))	INSERT INTO @Items VALUES('出院诊断',CHARINDEX('出院诊断',@T))	INSERT INTO @Items VALUES('病理诊断',CHARINDEX('病理诊断',@T))	DELETE FROM @Items WHERE Pos = 0	--获取keyword对应的位置	DECLARE @p1 INT	DECLARE @p2 INT	DECLARE @F  INT	DECLARE @Res VARCHAR(MAX)	SET @F = 5	SET @p1 = -1	SET @p2 = -1	SET @p1 = CHARINDEX(@keyword,@T)	IF @p1 <= 0 RETURN ''	SELECT top 1 @p2=Pos FROM @Items WHERE Pos > @p1 ORDER BY Pos		IF (@p2 <= @p1) 		--当前关键字在组中位于最后，则取后面所有数据		SET @Res = SUBSTRING(@T,@p1+@F,len(@T)-@p1-@F)	ELSE 		--这里的偏移量5，是因为文本中存在冒号，如“出院诊断：”		SET @Res = SUBSTRING(@T,@p2-@p1-@F) 	RETURN @ResEND

如有不足之处，希望大家指出，我即时修改。

总结

以上是内存溢出为你收集整理的[原创]sqlserver2005 从大文本字段中查找某关键字对应的内容全部内容，希望文章能够帮你解决[原创]sqlserver2005 从大文本字段中查找某关键字对应的内容所遇到的程序开发问题。

如果觉得内存溢出网站内容还不错，欢迎将内存溢出网站推荐给程序员好友。