记事本取行数与字数

咖啡糖 · 发表于 2010-2-25 15:53:16

做了个记事本

想和古老的传说记事本一样有着可以记录行数和字数的功能我的不是超级编辑框只是普通的编辑框

不知道怎么取行数与字数

知道的跟个帖子！！

老发 · 发表于 2010-2-25 15:53:17

.版本 2
.支持库 spec
.子程序 _按钮1_被单击
.局部变量几行数组, 文本型, , "0"
.局部变量数据, 字节集
.局部变量 i, 整数型
.局部变量中文, 整数型
.局部变量英文大写, 整数型
.局部变量英文小写, 整数型
.局部变量回车, 整数型
.局部变量数字, 整数型
.局部变量其它特殊符, 整数型
几行数组＝分割文本 (编辑框1.内容, #换行符, )
调试输出 (取数组成员数 (几行数组))
数据＝到字节集 (编辑框1.内容)
调试输出 (数据)
.计次循环首 (取文本长度 (编辑框1.内容), i)
.如果 (数据 [i] ＞ 127)
      中文＝中文＋ 1
.否则
      .如果 (数据 [i] ≥ 48 且数据 [i] ≤ 57)
         数字＝数字＋ 1
      .否则
         .如果 (数据 [i] ≥ 65 且数据 [i] ≤ 90)
            英文大写＝英文大写＋ 1
         .否则
            .如果 (数据 [i] ≥ 97 且数据 [i] ≤ 122)
                  英文小写＝英文小写＋ 1
            .否则
                  .如果 (数据 [i] ＝ 13 且数据 [i ＋ 1] ＝ 10)
                     回车＝回车＋ 1
                  .否则
                     其它特殊符＝其它特殊符＋ 1
                  .如果结束
            .如果结束
         .如果结束
      .如果结束
.如果结束

.计次循环尾 ()
信息框 (“结果：” ＋ #换行符＋ “中文：” ＋到文本 (中文 ÷ 2) ＋ #换行符＋ “数字：” ＋到文本 (数字) ＋ #换行符＋ “英文大写：” ＋到文本 (英文大写) ＋ #换行符＋ “英文小写” ＋到文本 (英文小写) ＋ #换行符＋ “回车：” ＋到文本 (回车) ＋ #换行符＋ “其它特殊符：” ＋到文本 (其它特殊符), 0, )

诸葛 · 发表于 2010-2-25 16:30:16

还是我来给你回答吧

1.e (2.58 KB, 下载次数: 88)

咖啡糖 · 发表于 2010-2-25 17:08:42

诸葛老大你那个貌似不适用我刚试了下不行继续召集答案

诸葛 · 发表于 2010-2-25 19:45:13

我真晕死，哎，我无语了，那你继续找吧

老发 · 发表于 2010-2-26 12:31:18

版主强，我又偷学一招

小東 · 发表于 2011-3-22 20:02:01

呵呵。看看怎么样

小東 · 发表于 2011-5-23 17:02:34

看看怎么样啊

wu9930 · 发表于 2011-5-24 00:48:43

学习了谢谢

wdatpm · 发表于 2011-5-24 00:58:50

是个值得学习的东西

		自动登录	找回密码
密码			注册

[已解决] 记事本取行数与字数

最佳答案