Function htmlDecode(strHTML) 'html代码转换为纯文本 Dim objRegExp, Match, Matches Set objRegExp = New Regexp objRegExp.IgnoreCase = True objRegExp.Global = True '取闭合的<> objRegExp.Pattern = "<.+?>" '进行匹配 Set Matches = objRegExp.Execute(strHTML) ' 遍历匹配集合，并替换掉匹配的项目 For Each Match in Matches strHtml=Replace(strHTML,Match.Value,"") Next strHtml=replace(strHtml," "," ") htmlDecode=strHTML Set objRegExp = Nothing End Function %> 中核第四研究设计工程有限公司
欢迎访问－核四院网站



　
当前位置：首页--关于我们--院长致辞

　

　　核工业第四研究设计院　　是从事核工程及其他工业与民用工程勘察、设计、监理、科研的综合性国家百强研究设计院，　曾经为中国核工业的创建与发展，为国民经济建设做出过重要的贡献。

　　进入二十一世纪，核工业第四研究设计院将以　“团结、创新、高效、优质”的四院精神，用一流的产品、先进的管理、优良的服务奉献于社会，为企业的发展设计最美的蓝图。

院长 徐 力

　　

　　诚信是金。　我们以诚实守信为立业之道、兴业之本，在您创业、发展中，我们将成为您最忠诚、最信赖的朋友。我们愿通过无线传输信号带给各级领导和各界朋友最诚挚的祝福，并致以最良好的祝愿。

　　让我们在共同的目标和事业中，携手奋进，共同描绘最新最美的画卷，为企业的兴旺发达、为祖国的繁荣昌盛做出更大的贡献。
 
地　　址：
 河北省石家庄市体育南大街261号
备案序号：
 冀ICP备05022100号
邮　　编：
 050021
电　　话：
 0311－85912310
传　　真：
 0311－85815216
Email ：
xmglb@c-fine.com.cn
网　　址：
 http://www.c-fine.com.cn
技术支持：
   河北网