易语言快速统计编辑框字数( 六 ) _电脑

.判定 (是否为空 (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).取文本 ())
.判定竣事

54-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, 到文本 (取整 (取启动时候 () －时候)))
.子法式多线程统计字数
.局部变量时候, 整数型
.局部变量文本, 文本型
.局部变量全字数, 文本型, , , 去除了空格、和回车的所有字符数。
.局部变量中文字数, 文本型, , , 只统计纯中文(标点符号也不统计在内)

易语言快速统计编辑框字数( 六 )

猜你喜欢