数字错误如何寻找错误的数字纠正呢？

一个小男人

例如：
正确的数字：3472800
错误的数字：3472880
我在用识别文字的时候总是把0识别成8,用正确的数字÷1200没有小数点，在用错误的数字÷1200就有小数点了，就知道识别错了,那么想请问如何修正这个错误的数字呢，我感觉可以用遍历一下哪个数除完1200没有小数点就是正确的，所以该如何写呢，求解答！！！

laihobglei

  

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

子程序名	返回值类型	公开	备 注
修正OCR数字	整数型
参数名	类 型	参考	可空	数组	备 注
原始数字文本	文本型

变量名	类 型	静态	数组	备 注
数字数组	文本型		0
i	整数型
候选数字文本	文本型
候选数字	整数型
j	整数型

' 将数字文本拆分为单个字符数组
计次循环首 (取文本长度 (原始数字文本), i)
加入成员 (数字数组, 取文本中间 (原始数字文本, i, 1))
计次循环尾 ()
' 遍历每个可能的8→0替换位置
计次循环首 (取数组成员数 (数字数组), i)
如果真 (数字数组 [i] ＝ “8”)
' 生成候选数字（替换当前8为0）
数字数组 [i] ＝ “0”
候选数字文本 ＝ “”  ' 清空文本
计次循环首 (取数组成员数 (数字数组), j)
候选数字文本 ＝ 候选数字文本 ＋ 数字数组 [j]
计次循环尾 ()
候选数字 ＝ 到整数 (候选数字文本)
' 验证是否能被1200整除
如果真 (候选数字 ％ 1200 ＝ 0)
输出调试文本 (“找到正确数字：” ＋ 候选数字文本)
返回 (候选数字)

' 恢复原始字符
数字数组 [i] ＝ “8”

计次循环尾 ()
返回 (到整数 (原始数字文本))

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

变量名	类 型	静态	数组	备 注
错误数字	文本型
修正结果	整数型

错误数字 ＝ “3472880”  ' 注意：注释必须单独一行！
修正结果 ＝ 修正OCR数字 (错误数字)
信息框 (“修正结果：” ＋ 到文本 (修正结果), 0, , )

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 修正OCR数字, 整数型<br /> .参数 原始数字文本, 文本型<br /> .局部变量 数字数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 候选数字文本, 文本型<br /> .局部变量 候选数字, 整数型<br /> .局部变量 j, 整数型<br /> <br /> ' 将数字文本拆分为单个字符数组<br /> .计次循环首 (取文本长度 (原始数字文本), i)<br />     加入成员 (数字数组, 取文本中间 (原始数字文本, i, 1))<br /> .计次循环尾 ()<br /> <br /> ' 遍历每个可能的8→0替换位置<br /> .计次循环首 (取数组成员数 (数字数组), i)<br />     .如果真 (数字数组 <i> ＝ “8”)<br />         ' 生成候选数字（替换当前8为0）<br />         数字数组 <i> ＝ “0”<br />         候选数字文本 ＝ “”  ' 清空文本<br />         .计次循环首 (取数组成员数 (数字数组), j)<br /> <br />             候选数字文本 ＝ 候选数字文本 ＋ 数字数组 [j]<br />         .计次循环尾 ()<br />         候选数字 ＝ 到整数 (候选数字文本)<br /> <br />         ' 验证是否能被1200整除<br />         .如果真 (候选数字 ％ 1200 ＝ 0)<br />             输出调试文本 (“找到正确数字：” ＋ 候选数字文本)<br />             返回 (候选数字)<br />         .如果真结束<br /> <br />         ' 恢复原始字符<br />         数字数组 <i> ＝ “8”<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 返回 (到整数 (原始数字文本))<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 错误数字, 文本型<br /> .局部变量 修正结果, 整数型<br /> <br /> 错误数字 ＝ “3472880”  ' 注意：注释必须单独一行！<br /> 修正结果 ＝ 修正OCR数字 (错误数字)<br /> 信息框 (“修正结果：” ＋ 到文本 (修正结果), 0, , )

laihobglei

检查 候选数字 / 1200 是否为整数

一个小男人

laihobglei 发表于 2025-7-9 21:20
检查 候选数字 / 1200 是否为整数

在我不知道正确数字的情况下,这个0识别成8有可能是在第二个数有可能是在帖子这样的倒数第二个数,该怎么去尝试把这个8转换成0除1200等于整数呢？

laihobglei

遍历数字每一位将每个 8 尝试替换为 0,​检查替换后的数字​ 是否能被 1200 整除（无小数点）,​返回第一个满足条件的数字，若均不满足则返回原始数字或报错

一个小男人

laihobglei 发表于 2025-7-9 21:24
遍历数字每一位将每个 8 尝试替换为 0,​检查替换后的数字​ 是否能被 1200 整除（无小数点）,​返回第一个 ...

我知道大概是这样,但是有点不会写,所以希望可以求个源码

补充内容 (2025-7-9 21:27):
不满足的话再次进行遍历,直到满足条件为止,该如何写

xiaoyu1986

取模

一个小男人

laihobglei 发表于 2025-7-9 21:28
[e=4].版本 2

.程序集 窗口程序集_启动窗口

但是错误的数字为 3472888 就找不到正确的数字了

补充内容 (2025-7-9 21:39):
他有可能不止一个0识别成8有可能会有2个 3个0都识别成8 这个怎么修正。