快捷導(dǎo)航

易語(yǔ)言調(diào)用JS制作統(tǒng)計(jì)文本字?jǐn)?shù)的代碼

更新時(shí)間：2018年11月23日 10:31:11 作者：易語(yǔ)言源碼貝貝吧

今天小編就為大家分享一篇關(guān)于易語(yǔ)言調(diào)用JS制作統(tǒng)計(jì)文本字?jǐn)?shù)的代碼，小編覺(jué)得內(nèi)容挺不錯(cuò)的，現(xiàn)在分享給大家，具有很好的參考價(jià)值，需要的朋友一起跟隨小編來(lái)看看吧

調(diào)用統(tǒng)計(jì)字?jǐn)?shù)js此功能由精易網(wǎng)頁(yè)調(diào)試助手生成代碼，配合精易模塊使用。

常量數(shù)據(jù)表

.版本 2
.常量 字?jǐn)?shù)統(tǒng)計(jì)js, "<文本長(zhǎng)度: 269>"

統(tǒng)計(jì)文本字?jǐn)?shù)的代碼

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

運(yùn)行結(jié)果：