VFP怎么写统计字数的命令,还有要消除空格

来源:学生作业帮助网 编辑:六六作业网 时间:2024/12/23 21:47:42
VFP怎么写统计字数的命令,还有要消除空格VFP怎么写统计字数的命令,还有要消除空格VFP怎么写统计字数的命令,还有要消除空格以下代码用来统计EDIT1中中文状态下输入的中文字和标点符号的总个数,不包

VFP怎么写统计字数的命令,还有要消除空格
VFP怎么写统计字数的命令,还有要消除空格

VFP怎么写统计字数的命令,还有要消除空格
以下代码用来统计EDIT1中中文状态下输入的中文字和标点符号的总个数,不包括空格和回车所占的字符:
在BUTTON中写下如下代码:
nLine=MEMLINES(thisform.edit1.Value)
cL=ALLTRIM(STR((LEN(STRTRAN(THISFORM.EDIT1.Value," "))-(nLine-1)*2)/2))
MESSAGEBOX("字数:" +cL, 0+64+0, "结果")