以文本方式查看主题

-  易表在线答疑  (http://egrid2000.com/dvbbs/index.asp)
--  用户社区  (http://egrid2000.com/dvbbs/list.asp?boardid=2)
----  [求助]删除重复字符,每次出现保留一个  (http://egrid2000.com/dvbbs/dispbbs.asp?boardid=2&id=27371)

--  作者:binsion
--  发布时间:2014/8/14 19:01:00
--  [求助]删除重复字符,每次出现保留一个
字符窜中删除重复的字符,某字符每次连续出现多个时仅保留一个。请帮忙看下,谢谢!
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:01.egd


--  作者:wjq1072
--  发布时间:2014/8/14 20:56:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:6666.egd


--  作者:binsion
--  发布时间:2014/8/15 1:49:00
--  

谢谢wjq,下面公式

EvalFor(GridName,"结果","Mid([字符窜],0,1)+Eval(""If(Mid([字符窜],""+Substitute(Substitute(Substitute(Eval(""Substitute(""""|@|#|"""",""""|"""",""""""+Substitute(ListFor(""表2"",""a"",1),""|"","""""")+""""|""""+Substitute(""""|@|#|"""",""""|"""","""""")+"""""")""),""@"",""-1,1)=Mid([字符窜],""),""#"","",1),"""""""",Mid([字符窜],""),""|"","",1))+If(Mid([字符窜],"")+"",1))"")")

太难理解了,能给出原公式吗?

另外如果字符窜长度固定,比如10能简化公式吗

 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:01-1.egd


--  作者:wjq1072
--  发布时间:2014/8/15 8:19:00
--  
 下载信息  [文件大小:   下载次数: ]
图片点击可在新窗口打开查看点击浏览该文件:7777.egd