'文字長短
Function txtLengthRangs(txt,lenVal)
    retxt = "" 
	IF txt<>"" THEN
	  IF len(txt)>lenVal THEN
	    retxt = LEFT(txt,lenVal) & ".."
      ELSE
	    retxt = txt
	  END IF
	END IF 
	txtLengthRangs = retxt
End Function