Function CreateImage(lpFieldValue)
  
   Dim regEx, Matches, Match
   if instr(lpFieldValue,"CreateImage")<=0 then
   CreateImage=lpFieldValue
   else
   Dim FieldParam,FieldParamArr,mytempValue,mytempNum,mytarget,templpFieldValue,file,filepath,filename,filebasename,fileextname
   Dim T:Set T=New Thumb
   Set regEx = New RegExp
   regEx.Pattern = "{\$CreateImage\([^{\$}]*}"
   regEx.IgnoreCase = True
   regEx.Global = True
   Set Matches = regEx.Execute(lpFieldValue)  
   For Each Match In Matches
    FieldParam    = Replace(Replace(Match.Value,"{$CreateImage(",""),")}","")
    FieldParamArr = Split(FieldParam,",")
 
 file=FieldParamArr(0)
 filepath=left(file,instrrev(file,"/"))
 filename=mid(file,instrrev(file,"/")+1)
 filebasename=split(filename,".")(0)
 call T.CreateThumb(FieldParamArr(0),FieldParamArr(1),FieldParamArr(2),1,0,filepath&filebasename&"_S.jpg")
 
 lpFieldValue=Replace(lpFieldValue,Match.Value,filepath&filebasename&"_S.jpg")
 
  
   Next
  
     CreateImage=lpFieldValue
  end if
 
  End Function

效果演示：

上海信田环保科技有限公司致力于经济、科学的环保技术在水、气、能源相关领域的开发、推广和应用。作为资深系统服务商和国际知名产品代理商，对系统中每个组件的深刻了解，使我们总能根据用户需求，选择最合理的工艺和配置，为客户提供更好的建议和帮助。秉承“创新、双赢“的理念，洁耐菲以专业、诚信的态度，为用户提供从咨询、设计、制造、安装、调试到维护的整套个性化优质服务。
业务范围
公司现有业务涉及民用净水、锅炉软化水、电子行业超纯水、食品医药行业工艺用水、景观水、中水回用、物料浓缩、分离纯化、空气净化等众多领域。
合作伙伴
作为资深水处理系统服务商，良好的声誉赢得了众多客户的信赖和长久的合作。公司同意大利ETATRON、德国RENOWN、日东电工美国海德能、美国PENTAIR等著名公司建立了良好的合作关系，并与国内一些大学、科研机构及行业顾问有着广泛的交流和合作，确保了公司在技术应用领域始终处于行业的前沿。

技术力量

公司在膜分离技术应用方面积累了丰富的经验，多年的工程实践和产品经营，使我们总能集合先进的工艺技术和产品，满足客户个性化的需求。公司拥有一批具有丰富施工与管理经验的工程技术人员，从工艺设计、设备选型、标书制作、安装调试到售后维护，都有专业人员提供完善的服务。
坚持 “为客户创造价值”的发展理念，上海信田愿以强大的资源和技术优势，与各界同仁精诚合作，共同发展。

主要产品
一、水处理材料
意大利ETATRON计量泵 （中国区总代理）
美国HYDRANAUTICS（海德能） （授权代理）
杭州特种南方泵 （一级代理）
德国配件组装RENOWN 高品质紫外线杀菌灯 （库存代理）
英国PUROLITE（漂莱特）离子交换树脂 （库存代理）
美国PENTAIR公司玻璃钢桶、FLECK多路阀 （库存代理）
电导率、电阻率、pH、ORP、TDS、余氯、浊度等各种仪器仪表及配件 （库存代理）
其他多种水处理材料及配件 （库存代理）

二、水处理设备
反渗透、纳滤、超滤、微滤设备 （民用、工业）
过滤设备 （石英砂、锰砂、活性炭）
离子交换设备 （软化、混床、EDI）
消毒设备 （水、空气）
加药设备 （循环水、污水、锅炉）
中水回用设备（印染、电镀、市政、化工）
景观水、泳池设备
电气控制设备

三、技术服务
提供工艺设计、设备选型、标书制作、安装调试、售后维护服务；
提供有关产品的性能参数及适用性技术咨询；
推荐新产品及介绍业内最新技术成果。

四、部分业绩