如何判断一段文本是否全是英文?

guangye1

比如这一句

[color=rgba(0, 0, 0, 0.75)]We would like to show you a description here but the site won’t allow us.[color=rgba(0, 0, 0, 0.75)]
[color=rgba(0, 0, 0, 0.75)]
[color=rgba(0, 0, 0, 0.75)]有英文大写,有英文小写,有空格,有标点符号[color=rgba(0, 0, 0, 0.75)]但是这确实是一段正经的英文,程序要如何判断这种属于英文呢?

hongqingfeng

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

变量名	类 型	静态	数组	备 注
sh	文本型
z	正则表达式类
i	整数型
s1	文本型

sh ＝ 文本_取出中间文本 (“[color=rgba(0, 0, 0, 0.75)]We would like to show you a description here but the site won’t allow us.[color=rgba(0, 0, 0, 0.75)]”, “[color=rgba(0, 0, 0, 0.75)]”, “[color=rgba(0, 0, 0, 0.75)]”, , )
调试输出 (sh)
z.创建 (“[\u4e00-\u9fa5]”, sh, , , , )
计次循环首 (z.取匹配数量 (), i)
如果 (z.取匹配文本 (i, 1) ＝ “”)
返回 ()
s1 ＝ z.取匹配文本 (i, 1)

计次循环尾 ()
z.创建 (“[0-9]”, sh, , , , )
计次循环首 (z.取匹配数量 (), i)
如果 (z.取匹配文本 (i, 1) ＝ “”)
返回 ()
s1 ＝ z.取匹配文本 (i, 1)

计次循环尾 ()
判断 (s1 ＝ “”)
调试输出 (“测试文本全为英文”)
调试输出 (“测试文本不为英文”)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 sh, 文本型<br /> .局部变量 z, 正则表达式类<br /> .局部变量 i, 整数型<br /> .局部变量 s1, 文本型<br /> <br /> sh ＝ 文本_取出中间文本 (“[color=rgba(0, 0, 0, 0.75)]We would like to show you a description here but the site won’t allow us.[color=rgba(0, 0, 0, 0.75)]”, “[color=rgba(0, 0, 0, 0.75)]”, “[color=rgba(0, 0, 0, 0.75)]”, , )<br /> 调试输出 (sh)<br /> z.创建 (“[\u4e00-\u9fa5]”, sh, , , , )<br /> .计次循环首 (z.取匹配数量 (), i)<br />     .如果 (z.取匹配文本 (i, 1) ＝ “”)<br />         返回 ()<br />     .否则<br />         s1 ＝ z.取匹配文本 (i, 1)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> z.创建 (“[0-9]”, sh, , , , )<br /> .计次循环首 (z.取匹配数量 (), i)<br />     .如果 (z.取匹配文本 (i, 1) ＝ “”)<br />         返回 ()<br />     .否则<br />         s1 ＝ z.取匹配文本 (i, 1)<br />     .如果结束<br /> <br /> .计次循环尾 ()<br /> .判断开始 (s1 ＝ “”)<br /> <br />     调试输出 (“测试文本全为英文”)<br /> .默认<br />     调试输出 (“测试文本不为英文”)<br /> .判断结束

简单的反逆向思维，判断文本中有没有汉字，或是数字，其它的什么不用去管，什么标点符号，下划线之类。只要没有就是英文

圆圈

如果你要查找的文本只有中文和英文，那么就用查找是否存在中文来筛

补充内容 (2025-7-1 18:05):
精易模块有是否存在中文命令

SummerTail

文本_是否为字母 ()
精益模块就有

电脑已崩溃

逐字分割  然后依次判断

观音

正则匹配 然后 判断匹配文本 和  源文本 是否一致  ([[A-Za-z\s\.']+)

冷冷的吹风

将他们进行编码 特殊符号以及英文 和中文的编码都不同

b0y

只有英文和数字标点就是

陆苏

66666666666666666666666666666666666

laihobglei

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
测试文本	文本型

测试文本 ＝ “We would like to show you a description here but the site won”
如果 (是否为正规英文 (测试文本, ))
信息框 (“是正规英文”, 0, , )
信息框 (“非正规英文”, 0, , )

子程序名	返回值类型	公开	备 注
是否为英文字符	逻辑型
参数名	类 型	参考	可空	数组	备 注
待测文本	文本型

变量名	类 型	静态	数组	备 注
字符	文本型
i	整数型

计次循环首 (取文本长度 (待测文本), i)
字符 ＝ 取文本中间 (待测文本, i, 1)
如果真 (取代码 (字符, ) ＜ 32 且 取代码 (字符, ) ≠ 9 且 取代码 (字符, ) ≠ 10 且 取代码 (字符, ) ≠ 13)
返回 (假)
如果真 (取代码 (字符, ) ＞ 127)
返回 (假)

计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
英文单词比例	小数型
参数名	类 型	参考	可空	数组	备 注
待测文本	文本型

变量名	类 型	静态	数组	备 注
单词数组	文本型		0
英文单词	文本型		10
i	整数型
计数	整数型
j	整数型

' 初始化英文单词数组
英文单词 [1] ＝ “the”
英文单词 [2] ＝ “be”
英文单词 [3] ＝ “to”
英文单词 [4] ＝ “of”
英文单词 [5] ＝ “and”
英文单词 [6] ＝ “a”
英文单词 [7] ＝ “in”
英文单词 [8] ＝ “that”
英文单词 [9] ＝ “have”
英文单词 [10] ＝ “i”
单词数组 ＝ 分割文本 (到小写 (待测文本), “ ”, )
计次循环首 (取数组成员数 (单词数组), i)
计次循环首 (取数组成员数 (英文单词), j)
如果真 (单词数组 [i] ＝ 英文单词 [j])
计数 ＝ 计数 ＋ 1
跳出循环 ()

计次循环尾 ()
计次循环尾 ()
返回 (选择 (取数组成员数 (单词数组) ＞ 0, 计数 ÷ 取数组成员数 (单词数组), 0))

子程序名	返回值类型	公开	备 注
包含英文标点	逻辑型
参数名	类 型	参考	可空	数组	备 注
待测文本	文本型

变量名	类 型	静态	数组	备 注
英文标点	文本型

英文标点 ＝ “,.!?;:\” ＋ #引号 ＋ “'()-”
返回 (寻找文本 (英文标点, 待测文本, , 假) ≠ -1)

子程序名	返回值类型	公开	备 注
符合大小写规则	逻辑型
参数名	类 型	参考	可空	数组	备 注
待测文本	文本型

变量名	类 型	静态	数组	备 注
句子数组	文本型		0
i	整数型

句子数组 ＝ 分割文本 (待测文本, “.!?”, )
计次循环首 (取数组成员数 (句子数组), i)
如果真 (取文本长度 (句子数组 [i]) ＞ 0 且 取代码 (取文本左边 (句子数组 [i], 1), ) ＜ 65 或 取代码 (取文本左边 (句子数组 [i], 1), ) ＞ 90)
返回 (假)

计次循环尾 ()
返回 (真)

子程序名	返回值类型	公开	备 注
是否为正规英文	逻辑型
参数名	类 型	参考	可空	数组	备 注
待测文本	文本型
最小单词比例	小数型				默认0.3

如果真 (是否为空 (最小单词比例))
最小单词比例 ＝ 0.3
返回 (是否为英文字符 (待测文本) 且 英文单词比例 (待测文本) ≥ 最小单词比例 且 包含英文标点 (待测文本) 且 符合大小写规则 (待测文本))

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 测试文本, 文本型<br /> <br /> 测试文本 ＝ “We would like to show you a description here but the site won”<br /> .如果 (是否为正规英文 (测试文本, ))<br />     信息框 (“是正规英文”, 0, , )<br /> .否则<br />     信息框 (“非正规英文”, 0, , )<br /> .如果结束<br /> <br /> <br /> .子程序 是否为英文字符, 逻辑型<br /> .参数 待测文本, 文本型<br /> .局部变量 字符, 文本型<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取文本长度 (待测文本), i)<br />     字符 ＝ 取文本中间 (待测文本, i, 1)<br />     .如果真 (取代码 (字符, ) ＜ 32 且 取代码 (字符, ) ≠ 9 且 取代码 (字符, ) ≠ 10 且 取代码 (字符, ) ≠ 13)<br />         返回 (假)<br />     .如果真结束<br />     .如果真 (取代码 (字符, ) ＞ 127)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> .子程序 英文单词比例, 小数型<br /> .参数 待测文本, 文本型<br /> .局部变量 单词数组, 文本型, , "0"<br /> .局部变量 英文单词, 文本型, , "10"<br /> .局部变量 i, 整数型<br /> .局部变量 计数, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' 初始化英文单词数组<br /> 英文单词 [1] ＝ “the”<br /> 英文单词 [2] ＝ “be”<br /> 英文单词 [3] ＝ “to”<br /> 英文单词 [4] ＝ “of”<br /> 英文单词 [5] ＝ “and”<br /> 英文单词 [6] ＝ “a”<br /> 英文单词 [7] ＝ “in”<br /> 英文单词 [8] ＝ “that”<br /> 英文单词 [9] ＝ “have”<br /> 英文单词 [10] ＝ “i”<br /> 单词数组 ＝ 分割文本 (到小写 (待测文本), “ ”, )<br /> .计次循环首 (取数组成员数 (单词数组), i)<br />     .计次循环首 (取数组成员数 (英文单词), j)<br />         .如果真 (单词数组 <i> ＝ 英文单词 [j])<br />             计数 ＝ 计数 ＋ 1<br />             跳出循环 ()<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> 返回 (选择 (取数组成员数 (单词数组) ＞ 0, 计数 ÷ 取数组成员数 (单词数组), 0))<br /> <br /> .子程序 包含英文标点, 逻辑型<br /> .参数 待测文本, 文本型<br /> .局部变量 英文标点, 文本型<br /> <br /> 英文标点 ＝ “,.!?;:\” ＋ #引号 ＋ “'()-”<br /> 返回 (寻找文本 (英文标点, 待测文本, , 假) ≠ -1)<br /> <br /> .子程序 符合大小写规则, 逻辑型<br /> .参数 待测文本, 文本型<br /> .局部变量 句子数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 句子数组 ＝ 分割文本 (待测文本, “.!?”, )<br /> .计次循环首 (取数组成员数 (句子数组), i)<br />     .如果真 (取文本长度 (句子数组 <i>) ＞ 0 且 取代码 (取文本左边 (句子数组 <i>, 1), ) ＜ 65 或 取代码 (取文本左边 (句子数组 <i>, 1), ) ＞ 90)<br />         返回 (假)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (真)<br /> <br /> .子程序 是否为正规英文, 逻辑型<br /> .参数 待测文本, 文本型<br /> .参数 最小单词比例, 小数型, 可空, 默认0.3<br /> <br /> .如果真 (是否为空 (最小单词比例))<br />     最小单词比例 ＝ 0.3<br /> .如果真结束<br /> 返回 (是否为英文字符 (待测文本) 且 英文单词比例 (待测文本) ≥ 最小单词比例 且 包含英文标点 (待测文本) 且 符合大小写规则 (待测文本))