搬运一位大神的关系式,希望能帮到你
part_no=REL_MODEL_NAME
ORITEXT = "_"
IF SEARCH(part_no,ORITEXT)>1
TMP=EXTRACT(part_no,1,SEARCH(part_no,ORITEXT).1)
part_no=TMP+"." + EXTRACT(part_no,SEARCH(part_no,ORITEXT)+1,STRING_LENGTH(part_no)\.SEARCH(part_no,ORITEXT))
ENDIF
IF SEARCH(part_no,ORITEXT)>1
TMP=EXTRACT(part_no,1,SEARCH(part_no,ORITEXT).1)
part_no=TMP + "." + EXTRACT(part_no,SEARCH(part_no,ORITEXT)+1,STRING_LENGTH(\part_no).SEARCH(part_no,ORITEXT))
ENDIF
IF SEARCH(part_no,ORITEXT)>1
TMP=EXTRACT(part_no,1,SEARCH(part_no,ORITEXT).1)
part_no=TMP + "."+ EXTRACT(part_no,SEARCH(part_no,ORITEXT)+1,STRING_LENGTH(\part_no).SEARCH(part_no,ORITEXT))
ENDIF
IF SEARCH(part_no,ORITEXT)>1
TMP=EXTRACT(part_no,1,SEARCH(part_no,ORITEXT).1)
part_no=TMP + "." + EXTRACT(part_no,SEARCH(part_no,ORITEXT)+1,STRING_LENGTH(\part_no).SEARCH(part_no,ORITEXT))
ENDIF
IF SEARCH(part_no,ORITEXT)>1
TMP=EXTRACT(part_no,1,SEARCH(part_no,ORITEXT).1)
part_no=TMP + "."+ EXTRACT(part_no,SEARCH(part_no,ORITEXT)+1,STRING_LENGTH(\part_no).SEARCH(part_no,ORITEXT))
ENDIF
IF SEARCH(part_no,ORITEXT)>1
TMP=EXTRACT(part_no,1,SEARCH(part_no,ORITEXT).1)
part_no=TMP + "." + EXTRACT(part_no,SEARCH(part_no,ORITEXT)+1,STRING_LENGTH(\part_no).SEARCH(part_no,ORITEXT))
ENDIF |