请教如何快速判断剪切板数据类型

FOR i=1 to 1
leixing=ALLTRIM(_CLIPTEXT)
pdcd=LEN(leixing)
IF pdcd=0
MESSAGEBOX("没有检测到数据，请先复制数据！",16,"系统提示")
EXIT
ENDIF
**************************************************************************
shuzi=TYPE("leixing")
IF shuzi<>'N'
MESSAGEBOX("请不要复制其他类型的数据到剪切板，请重新复制！",16,"系统提示")
EXIT
ENDIF
**************************************************************************
................
ENDFOR

请教如何快速判断剪切板数据类型，我程序里面，只会用到数字，所以要求剪切板里的数据，必须只能是数字

shuzi=TYPE("leixing")
IF shuzi<>'N'
MESSAGEBOX("请不要复制其他类型的数据到剪切板，请重新复制！",16,"系统提示")
EXIT
ENDIF
如果用上面这段代码，肯定是不行的，有没有什么好点或者简便点的方法来判断剪切板的数据类型
因为剪切板数据有长有短，类型不一，如果我逐一去判断，是不是太累了