VFP 常用文本函数

1、去空格函数 ATTL()
2、取左与取右函数 LEFT( ) RIGHT( )
3、取中间 SUBSTR( )
4、REPLICATE( ) 重复字符

？REPLICATE( " ",10) && 返回10个空格的字符串

5、STRTRAN( ) 有文本替换函数

 tcstring  = STRTRAN(tcstring,lctable03,lcalias03) 

 local lccharacterstring,lcstring
 lccharacterstring="  AB C  D      "
 lcstring  = STRTRAN(lccharacterstring," ","")   && 去除字符串内的空格 返回“ABCD”

例：反回固定长度字的符型号码

* 反回固定长度字的符型号码
local lcnumber
i = 1
lcnumber = STRTRAN( str(i,5),' ','0')  && lcnumber = "00001"
i = 15 
lcnumber = STRTRAN( str(i,5),' ','0')  && lcnumber = "00015"

6、chr() ANSI 数值代码返回其对应的字符

* 换行和回车换为空字符串
lcmessage = STRTRAN(lcmessage,CHR(10),"")
lcmessage = STRTRAN(lcmessage,CHR(13),"")

7、EMPTY() 用于判断是否为空值

8、NVL() 如果变量是NULL值时，返回一个默认的值
9、isnull() 判断是否为NULL值

10、AT（） 在一个字符串中返回指定一个字符串的位置。
11、UPPER( ) 、LOWER( ) 函数 大小写转换
12、ALINES( ) 字符串转数组（只能转为一维数组）

* 以下代码两次利用ALINES( )
* 把粘贴板上的数据转换为一个二维数组
Public gaclip[1],garow[1],galist[1,1] ,lnALINES,lncol
gccliptext = _Cliptext
lnALINES = Alines(gaclip,gccliptext,1,Chr(13) )

For i = 1 To lnALINES

   Release garow
   Local garow[1]
   lnlin = Alines( garow ,gaclip[i],1,Chr(9) )

   If i = 1
      If lnlin > Alen(galist,2)
         Dimension galist[i,lnlin]
         lncol = lnlin
      Endif
   Else
      Dimension galist[i,lncol]
   Endif

   For N = 1 To lncol
        galist[i,n] = garow[n]
   Endfor

Endfor

其他
TextBox.InputMask 属性