把图片转换成文字，图片文字化

明天自然醒

注意！！越大越清晰，转换越慢，太大的话很吃电脑配置，配置很低的话可能会卡住！第一次转换建议图片尽量调小点！慢慢调大   可以调节输出文字清晰度

冰棍好烫啊

支持开源~！感谢分享

tst80tst

感谢分享

汉族

用 内存 写入 会更快

214:208:185:250

汉族 发表于 2022-5-17 12:31
用 内存 写入 会更快

测试发现是画板画点导致的速度奇慢更改了一下
更改成这样就快多了。

  

子程序名	返回值类型	公开	备 注
像素点转字符
参数名	类 型	参考	可空	数组	备 注
临时行数	整数型

变量名	类 型	静态	数组	备 注
宽度计次	整数型
颜色值	字节集

计次循环首 (画板1.宽度, 宽度计次)
颜色值 ＝ 到字节集 (画板1.取点 (宽度计次 － 1, 临时行数 － 1))
行数 [临时行数] ＝ 行数 [临时行数] ＋ 灰度值转字符 ( (颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3) ＋ 灰度值转字符 ( (颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3)  ' 一个像素用两个字符，因为两个字符才组成一个正方形，或者也可以用一个汉字
如果真 (临时行数 ＝ 2)
画板1.画点 (宽度计次, 0, #黑色 )
如果真 (宽度计次 ＝ 2)
画板1.画点 (0, 临时行数 － 1, #黑色 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 像素点转字符<br /> .参数 临时行数, 整数型<br /> .局部变量 宽度计次, 整数型<br /> .局部变量 颜色值, 字节集<br /> <br /> .计次循环首 (画板1.宽度, 宽度计次)<br />     颜色值 ＝ 到字节集 (画板1.取点 (宽度计次 － 1, 临时行数 － 1))<br />     行数 [临时行数] ＝ 行数 [临时行数] ＋ 灰度值转字符 ((颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3) ＋ 灰度值转字符 ((颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3)  ' 一个像素用两个字符，因为两个字符才组成一个正方形，或者也可以用一个汉字<br />     .如果真 (临时行数 ＝ 2)<br />         画板1.画点 (宽度计次, 0, #黑色)<br />     .如果真结束<br />     .如果真 (宽度计次 ＝ 2)<br />         画板1.画点 (0, 临时行数 － 1, #黑色)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

214:208:185:250

汉族 发表于 2022-5-17 12:31
用 内存 写入 会更快

测试发现是画板画点导致的速度奇慢更改了一下
更改成这样就快多了。

  

子程序名	返回值类型	公开	备 注
像素点转字符
参数名	类 型	参考	可空	数组	备 注
临时行数	整数型

变量名	类 型	静态	数组	备 注
宽度计次	整数型
颜色值	字节集

计次循环首 (画板1.宽度, 宽度计次)
颜色值 ＝ 到字节集 (画板1.取点 (宽度计次 － 1, 临时行数 － 1))
行数 [临时行数] ＝ 行数 [临时行数] ＋ 灰度值转字符 ( (颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3) ＋ 灰度值转字符 ( (颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3)  ' 一个像素用两个字符，因为两个字符才组成一个正方形，或者也可以用一个汉字
如果真 (临时行数 ＝ 2)
画板1.画点 (宽度计次, 0, #黑色 )
如果真 (宽度计次 ＝ 2)
画板1.画点 (0, 临时行数 － 1, #黑色 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 像素点转字符<br /> .参数 临时行数, 整数型<br /> .局部变量 宽度计次, 整数型<br /> .局部变量 颜色值, 字节集<br /> <br /> .计次循环首 (画板1.宽度, 宽度计次)<br />     颜色值 ＝ 到字节集 (画板1.取点 (宽度计次 － 1, 临时行数 － 1))<br />     行数 [临时行数] ＝ 行数 [临时行数] ＋ 灰度值转字符 ((颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3) ＋ 灰度值转字符 ((颜色值 [1] ＋ 颜色值 [2] ＋ 颜色值 [3]) ÷ 3)  ' 一个像素用两个字符，因为两个字符才组成一个正方形，或者也可以用一个汉字<br />     .如果真 (临时行数 ＝ 2)<br />         画板1.画点 (宽度计次, 0, #黑色)<br />     .如果真结束<br />     .如果真 (宽度计次 ＝ 2)<br />         画板1.画点 (0, 临时行数 － 1, #黑色)<br />     .如果真结束<br /> <br /> .计次循环尾 ()

sangco

214:208:185:250 发表于 2022-5-13 13:14
这是谁的老婆

把下面的字符复制到左下角的编辑框里

不行啊...我改成你的灰度字符串,报错
好了 ...研究了下
选用哪个 ＝ 四舍五入 (灰度值 ÷ 四舍五入 (255 ÷ 取数组成员数 (灰度字符), 0), 0) － 1
这里-1就好了...
哈哈哈哈..........NICE

214:208:185:250

sangco 发表于 2022-5-21 09:56
不行啊...我改成你的灰度字符串,报错
好了 ...研究了下
选用哪个 ＝ 四舍五入 (灰度值 ÷ 四舍五入 (255  ...

666

蓝河笑月

支持开源~！感谢分享

wuming无名

大佬牛逼大佬牛逼