易語言調(diào)用JS制作統(tǒng)計文本字數(shù)的代碼

.版本 2
.常量 字數(shù)統(tǒng)計js, "<文本長度: 269>"

.版本 2
.支持庫 spec
.程序集 窗口程序集_啟動窗口
.子程序 文本_字數(shù)統(tǒng)計, 整數(shù)型, 公開, 用word方式計算正文字數(shù),返回文本字數(shù),漢字算一個,單詞算一個,換行符和空格不算.
.參數(shù) 文本, 文本型, , 需要統(tǒng)計的文本
.局部變量 c, 整數(shù)型
.局部變量 n, 整數(shù)型
.局部變量 z, 整數(shù)型
.局部變量 返回文本, 文本型
.局部變量 臨時字節(jié)集, 字節(jié)集
.局部變量 i, 整數(shù)型
.局部變量 跳, 邏輯型
臨時字節(jié)集 ＝ 到字節(jié)集 (文本)
c ＝ 取字節(jié)集長度 (臨時字節(jié)集)
n ＝ 1
.判斷循環(huán)首 (n ≤ c)
  .如果 (n ＋ 1 ＞ c)
    z ＝ 1
  .否則
    .如果 (臨時字節(jié)集 [n] ＞ 128)
      z ＝ 2
      i ＝ i ＋ 1
      跳 ＝ 假
    .否則
      .如果 (臨時字節(jié)集 [n] ≠ 13)
        z ＝ 1
        .如果 (臨時字節(jié)集 [n] ＝ 32)
          跳 ＝ 假
        .否則
          .如果真 (跳 ＝ 假)
            i ＝ i ＋ 1
          .如果真結束
          跳 ＝ 真
        .如果結束
      .否則
        .如果 (臨時字節(jié)集 [n ＋ 1] ＝ 10)
          z ＝ 2
        .否則
          z ＝ 1
        .如果結束
        跳 ＝ 假
      .如果結束
    .如果結束
  .如果結束
  n ＝ n ＋ z
.判斷循環(huán)尾 ()
返回 (i)
.子程序 _統(tǒng)計按鈕_被單擊
調(diào)試輸出 (“開始”)
線程_啟動 (&子程序2, , )
線程_啟動 (&子程序1, , )
.子程序 子程序1
.局部變量 t, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 d, 整數(shù)型
.局部變量 內(nèi)容, 文本型
t ＝ 取啟動時間 ()
內(nèi)容 ＝ 編輯框1.內(nèi)容
.計次循環(huán)首 (100, i)
  d ＝ 文本_字數(shù)統(tǒng)計 (內(nèi)容)
.計次循環(huán)尾 ()
t ＝ 取啟動時間 () － t
調(diào)試輸出 (2, t, d)
總字數(shù)標簽.標題 ＝ 到文本 (d)
.子程序 子程序2
.局部變量 t, 整數(shù)型
.局部變量 i, 整數(shù)型
.局部變量 d, 整數(shù)型
.局部變量 內(nèi)容, 文本型
t ＝ 取啟動時間 ()
內(nèi)容 ＝ 編輯框1.內(nèi)容
.計次循環(huán)首 (100, i)
  d ＝ 字數(shù)統(tǒng)計js (內(nèi)容)
.計次循環(huán)尾 ()
t ＝ 取啟動時間 () － t
調(diào)試輸出 (1, t, d)
.子程序 字數(shù)統(tǒng)計js, 整數(shù)型, , 此代碼由精易網(wǎng)頁調(diào)試助手生成代碼，配合精易模塊使用。
.參數(shù) 文本, 文本型
.局部變量 結果, 文本型
線程_初始化COM庫 ()
結果 ＝ 編碼_運行JS代碼 (#字數(shù)統(tǒng)計js, “fnGetCpmisWords”, 文本, , , )
線程_取消COM庫 ()
返回 (到整數(shù) (結果))