工程图中，如何按顺序提取文件名

miller162

搞是搞好了，有点累赘的感觉，反正能用了

/*以下用于在文件名中提取信息
file_name=rel_model_name /*文件名称
strlen=STRING_LENGTH(file_name)/*计算文件名的总字符数量


p_s0=SEARCH(file_name,"-")/*查找"-字符"的位置
tem_name0=EXTRACT(file_name,p_s0+1,strlen-p_s0)/*临时截取文件名

strlen2=STRING_LENGTH(tem_name0)/*计算文件名的总字符数量
p_s1=SEARCH(tem_name0,"-")/*查找"-字符"的位置

tem_name=EXTRACT(tem_name0,p_s1+1,strlen2-p_s1)/*临时截取文件名
p_s2=SEARCH(tem_name,"-")/*查找第二个"-字符"在临时名称中的位置
p_s3=p_s1+p_s2/*计算第二个"-字符"在的位置

PN0=EXTRACT(file_name,1,p_s0-1)/*提取第一个"-字符"之前的文本
PN1=EXTRACT(tem_name0,1,p_s1-1)/*提取第一个"-字符"之前的文本
PN2=EXTRACT(tem_name0,p_s1+1,p_s3-p_s2-1)/*提两个"-字符"之间的文本
PN3=EXTRACT(tem_name0,p_s3+1,strlen2-p_s3)/*提取第二个"-字符"之后的文本

Cpartno=PN0+"."+PN1+"."+PN2+"."+PN3