當然沒那麼容易。正路是用內碼判別,而且不能用普通的substr()之類,必須用substrc()這種帶C的函數提取字符,最準確的辦法是瞭解編碼規則之後查表。

授人以渔,不授人以鱼。
CLEAR ALL CLEAR cString = "1壹2貳叁ABC肆" ? "cString = " + cString ? FOR nIndex = 1 TO LENC(cString) cChar = SUBSTRC(cString, nIndex, 1) ? PADR(cChar, 2) + " 是 " + IIF(ASC(cChar) > 255, "漢字字符", "西文字符") NEXT ? RETURN