标签：
//Public function of_ordering_getmiditem (string as_instr,string as_key) returns string
//string as_instr
//string as_key
long ll_pos
long ll_find
string ls_pos
string ls_midright
string ls_item
string ls_col
string ls_temp
string ls_ret
datastore lds_unicode
ls_pos = "~"" + as_key + "~"" + ":"
ll_pos = pos(as_instr,ls_pos)
IF ll_pos > 0 THEN
ls_midright = mid(as_instr,ll_pos + len(ls_pos))
IF mid(ls_midright,2,1) = "[" THEN
ll_pos = pos(ls_midright,"]")
ELSE
ll_pos = pos(ls_midright,",")
IF ll_pos > 0 THEN
ELSE
ll_pos = pos(ls_midright,"}")
END IF
END IF
IF ll_pos > 0 THEN
ls_temp = left(ls_midright,ll_pos - 1)
IF left(ls_temp,1) = "~"" THEN
ls_temp = mid(ls_temp,2)
END IF
IF right(ls_temp,1) = "~"" THEN
ls_temp = left(ls_temp,len(ls_temp) - 1)
END IF
ls_ret = ls_temp
ELSE
IF left(ls_midright,1) = "~"" THEN
ls_midright = mid(ls_midright,2)
END IF
IF right(ls_midright,1) = "~"" THEN
ls_midright = left(ls_midright,len(ls_midright) - 1)
END IF
ls_ret = ls_midright
END IF
ELSE
ls_ret = ""
END IF
ll_pos = pos(lower(ls_ret),"\u")
IF ll_pos > 0 THEN
lds_unicode = CREATE datastore
lds_unicode.dataobject = "dw_unicode"
DO WHILE ll_pos > 0
ls_temp = upper(mid(ls_ret,ll_pos + 2,4))
ll_find = lds_unicode.find("Left(unicode_no,3) = ‘" + left(ls_temp,3) + "‘",1,lds_unicode.rowcount())
IF ll_find > 0 THEN
ls_item = lds_unicode.object.unicode_item[ll_find]
ls_col = upper(right(ls_temp,1))
CHOOSE CASE ls_col
CASE "A","B","C","D","E","F"
ls_item = mid(ls_item,(asc(ls_col) * 2 - 110) + 1,2)
CASE ELSE
ls_item = mid(ls_item,(long(ls_col) * 2) + 1,2)
END CHOOSE
ls_ret = replace(ls_ret,ll_pos,6,ls_item)
END IF
ll_pos = pos(lower(ls_ret),"\u")
LOOP
DESTROY lds_unicode
END IF
RETURN ls_ret
标签：
原文地址：http://www.cnblogs.com/nickflyrong/p/4744843.html
