|
你好!可以教下我这个怎么用的吗
参数:
CODE 字符串
NAME 字符串
NAME1 字符串
NAME2 字符串
TOTAL 整数
LOCA1 整数
斜杠 字符串 /
点 字符串
/*极限8个点
code=REL_MODEL_NAME()
total=string_length(code)
loca1=search(code,"--")
if loca1==0
name=code
else
name1=extract(code,1,loca1-1)
name2=extract(code,loca1+2,total-loca1-1)
name=name1+斜杠+name2
endif
total=string_length(name)
/*判断_存在
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
/*完
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
loca1=search(name,"_")
if loca1==0
else
name1=extract(name,1,loca1-1)
name2=extract(name,loca1+1,total-loca1)
name=name1+点+name2
endif
DRAW_NO=name
-----------------------------------------------------------
自己做的,希望有点帮助
曾加了个--转/
|
|