How can I get ABC*DEFG, leave the * between C*D, delete all * from right?
SET TERM ^ ;CREATE PROCEDURE DEL_CHAR ( M_SIR varchar(500), M_CHAR
varchar(10) )RETURNS ( M_STR varchar(500) )AS declare ii smallint;
declare iy smallint;BEGIN m_str=''; iy=char_length(m_sir); ii=1;
while (ii<=iy) do begin if (position(substring(m_sir from ii for
1),m_char)=0) then m_str=m_str||substring(m_sir from ii for 1);
ii=ii+1; endEND^SET TERM ; ^
m_sir='ABC*DEFG'm_char='*'
<!--#yiv2231649274 #yiv2231649274
.yiv2231649274ygrp-photo-title{clear:both;font-size:smaller;height:15px;overflow:hidden;text-align:center;width:75px;}#yiv2231649274
div.yiv2231649274ygrp-photo{background-position:center;background-repeat:no-repeat;background-color:white;border:1px
solid black;height:62px;width:62px;}#yiv2231649274
div.yiv2231649274photo-title a, #yiv2231649274 div.yiv2231649274photo-title
a:active, #yiv2231649274 div.yiv2231649274photo-title a:hover, #yiv2231649274
div.yiv2231649274photo-title a:visited {text-decoration:none;}#yiv2231649274
div.yiv2231649274attach-table div.yiv2231649274attach-row
{clear:both;}#yiv2231649274 div.yiv2231649274attach-table
div.yiv2231649274attach-row div {float:left;}#yiv2231649274 p
{clear:both;padding:15px 0 3px 0;overflow:hidden;}#yiv2231649274
div.yiv2231649274ygrp-file {width:30px;}#yiv2231649274
div.yiv2231649274attach-table div.yiv2231649274attach-row div div a
{text-decoration:none;}#yiv2231649274 div.yiv2231649274attach-table
div.yiv2231649274attach-row div div span {font-weight:normal;}#yiv2231649274
div.yiv2231649274ygrp-file-title {font-weight:bold;}#yiv2231649274
--><!--#yiv2231649274 _filtered #yiv2231649274
{font-family:Wingdings;panose-1:5 0 0 0 0 0 0 0 0 0;} _filtered #yiv2231649274
{font-family:"Cambria Math";panose-1:2 4 5 3 5 4 6 3 2 4;} _filtered
#yiv2231649274 {font-family:Calibri;panose-1:2 15 5 2 2 2 4 3 2 4;} _filtered
#yiv2231649274 {font-family:"Comic Sans MS";panose-1:3 15 7 2 3 3 2 2 2
4;}#yiv2231649274 #yiv2231649274 p.yiv2231649274MsoNormal, #yiv2231649274
li.yiv2231649274MsoNormal, #yiv2231649274 div.yiv2231649274MsoNormal
{margin:0cm;margin-bottom:.0001pt;font-size:11.0pt;font-family:"Calibri",
sans-serif;}#yiv2231649274 a:link, #yiv2231649274
span.yiv2231649274MsoHyperlink
{color:#0563C1;text-decoration:underline;}#yiv2231649274 a:visited,
#yiv2231649274 span.yiv2231649274MsoHyperlinkFollowed
{color:#954F72;text-decoration:underline;}#yiv2231649274
span.yiv2231649274E-MailFormatvorlage17 {font-family:"Comic Sans
MS";color:#323E4F;font-weight:normal;font-style:normal;text-decoration:none
none;}#yiv2231649274 .yiv2231649274MsoChpDefault {font-family:"Calibri",
sans-serif;} _filtered #yiv2231649274 {margin:70.85pt 70.85pt 2.0cm
70.85pt;}#yiv2231649274 div.yiv2231649274WordSection1 {}-->
