如何使用visual foxpro从名称字段中删除非字符字母

Question

我有一段时间没有使用Visual FoxPro.今天,我的前同事问我如何从名称字段中删除非字符,即只允许使用az和AZ.我记得我使用了一个名为strstran的函数来完成它.我需要定义一个包含az和AZ的变量.但我现在不记得了.有人知道如何处理这个问题.提前致谢.

Answer 1

使用CHRTRAN()函数.

FUNCTION GetAlphaCharacters
    LPARAMETERS tcExpressionSearched

    LOCAL lcAllowedCharacters
    m.lcAllowedCharacters = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"

    RETURN CHRTRAN(m.tcExpressionSearched, CHRTRAN(m.tcExpressionSearched, m.lcAllowedCharacters, ""), "")
ENDFUNC