1、一、土法实现1-1用易自带最基本的几个命令实现，相对实现简单，字数上限最好在4万以下，仅支持ANSI编码文本，不支持Unnicode编码。因为文本在ansi编码下，所有字符转换到全角都占用两个字节，取其长度除2就是字符数。
2、2 土法代码如下：.版本 2.支持库 spec.支持库 iext.子程序 笨办法统计字数, , , 用易自带基本命令实现.局部变量 全字数, 文本型, , , 去除了空格、和回车的所有字符数。.局部变量 时间, 整数型时间 ＝ 取整 (取启动时间 ())全字数 ＝ 到文本 (取整 (取文本长度 (子文本替换 (到全角 (删全部空 (编辑框1.内容)), 到全角 (#换行符), “”, , , 假)) ÷ 2))调试输出 (“用时”, 取整 (取启动时间 () － 时间), “字数”, 全字数)状态条1.置文本 (1, 全字数)
3、二、JScript脚本命令调用，下面是效果图。2-1执行速度快了不少，用正则实现统计中文字数的统计。这个是单线程模式。当然也可以用易的脚本组件来调用。此法字数不要超过24万左右，否则同样会卡顿。
4、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、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、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创建一个进入许可证，用于多线程向状态条写入字数数据。创建多线程统计字数子程序，代码如下：.版本 2.支持库 spec.支持库 EThread.支持库 iext.子程序 多线程统计字数.局部变量 时间, 整数型.局部变量 文本, 文本型.局部变量 全字数, 文本型, , , 去除了空格、和回车的所有字符数。.局部变量 中文字数, 文本型, , , 只统计纯中文(标点符号也不统计在内).局部变量 脚本, JS脚本类模块时间 ＝ 取启动时间 ()脚本.脚本执行 (#JS命令)全字数 ＝ 脚本.脚本运行 (“求字数全”, 编辑框1.内容)中文字数 ＝ 脚本.脚本运行 (“求字数中文”, 编辑框1.内容)调试输出 (“用时”, 取整 (取启动时间 () － 时间), “字数”, 全字数)进入许可区 (许可证一字数显示操作) ' 许可证作用：防止多线程在同一时刻，写组件属性(等同于变量)。状态条1.置文本 (1, 全字数)状态条1.置文本 (3, 中文字数)退出许可区 (许可证一字数显示操作)
9、在编辑框1.内容被改变 事件下写下代码：启动线程 (&多线程统计字数, , ) ' 这里并没有提供线程句柄参数，目的是让易内部处理线程句柄。至此，大功告成。