字数统计代码

淡淡清风

.版本 2

.子程序 _编辑框1_内容被改变
.局部变量 行数, 整数型
.局部变量 字符数, 整数型
.局部变量 中文, 整数型
.局部变量 英文, 整数型
.局部变量 标点符号, 整数型
.局部变量 数字, 整数型
.局部变量 文本长度, 整数型

行数 ＝ 编辑框1.发送信息 (186, 0, 0)
字符数 ＝ 取文本长度 (到全角 (编辑框1.内容)) ÷ 2
标签7.标题 ＝ “共有” ＋ 到文本 (行数) ＋ “行” ＋ “共有” ＋ 到文本 (字符数) ＋ “个字符” ＋ “共有” ＋ 到文本 (中文) ＋ “个” ＋ “共有” ＋ 到文本 (英文) ＋ “个” ＋ “共有” ＋ 到文本 (标点符号) ＋ “个” ＋ “共有” ＋ 到文本 (数字) ＋ “个”
-----------------------------------------------------------------------

大家帮我看看这个字数统计代码实在是不知道怎么写了，求大家能人补充。另外我想问一下，字符数 ＝ 取文本长度 (到全角 (编辑框1.内容)) ÷ 2这个代码是不是有点问题啊，我换行也给我统计上了。

小飞龙0417

其实这个代码

上邪

同求哇

淡淡清风

宇智波·佐助 发表于 2013-3-13 17:14
好厉害文本的

有木有办法解决

宇智波·佐助

好厉害文本的

淡淡清风

bocai1206 发表于 2013-3-6 00:22
发错版块了
[e]
.版本 2

放上附件，求解答，测试的时候自动结束了，其实这个代码我之前也用过，就是会自动结束。

淡淡清风

bocai1206 发表于 2013-3-6 00:22
发错版块了
[e]
.版本 2

代码弄进去了，但是自动结束
.版本 2

.子程序 _编辑框1_内容被改变
.局部变量 代码, 整数型
.局部变量 i, 整数型
.局部变量 取文本数, 整数型
.局部变量 中文字数, 整数型
.局部变量 英文字数, 整数型
.局部变量 标点符号数, 整数型
.局部变量 数字字数, 整数型
.局部变量 空格数, 整数型
.局部变量 文本总长度, 整数型

编辑框1.内容 ＝ 到半角 (编辑框1.内容)
文本总长度 ＝ 取文本长度 (编辑框1.内容)
i ＝ 1
.循环判断首 ()
    处理事件 ()
    代码 ＝ 取代码 (编辑框1.内容, i)
    标签7.标题 ＝ “正在处理...请稍后...” ＋ “完成进度:” ＋ 取文本中间 (到文本 (i ÷ 文本总长度), 3, 2) ＋ “%”
    .如果真 (代码 ＝ 0)
        跳出循环 ()
    .如果真结束
    .如果真 (代码 ＜ 0)
        中文字数 ＝ 中文字数 ＋ 1
        取文本数 ＝ 2
    .如果真结束
    .如果真 (代码 ≥ 65 且 代码 ≤ 90 或 代码 ≥ 97 且 代码 ≤ 122)
        英文字数 ＝ 英文字数 ＋ 1
        取文本数 ＝ 1
    .如果真结束
    .如果真 (代码 ≥ 33 且 代码 ≤ 47 或 代码 ≥ 58 且 代码 ≤ 64 或 代码 ≥ 91 且 代码 ≤ 96 或 代码 ≥ 123 且 代码 ≤ 126)
        标点符号数 ＝ 标点符号数 ＋ 1
        取文本数 ＝ 1
    .如果真结束
    .如果真 (代码 ≥ 48 且 代码 ≤ 57)
        数字字数 ＝ 数字字数 ＋ 1
        取文本数 ＝ 1
    .如果真结束
    .如果真 (代码 ＝ 32)
        空格数 ＝ 空格数 ＋ 1
        取文本数 ＝ 11
    .如果真结束
    i ＝ i ＋ 取文本数
.循环判断尾 (代码 ≠ 0)
标签7.标题 ＝ “共有中文:” ＋ 到文本 (中文字数) ＋ “个” ＋ “,” ＋ “共有英文:” ＋ 到文本 (英文字数) ＋ “个” ＋ “,” ＋ “总有标点符号:” ＋ 到文本 (标点符号数) ＋ “个” ＋ “,” ＋ “总有数字:” ＋ 到文本 (数字字数) ＋ “个” ＋ “,” ＋ “共有空格数:” ＋ 到文本 (空格数) ＋ “个” ＋ “,” ＋ “共有字符数:” ＋ 到文本 (文本总长度) ＋ “个字符”

bocai1206

发错版块了
[e]
.版本 2

.程序集 窗口程序集1

.子程序 _按钮字数统计_被单击
.局部变量 代码, 整数型
.局部变量 i, 整数型
.局部变量 取文本数, 整数型
.局部变量 中文字数, 整数型
.局部变量 英文字数, 整数型
.局部变量 标点符号数, 整数型
.局部变量 数字字数, 整数型
.局部变量 空格数, 整数型
.局部变量 文本总长度, 整数型

编辑框字数统计.内容 ＝ 到半角 (编辑框字数统计.内容)
文本总长度 ＝ 取文本长度 (编辑框字数统计.内容)
i ＝ 1
.循环判断首 ()
    处理事件 ()
    代码 ＝ 取代码 (编辑框字数统计.内容, i)
    标签统计字数反馈.标题 ＝ “正在处理...请稍后...” ＋ “完成进度:” ＋ 取文本中间 (到文本 (i ÷ 文本总长度), 3, 2) ＋ “%”
    .如果真 (代码 ＝ 0)
        跳出循环 ()
    .如果真结束
    .如果真 (代码 ＜ 0)
        中文字数 ＝ 中文字数 ＋ 1
        取文本数 ＝ 2
    .如果真结束

    .如果真 (代码 ≥ 65 且 代码 ≤ 90 或 代码 ≥ 97 且 代码 ≤ 122)
        英文字数 ＝ 英文字数 ＋ 1
        取文本数 ＝ 1
    .如果真结束
    .如果真 (代码 ≥ 33 且 代码 ≤ 47 或 代码 ≥ 58 且 代码 ≤ 64 或 代码 ≥ 91 且 代码 ≤ 96 或 代码 ≥ 123 且 代码 ≤ 126)
        标点符号数 ＝ 标点符号数 ＋ 1
        取文本数 ＝ 1
    .如果真结束

    .如果真 (代码 ≥ 48 且 代码 ≤ 57)
        数字字数 ＝ 数字字数 ＋ 1
        取文本数 ＝ 1
    .如果真结束
    .如果真 (代码 ＝ 32)
        空格数 ＝ 空格数 ＋ 1
        取文本数 ＝ 1
    .如果真结束
    i ＝ i ＋ 取文本数
.循环判断尾 (代码 ≠ 0)
标签统计字数反馈.标题 ＝ “共有中文:” ＋ 到文本 (中文字数) ＋ “个” ＋ “,” ＋ “共有英文:” ＋ 到文本 (英文字数) ＋ “个” ＋ “,” ＋ “总有标点符号:” ＋ 到文本 (标点符号数) ＋ “个” ＋ “,” ＋ “总有数字:” ＋ 到文本 (数字字数) ＋ “个” ＋ “,” ＋ “共有空格数:” ＋ 到文本 (空格数) ＋ “个” ＋ “,” ＋ “共有字符数:” ＋ 到文本 (文本总长度) ＋ “个字符”[/e]