易语言

关注公众号 jb51net

关闭
首页 > 软件编程 > 易语言 > 易语言字数统计

易语言调用JS制作统计文本字数的代码

作者:易语言源码贝贝吧

今天小编就为大家分享一篇关于易语言调用JS制作统计文本字数的代码,小编觉得内容挺不错的,现在分享给大家,具有很好的参考价值,需要的朋友一起跟随小编来看看吧

调用统计字数js此功能由精易网页调试助手生成代码,配合精易模块使用。

常量数据表

.版本 2
.常量 字数统计js, "<文本长度: 269>"

统计文本字数的代码

.版本 2
.支持库 spec
.程序集 窗口程序集_启动窗口
.子程序 文本_字数统计, 整数型, 公开, 用word方式计算正文字数,返回文本字数,汉字算一个,单词算一个,换行符和空格不算.
.参数 文本, 文本型, , 需要统计的文本
.局部变量 c, 整数型
.局部变量 n, 整数型
.局部变量 z, 整数型
.局部变量 返回文本, 文本型
.局部变量 临时字节集, 字节集
.局部变量 i, 整数型
.局部变量 跳, 逻辑型
临时字节集 = 到字节集 (文本)
c = 取字节集长度 (临时字节集)
n = 1
.判断循环首 (n ≤ c)
  .如果 (n + 1 > c)
    z = 1
  .否则
    .如果 (临时字节集 [n] > 128)
      z = 2
      i = i + 1
      跳 = 假
    .否则
      .如果 (临时字节集 [n] ≠ 13)
        z = 1
        .如果 (临时字节集 [n] = 32)
          跳 = 假
        .否则
          .如果真 (跳 = 假)
            i = i + 1
          .如果真结束
          跳 = 真
        .如果结束
      .否则
        .如果 (临时字节集 [n + 1] = 10)
          z = 2
        .否则
          z = 1
        .如果结束
        跳 = 假
      .如果结束
    .如果结束
  .如果结束
  n = n + z
.判断循环尾 ()
返回 (i)
.子程序 _统计按钮_被单击
调试输出 (“开始”)
线程_启动 (&子程序2, , )
线程_启动 (&子程序1, , )
.子程序 子程序1
.局部变量 t, 整数型
.局部变量 i, 整数型
.局部变量 d, 整数型
.局部变量 内容, 文本型
t = 取启动时间 ()
内容 = 编辑框1.内容
.计次循环首 (100, i)
  d = 文本_字数统计 (内容)
.计次循环尾 ()
t = 取启动时间 () - t
调试输出 (2, t, d)
总字数标签.标题 = 到文本 (d)
.子程序 子程序2
.局部变量 t, 整数型
.局部变量 i, 整数型
.局部变量 d, 整数型
.局部变量 内容, 文本型
t = 取启动时间 ()
内容 = 编辑框1.内容
.计次循环首 (100, i)
  d = 字数统计js (内容)
.计次循环尾 ()
t = 取启动时间 () - t
调试输出 (1, t, d)
.子程序 字数统计js, 整数型, , 此代码由精易网页调试助手生成代码,配合精易模块使用。
.参数 文本, 文本型
.局部变量 结果, 文本型
线程_初始化COM库 ()
结果 = 编码_运行JS代码 (#字数统计js, “fnGetCpmisWords”, 文本, , , )
线程_取消COM库 ()
返回 (到整数 (结果))

运行结果:

总结

以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对脚本之家的支持。如果你想了解更多相关内容请查看下面相关链接

您可能感兴趣的文章:
阅读全文