8进制文本

真冬 · 发表于 2021-5-6 01:11:10

本帖最后由真冬于 2021-5-6 01:15 编辑

问题来源于
8进制转文本https://bbs.125.la/forum.php?mod=viewthread&tid=14679578
(出处: 精易论坛)

其中\2551混了一个1
\224:还混了一个冒号

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

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

变量名	类型	静态	数组	备注
结果	字节集
转码	字节集

结果＝八进制文本转字节集 (“\345\256\211\344\273\224:\351\200\201\347\273\231\344\270\273\346\222\2551\344\270\252\345\260\217\345\277\203\345\277\203”)
转码＝编码转换 (结果, #编码_UTF_8, #编码_GB18030, )
信息框 (到文本 (转码), 0, , )

子程序名	返回值类型	公开	备注
八进制文本转字节集	字节集
参数名	类型	参考	可空	数组	备注
原文	文本型

变量名	类型	静态	数组	备注
临时内容	字节集
i1	整数型
找到的位置	整数型
计算十进制	字节型

临时内容＝子字节集替换 (到字节集 (原文), { 92, 92 }, { 92 }, , )

判断循环首 (找到的位置 ≠ -1)

找到的位置＝寻找字节集 (临时内容, { 92 }, )

判断 (找到的位置 ≠ -1)

计算十进制＝ 0

计次循环首 (3, i1)

计算十进制＝计算十进制 �� (临时内容 [找到的位置＋ i1] － #键0 ) × 求次方 (8, 3 － i1)

计次循环尾 ()

临时内容＝字节集替换 (临时内容, 找到的位置, 4, 到字节集 (计算十进制))

跳出循环 ()

判断循环尾 ()
返回 (临时内容)

i支持库列表	支持库注释
iconv	编码转换支持库

zengyaoyao · 发表于 2022-8-6 06:37:18

感谢分享。学习一下

ghost12 · 发表于 2022-5-30 03:00:28

全论坛易友发来贺电

斩天69 · 发表于 2021-5-24 21:37:54

6666666666666666666666

寡人i · 发表于 2021-5-7 02:03:18

瑶总要困告了 · 发表于 2021-5-6 13:19:21

xiaoyou666 发表于 2021-5-6 09:41
大哥牛牛牛牛

膜拜大佬

WuyueKing · 发表于 2021-5-6 13:10:20

大哥牛牛牛牛

真冬 · 发表于 2021-5-6 11:40:08

$Q_28{U54${_LN{FPNN53FXH.png$

长文本397KB测试原来耗时37秒重写代码后94毫秒

子程序名	返回值类型	公开	备注
粑紧致吻笨紫解急	字节集
参数名	类型	参考	可空	数组	备注
吻笨	文本型

变量名	类型	静态	数组	备注
i1	整数型
i2	整数型
来园	字节集
接锅	字节集
肠肚	整数型

来园＝子字节集替换 (到字节集 (吻笨), { 92, 92 }, { 92 }, , )
肠肚＝取字节集长度 (来园)
接锅＝取空白字节集 (肠肚)

判断循环首 (i1 ＜肠肚)

i1 ＝ i1 ＋ 1

判断 (来园 [i1] ＝ 92)

i2 ＝ i2 ＋ 1

接锅 [i2] ＝ (来园 [i1 ＋ 1] － #键0 ) × 64

接锅 [i2] ＝接锅 [i2] �� (来园 [i1 ＋ 2] － #键0 ) × 8

接锅 [i2] ＝接锅 [i2] ＋来园 [i1 ＋ 3] － #键0

i1 ＝ i1 ＋ 3

i2 ＝ i2 ＋ 1

接锅 [i2] ＝来园 [i1]

判断循环尾 ()
返回 (接锅)

瑶总要困告了 · 发表于 2021-5-6 09:41:25

大哥牛牛牛牛

瑶总要困告了 · 发表于 2021-5-6 09:41:11

这不是我提出的么

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

[易语言纯源码] 8进制文本

评分

点评