易语言快速统计编辑框字数
1、一、土法实现
1-1
用易自带最基本的几个命令实现，相对实现简单，字数上限最好在4万以下，仅支持ANSI编码文本，不支持Unnicode编码。因为文本在ansi编码下，所有字符转换到全角都占用两个字节，取其长度除2就是字符数。
2、1-2 土法代码如下：
.版本 2.支持库 spec.支持库 iext
.子程序 笨办法统计字数, , , 用易自带基本命令实现.局部变量 全字数, 文本型, , , 去除了空格、和回车的所有字符数。.局部变量 时间, 整数型
时间 ＝ 取整 (取启动时间 ())全字数 ＝ 到文本 (取整 (取文本长度 (子文本替换 (到全角 (删全部空 (编辑框1.内容)), 到全角 (#换行符), “”, , , 假)) ÷ 2))调试输出 (“用时”, 取整 (取启动时间 () － 时间), “字数”, 全字数)状态条1.置文本 (1, 全字数)
3、二、JScript脚本命令 调用，下面是效果图。
2-1
执行速度快了不少，用正则实现统计中文字数的统计。这个是单线程模式。当然也可以用易的脚本组件来调用。此法字数不要超过24万左右，否则同样会卡顿。
4、2-2 JScript脚本命令 代码如下：
.版本 2.支持库 spec.支持库 iext
.子程序 取字符串长度.局部变量 JS脚本, 对象, , , JScript.局部变量 时间, 整数型.局部变量 全字数, 文本型.局部变量 中文字数, 文本型
时间 ＝ 取整 (取启动时间 ())JS脚本.创建 (“ScriptControl”, )JS脚本.写属性 (“Language”, “JScript”)JS脚本.数值方法 (“ExecuteStatement”, #JS命令)全字数 ＝ JS脚本.通用方法 (“Run”, “求字数全”, 编辑框1.内容).取文本 ()中文字数 ＝ JS脚本.通用方法 (“Run”, “求字数中文”, 编辑框1.内容).取文本 ()调试输出 (“用时”, 取整 (取启动时间 () － 时间), “字数”, 全字数)状态条1.置文本 (1, 全字数)状态条1.置文本 (3, 中文字数)
需增加个 长文本常量 这里命名为： #JS命令
内容在下一步。
5、2-3 JScript脚本命令 长文本常量 ： #JS命令 内容如下：
function 求字数全(参1){参1=参1.replace(new RegExp(" ","gm"),"") //先删全部空格return 参1.replace(new RegExp("[\n\r]+","gm"),"").length; //再删换行求字数};function 求字数中文(参1)//删去所有非中文求字数。{return 参1.replace(new RegExp("[^\u4e00-\u9fa5]+","gm"),"").length;};function 删除指定文本(参1,参2) //参数2可以是表达式{return 参1.replace(new RegExp(参2,"gm"),"");};
6、三、多线程js方式。
3-1
易在多线程下调用JS脚本，会没有任何效果，返回空文本或返回0。
解决办法是增加两个dll能解决(CoUninitialize 和 CoInitialize)
运行是正常了，但新问题又来了，多线程成单线程。
百度是这样解释这对夫妻DLL(必须配对使用)的：
CoInitialize告诉 Windows以单线程的方式创建com对象。
经过测试也确实是这样，同时启动多个线执行简单代码，程序立刻死掉。
最终，解决办法是，用类模块方式。
插入两个DLL,代码如下：
.版本 2
.DLL命令 卸载COM, , "ole32.dll", "CoUninitialize", , 卸载COM 同加载COM配对使用
.DLL命令 加载COM, , "ole32.dll", "CoInitialize", , 加载COM 告诉 Windows以单线程的方式创建com对象，解决多线程内JS脚本代码无效问题 .参数 pvReserved, 整数型, , 值为0
7、3-2
选择易主菜单-插入-类模块 ，点击，并把下面的代码粘贴进刚刚新建的类模块
注：粘贴前删除两个默认子程序 _初始化 和 _销毁 防止重复。粘贴完修改一下类名。
代码如下：
.版本 2
.程序集 JS脚本类模块.程序集变量 JS脚本, 对象
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用，
加载COM (0)JS脚本.创建 (“ScriptControl”, )JS脚本.写属性 (“Language”, “JScript”)
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
JS脚本.清除 ()卸载COM ()
.子程序 脚本语言, 文本型, 公开, 设置或获取脚本引擎解释的语言，可供选择的属性值：JScript VBScript.参数 语言名, 文本型, 可空, 如果，提供的参数文本，既不等于 JScript 也不等于 VBScript 会设置为 JScript
.判断开始 (是否为空 (语言名) ＝ 真) 返回 (JS脚本.读文本属性 (“Language”, )).默认
.如果真 (语言名 ≠ “JScript” 且 语言名 ≠ “VBScript”) 语言名 ＝ “JScript” .如果真结束 返回 (到文本 (JS脚本.写属性 (“Language”, 语言名))).判断结束
.子程序 超时, 整数型, , Timeout，设置或返回时间（毫秒），此时间后用户可选择中止脚本代码的执行或允许代码继续执行。.参数 欲写入属性值, 整数型, 可空, -1 表示直到执行完才返回。
.判断开始 (是否为空 (欲写入属性值) ＝ 真) 返回 (JS脚本.读数值属性 (“Timeout”, )).默认 返回 (到整数 (JS脚本.写属性 (“Timeout”, 欲写入属性值))).判断结束
.子程序 错误信息, 对象, 公开, Error 如果脚本执行出错返回出错说明。
返回 (JS脚本.读对象型属性 (“Error”, ))
.子程序 脚本执行, 整数型, 公开, ExecuteStatement,返回0为执行正常，返回非0为出错，错误信息可以从“错误码信息”属性中取得。本命令为初级对象成员命令。.参数 Statement, 文本型, , 包含要执行的脚本代码，如为空则默认为执行上次的脚本代码。如果脚本代码中包括函数或过程，执行此方法后可以用“运行”方法来单独执行。
返回 (JS脚本.数值方法 (“ExecuteStatement”, Statement))
.子程序 脚本运行, 文本型, 公开, Run,如有返回值返回相应文本，否则返回空文本。本命令为初级对象成员命令。命令参数表中最后一个参数可以被重复添加。.参数 ProcedureName, 文本型, , 所要运行的过程或函数名。.参数 P1, 文本型, 可空, 可以被扩展。.参数 P2, 文本型, 可空.参数 P3, 文本型, 可空.参数 P4, 文本型, 可空.参数 P5, 文本型, 可空.参数 P6, 文本型, 可空.参数 P7, 文本型, 可空.参数 P8, 文本型, 可空
.判断开始 (是否为空 (P1) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName).取文本 ()).判断 (是否为空 (P2) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1).取文本 ()).判断 (是否为空 (P3) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2).取文本 ()).判断 (是否为空 (P4) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3).取文本 ()).判断 (是否为空 (P5) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4).取文本 ()).判断 (是否为空 (P6) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5).取文本 ()).判断 (是否为空 (P7) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5, P6).取文本 ()).判断 (是否为空 (P8) ＝ 真) 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5, P6, P7).取文本 ()).默认 返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5, P6, P7, P8).取文本 ()).判断结束
8、3-3
创建一个进入许可证，用于多线程向状态条写入字数数据。
创建多线程统计字数子程序，代码如下：
.版本 2.支持库 spec.支持库 EThread.支持库 iext
.子程序 多线程统计字数.局部变量 时间, 整数型.局部变量 文本, 文本型.局部变量 全字数, 文本型, , , 去除了空格、和回车的所有字符数。.局部变量 中文字数, 文本型, , , 只统计纯中文(标点符号也不统计在内).局部变量 脚本, JS脚本类模块
时间 ＝ 取启动时间 ()脚本.脚本执行 (#JS命令)全字数 ＝ 脚本.脚本运行 (“求字数全”, 编辑框1.内容)中文字数 ＝ 脚本.脚本运行 (“求字数中文”, 编辑框1.内容)调试输出 (“用时”, 取整 (取启动时间 () － 时间), “字数”, 全字数)进入许可区 (许可证一字数显示操作) ' 许可证作用：防止多线程在同一时刻，写组件属性(等同于变量)。状态条1.置文本 (1, 全字数)状态条1.置文本 (3, 中文字数)退出许可区 (许可证一字数显示操作)
9、在编辑框1.内容被改变 事件下写下代码：
启动线程 (&多线程统计字数, , ) ' 这里并没有提供线程句柄参数，目的是让易内部处理线程句柄。
至此，大功告成。
1、最近有朋友反应，写出一模一样的程序，却不统计字数，由于我的原程序没了，我试着还原，还确实费了些功夫。
原因是从经验页面复制到易语言窗口，程序会出现错误，其实就是文本格式以及换行的问题。
我尝试了一下，复制易代码到记事本，然后再从记事本复制粘贴到经验里边就不会出现问题。下边我把整个代码用这种方法按几个部分粘贴在下面，需要的朋友可以直接复制到易语言。
把这部分列为第4部分，前面的也不改动了，此部分方便快速建立完整的测试程序。
4-1 界面 这部分无法复制。
如下图
1个编辑框 是否允许多行 设置为真 其它根据自己喜好
3个单选框 用于测试3个方法。
1个状态条 添加6个项目，并将0、2、4项目按下图设置好文字。状态条用于显示测试数据，不建议用调试输出，字数太多的情况下，调试输出会占用过多资源。
2、4-2 DLL
插入一条新的DLL， 如 DLL命令1 ，选中它，然后把下面文本粘贴上去。
.版本 2
.DLL命令 卸载COM, , "ole32.dll", "CoUninitialize", , 卸载COM 同加载COM配对使用
.DLL命令 加载COM, , "ole32.dll", "CoInitialize", , 加载COM 告诉 Windows以单线程的方式创建com对象，解决多线程内JS脚本代码无效问题
.参数 pvReserved, 整数型, , 值为0
3、4-3 常量 注意事项：不要添加成普通常量。
1.进入常量界面，单击右键。并从右键菜单中选择 新长文本常量，创建一个长文本常量。并将常量名改名： JS命令
2.双击 JS命令 常量值部分(此时显示为： <文本长度: 0>)进入：请输入文本窗口。
3.把下边内容粘贴到 请输入文本窗口 确认后自动退出请输入文本窗口。
function 求字数全(参1)
{
参1=参1.replace(new RegExp(" ","gm"),"") //先删全部空格
return 参1.replace(new RegExp("[\n\r]+","gm"),"").length; //再删换行求字数
};
function 求字数中文(参1)//删去所有非中文求字数。
{
return 参1.replace(new RegExp("[^\u4e00-\u9fa5]+","gm"),"").length;
};
function 删除指定文本(参1,参2) //参数2可以是表达式
{
return 参1.replace(new RegExp(参2,"gm"),"");
};
4.此时，JS命令 常量值部分显示为： <文本长度: 393>
参考下图
4、4-4 类模块
1.点击易语言插入菜单，选择 类模块 如： 类1
2.把类1下的两个默认添加的2个方法，_初始化 和 _销毁删除，只留下一个类头部。
3.把类1名称改为： JS脚本类模块
4.由于粘贴不会生成类成员，需要自行添加1个类成员
点击 JS脚本类模块名称位置，然后回车，在私有成员名输入： JS脚本
类型输入 对象。
4.把下面代码粘贴在 JS脚本类模块 下面 【参考下图：】
.版本 2
.程序集 JS脚本类模块
.子程序 _初始化, , , 当基于本类的对象被创建后，此方法会被自动调用，
加载COM (0)
JS脚本.创建 (“ScriptControl”, )
JS脚本.写属性 (“Language”, “JScript”)
.子程序 _销毁, , , 当基于本类的对象被销毁前，此方法会被自动调用
JS脚本.清除 ()
卸载COM ()
.子程序 脚本语言, 文本型, 公开, 设置或获取脚本引擎解释的语言，可供选择的属性值：JScript VBScript
.参数 语言名, 文本型, 可空, 如果，提供的参数文本，既不等于 JScript 也不等于 VBScript 会设置为 JScript
.判断开始 (是否为空 (语言名) ＝ 真)
返回 (JS脚本.读文本属性 (“Language”, ))
.默认
.如果真 (语言名 ≠ “JScript” 且 语言名 ≠ “VBScript”)
语言名 ＝ “JScript”
.如果真结束
返回 (到文本 (JS脚本.写属性 (“Language”, 语言名)))
.判断结束
.子程序 超时, 整数型, , Timeout，设置或返回时间（毫秒），此时间后用户可选择中止脚本代码的执行或允许代码继续执行。
.参数 欲写入属性值, 整数型, 可空, -1 表示直到执行完才返回。
.判断开始 (是否为空 (欲写入属性值) ＝ 真)
返回 (JS脚本.读数值属性 (“Timeout”, ))
.默认
返回 (到整数 (JS脚本.写属性 (“Timeout”, 欲写入属性值)))
.判断结束
.子程序 错误信息, 对象, 公开, Error 如果脚本执行出错返回出错说明。
返回 (JS脚本.读对象型属性 (“Error”, ))
.子程序 脚本执行, 整数型, 公开, ExecuteStatement,返回0为执行正常，返回非0为出错，错误信息可以从“错误码信息”属性中取得。本命令为初级对象成员命令。
.参数 Statement, 文本型, , 包含要执行的脚本代码，如为空则默认为执行上次的脚本代码。如果脚本代码中包括函数或过程，执行此方法后可以用“运行”方法来单独执行。
返回 (JS脚本.数值方法 (“ExecuteStatement”, Statement))
.子程序 脚本运行, 文本型, 公开, Run,如有返回值返回相应文本，否则返回空文本。本命令为初级对象成员命令。命令参数表中最后一个参数可以被重复添加。
.参数 ProcedureName, 文本型, , 所要运行的过程或函数名。
.参数 P1, 文本型, 可空, 可以被扩展。
.参数 P2, 文本型, 可空
.参数 P3, 文本型, 可空
.参数 P4, 文本型, 可空
.参数 P5, 文本型, 可空
.参数 P6, 文本型, 可空
.参数 P7, 文本型, 可空
.参数 P8, 文本型, 可空
.判断开始 (是否为空 (P1) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1).取文本 ())
.判断 (是否为空 (P2) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2).取文本 ())
.判断 (是否为空 (P3) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3).取文本 ())
.判断 (是否为空 (P4) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4).取文本 ())
.判断 (是否为空 (P5) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5).取文本 ())
.判断 (是否为空 (P6) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5, P6).取文本 ())
.判断 (是否为空 (P7) ＝ 真)
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5, P6, P7).取文本 ())
.默认
返回 (JS脚本.通用方法 (“Run”, ProcedureName, P1, P2, P3, P4, P5, P6, P7, P8).取文本 ())
.判断结束
5、4-5 启动窗口程序集部分
1.进入启动窗口程序集，删除所有内容(包括启动窗口创建完毕事件子程序)，只留一个程序集中的头部。
2.同粘贴模块的私有成员名一样，程序集的变量名是粘贴不上去的。这里特别说明下，从一个易程序复制粘贴到另一个易程序是完美没有任何问题的。
所以，先自行添加一个程序集变量
变量名：许可证一字数显示操作
类型：整数型 留空默认就是整数型
2.把下面内容粘贴到启动窗口程序集。
.版本 2
.支持库 EThread
.支持库 iext
.程序集 窗口程序集_启动窗口
.程序集变量 许可证一字数显示操作, 整数型
.子程序 __启动窗口_创建完毕
许可证一字数显示操作 ＝ 创建进入许可证 ()
.子程序 __启动窗口_将被销毁
删除进入许可证 (许可证一字数显示操作)
.子程序 笨办法统计字数, , , 用易自带基本命令实现.局部变量 全字数, 文本型, , , 去除了空格、和回车的所有字符数。.局部变量 时间, 整数型
.局部变量 全字数, 整数型
.局部变量 时间, 整数型
时间 ＝ 取整 (取启动时间 ())
全字数 ＝ 取整 (取文本长度 (子文本替换 (到全角 (删全部空 (编辑框1.内容)), 到全角 (#换行符), “”, , , 假)) ÷ 2)
状态条1.置文本 (1, 到文本 (全字数))
状态条1.置文本 (5, 到文本 (取整 (取启动时间 () － 时间)))
.子程序 JS计算文本长度
.局部变量 JS脚本, 对象, , , JScript
.局部变量 时间, 整数型
.局部变量 全字数, 文本型
.局部变量 中文字数, 文本型
时间 ＝ 取整 (取启动时间 ())
JS脚本.创建 (“ScriptControl”, )
JS脚本.写属性 (“Language”, “JScript”)
JS脚本.数值方法 (“ExecuteStatement”, #JS命令)
全字数 ＝ JS脚本.通用方法 (“Run”, “求字数全”, 编辑框1.内容).取文本 ()
中文字数 ＝ JS脚本.通用方法 (“Run”, “求字数中文”, 编辑框1.内容).取文本 ()
状态条1.置文本 (1, 全字数)
状态条1.置文本 (3, 中文字数)
状态条1.置文本 (5, 到文本 (取整 (取启动时间 () － 时间)))
.子程序 多线程统计字数
.局部变量 时间, 整数型
.局部变量 文本, 文本型
.局部变量 全字数, 文本型, , , 去除了空格、和回车的所有字符数。
.局部变量 中文字数, 文本型, , , 只统计纯中文(标点符号也不统计在内)
.局部变量 脚本, JS脚本类模块
时间 ＝ 取启动时间 ()
脚本.脚本执行 (#JS命令)
全字数 ＝ 脚本.脚本运行 (“求字数全”, 编辑框1.内容)
中文字数 ＝ 脚本.脚本运行 (“求字数中文”, 编辑框1.内容)
进入许可区 (许可证一字数显示操作) ' 许可证作用：防止多线程在同一时刻，写组件属性(等同于变量)。
状态条1.置文本 (1, 全字数)
状态条1.置文本 (3, 中文字数)
状态条1.置文本 (5, 到文本 (取整 (取启动时间 () － 时间)))
退出许可区 (许可证一字数显示操作)
.子程序 _编辑框1_内容被改变
.判断开始 (单选框土法统计.选中 ＝ 真)
清空状态条 ()
笨办法统计字数 ()
.判断 (单选框JS统计.选中 ＝ 真)
清空状态条 ()
JS计算文本长度 ()
.默认
清空状态条 ()
启动线程 (&多线程统计字数, , )
.判断结束
.子程序 清空状态条
状态条1.置文本 (1, “”)
状态条1.置文本 (3, “”)
状态条1.置文本 (5, “”)
6、好了，测试是OK的