窗口程序集名 | 保 留 | 保 留 | 备 注 |
类_快速文本, , 公开, 文本的快速累加 | | | |
变量名 | 类 型 | 数组 | 备 注 |
_文件句柄 | 整数型 | |
集_缓冲区 | 字节集 | |
_文件句柄 =
打开内存文件 ()关闭文件 (_文件句柄
)写出文本 (_文件句柄, 参_文本内容
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_缓冲区长度 | 整数型 | | |
局_偏移 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)局_偏移 = 1
如果真 (是否为空 (参_插入位置
))

参_插入位置 = 0
局_偏移 = 字数到位置 (参_插入位置)局_偏移 = 局_偏移 - 1
移动读写位置 (_文件句柄,
#文件首, 局_偏移
)返回 (插入文本 (_文件句柄, 参_文本内容
))
|
取文本内容 | 文本型 | |
|
参_起始位置 | 整数型 | | | |
参_字符数 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_偏移 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
局_偏移2 | 整数型 | | |
如果真 (取读写位置 (_文件句柄
) ≠ 0
)
移到文件首 (_文件句柄
)
如果真 (是否为空 (参_字符数
) 且 是否为空 (参_起始位置
))
返回 (读入文本 (_文件句柄,
))

集_缓冲区 =
读入字节集 (_文件句柄,
取文件长度 (_文件句柄
))
如果真 (是否为空 (参_起始位置
))

参_起始位置 = 1
如果真 (是否为空 (参_字符数
))

参_字符数 =
取字节集长度 (集_缓冲区
)参_起始位置 = 参_起始位置 - 1局_偏移 = 1
局_缓冲区长度 =
取字节集长度 (集_缓冲区
)局_偏移 =
字数到位置 (参_起始位置
)局_偏移2 =
字数到位置 (参_起始位置 + 参_字符数
)返回 (到文本 (取字节集中间 (集_缓冲区, 局_偏移, 局_偏移2 - 局_偏移
))
)关闭文件 (_文件句柄
)_文件句柄 =
打开内存文件 ()|
删除文本 | 逻辑型 | |
|
参_起始位置 | 整数型 | | | |
参_字符数 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_偏移 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
局_偏移2 | 整数型 | | |
如果真 (取读写位置 (_文件句柄
) ≠ 0
)
移到文件首 (_文件句柄
)集_缓冲区 = 读入字节集 (_文件句柄, 取文件长度 (_文件句柄))局_缓冲区长度 =
取字节集长度 (集_缓冲区
)局_偏移 =
字数到位置 (参_起始位置
)局_偏移2 =
字数到位置 (参_起始位置 + 参_字符数
)移动读写位置 (_文件句柄,
#文件首, 局_偏移 - 1
)返回 (删除数据 (_文件句柄, 局_偏移2 - 局_偏移
))
返回 (_文件句柄
)|
替换文本内容 | 逻辑型 | |
|
参_替换位置 | 整数型 | | | |
参_替换长度 | 整数型 | | | | 参_替换文本 | 文本型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_偏移1 | 整数型 | | |
局_偏移2 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
写缓存区 ()局_偏移1 = 1
局_缓冲区长度 =
取字节集长度 (集_缓冲区
)局_偏移1 =
字数到位置 (参_替换位置
)局_偏移2 =
字数到位置 (参_替换位置 + 参_替换长度
)清空内容 ()返回 (写出字节集 (_文件句柄,
字节集替换 (集_缓冲区, 局_偏移1, 局_偏移2 - 局_偏移1,
到字节集 (参_替换文本
))
))
如果真 (取读写位置 (_文件句柄
) ≠ 0
)
移到文件首 (_文件句柄
)返回 (汇编_取字数 (到字节集 (取文本内容 (, ))))|
寻找文本内容 | 整数型 | |
|
参_寻找文本内容 | 文本型 | | | |
参_起始寻找位置 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_偏移 | 整数型 | | |
局_文本 | 字节集 | | |
写缓存区 ()局_偏移 = 1
如果真 (是否为空 (参_起始寻找位置
))

参_起始寻找位置 = 1
局_偏移 = 字数到位置 (参_起始寻找位置)局_文本 =
取字节集左边 (集_缓冲区,
寻找字节集 (集_缓冲区,
到字节集 (参_寻找文本内容
), 局_偏移
) - 1
)
如果 (局_文本 =
{ })
返回 (0
)
返回 (汇编_取字数 (局_文本
) + 1
)
|
替换子文本内容 | 逻辑型 | |
|
参_被替换文本 | 文本型 | | | |
参_替换为文本 | 文本型 | | | | 参_起始替换位置 | 整数型 | | | | 参_最大替换次数 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_偏移 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
写缓存区 ()局_偏移 = 1
局_缓冲区长度 =
取字节集长度 (集_缓冲区
)
如果真 (是否为空 (参_起始替换位置
))

参_起始替换位置 = 1
局_偏移 = 字数到位置 (参_起始替换位置)清空内容 ()
如果 (是否为空 (参_最大替换次数
))
返回 (写出字节集 (_文件句柄,
子字节集替换 (集_缓冲区,
到字节集 (参_被替换文本
),
到字节集 (参_替换为文本
), 局_偏移,
))
)
返回 (写出字节集 (_文件句柄,
子字节集替换 (集_缓冲区,
到字节集 (参_被替换文本
),
到字节集 (参_替换为文本
), 局_偏移, 参_最大替换次数
))
)
参_内容 = 参_内容 +
{ 0
}取变量地址 (参_内容
)置入代码 ({ 139, 24, 139, 75, 4, 141, 115, 8, 172, 132, 192, 116, 7, 168, 128, 116, 1, 70, 226, 244, 139, 67, 4, 41, 200, 201, 194, 4, 0
})返回 (0
)关闭文件 (_文件句柄
)_文件句柄 =
打开内存文件 ()返回 (写出文本 (_文件句柄, 参_文本
))
关闭文件 (_文件句柄
)_文件句柄 =
打开内存文件 ()返回 (写出字节集 (_文件句柄,
读入文件 (参_文件名
))
)
如果真 (取读写位置 (_文件句柄
) ≠ 0
)
移到文件首 (_文件句柄
)返回 (写到文件 (参_文件名, 读入字节集 (_文件句柄, 取文件长度 (_文件句柄))))变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_计数器 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)清空内容 ()局_计数器 = 1
判断循环首 (局_缓冲区长度 > 局_计数器
)
判断 (集_缓冲区
[局_计数器
] = 32
)

局_计数器 = 局_计数器 + 1

到循环尾 ()
判断 (集_缓冲区
[局_计数器
] = 161
且 集_缓冲区
[局_计数器 + 1
] = 161
)

局_计数器 = 局_计数器 + 2

到循环尾 ()
写出字节集 (_文件句柄,
到字节集 (集_缓冲区
[局_计数器
]))


局_计数器 = 局_计数器 + 1


判断循环尾 ()
如果 (取长度 () = 0
)
返回 (假)
返回 (真)
如果真 (取读写位置 (_文件句柄
) ≠ 0
)
移到文件首 (_文件句柄
)集_缓冲区 = 读入字节集 (_文件句柄, 取文件长度 (_文件句柄))变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_计数器 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
局_偏移1 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)清空内容 ()局_计数器 = 1
判断循环首 (局_缓冲区长度 > 局_计数器
)
判断 (集_缓冲区
[局_计数器
] = 32
)

局_计数器 = 局_计数器 + 1

到循环尾 ()
判断 (集_缓冲区
[局_计数器
] = 161
且 集_缓冲区
[局_计数器 + 1
] = 161
)

局_计数器 = 局_计数器 + 2

到循环尾 ()
跳出循环 ()

判断循环尾 ()局_偏移1 = 局_计数器
局_计数器 = 局_缓冲区长度
判断循环首 (局_计数器 > 1
)
判断 (集_缓冲区
[局_计数器
] = 32
)

局_计数器 = 局_计数器 - 1

到循环尾 ()
判断 (集_缓冲区
[局_计数器
] = 161
且 集_缓冲区
[局_计数器 - 1
] = 161
)

局_计数器 = 局_计数器 - 2

到循环尾 ()
跳出循环 ()

判断循环尾 ()返回 (写出字节集 (_文件句柄,
取字节集中间 (集_缓冲区, 局_偏移1, 局_计数器 - 局_偏移1 + 1
))
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_计数器 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)清空内容 ()局_计数器 = 1
判断循环首 (局_缓冲区长度 > 局_计数器
)
判断 (集_缓冲区
[局_计数器
] = 32
)

局_计数器 = 局_计数器 + 1

到循环尾 ()
判断 (集_缓冲区
[局_计数器
] = 161
且 集_缓冲区
[局_计数器 + 1
] = 161
)

局_计数器 = 局_计数器 + 2

到循环尾 ()
跳出循环 ()

判断循环尾 ()返回 (写出字节集 (_文件句柄,
取字节集右边 (集_缓冲区, 局_缓冲区长度 - 局_计数器 + 1
))
)变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_计数器 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)清空内容 ()局_计数器 = 局_缓冲区长度
判断循环首 (局_计数器 > 1
)
判断 (集_缓冲区
[局_计数器
] = 32
)

局_计数器 = 局_计数器 - 1

到循环尾 ()
判断 (集_缓冲区
[局_计数器
] = 161
且 集_缓冲区
[局_计数器 - 1
] = 161
)

局_计数器 = 局_计数器 - 2

到循环尾 ()
跳出循环 ()

判断循环尾 ()返回 (写出字节集 (_文件句柄,
取字节集左边 (集_缓冲区, 局_计数器
))
)|
到小写字母 | 逻辑型 | |
|
参_起始位置 | 整数型 | | | |
参_转换字母数 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_缓冲区长度 | 整数型 | | |
局_偏移 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)清空内容 ()局_偏移 = 1
如果真 (是否为空 (参_起始位置
))

参_起始位置 = 1
如果真 (是否为空 (参_转换字母数
))

参_转换字母数 =
汇编_取字数 (集_缓冲区
) -
字数到位置 (参_起始位置
)局_偏移 = 字数到位置 (参_起始位置)
计次循环首 (参_转换字母数,
)
如果真 (局_偏移 > 局_缓冲区长度
)
跳出循环 ()
如果 (集_缓冲区
[局_偏移
] > 128
)

局_偏移 = 局_偏移 + 2


如果真 (集_缓冲区
[局_偏移
] > 64
且 集_缓冲区
[局_偏移
] < 91
)

集_缓冲区
[局_偏移
] =
位或 (集_缓冲区
[局_偏移
], 32
)
局_偏移 = 局_偏移 + 1

计次循环尾 ()返回 (写出字节集 (_文件句柄, 集_缓冲区
))
|
到大写字母 | 逻辑型 | |
|
参_起始位置 | 整数型 | | | |
参_转换字母数 | 整数型 | | | |
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_缓冲区长度 | 整数型 | | |
局_偏移 | 整数型 | | |
写缓存区 ()局_缓冲区长度 =
取字节集长度 (集_缓冲区
)清空内容 ()局_偏移 = 1
如果真 (是否为空 (参_起始位置
))

参_起始位置 = 1
如果真 (是否为空 (参_转换字母数
))

参_转换字母数 =
汇编_取字数 (集_缓冲区
) -
字数到位置 (参_起始位置
)局_偏移 = 字数到位置 (参_起始位置)
计次循环首 (参_转换字母数,
)
如果真 (局_偏移 > 局_缓冲区长度
)
跳出循环 ()
如果 (集_缓冲区
[局_偏移
] > 128
)

局_偏移 = 局_偏移 + 2


如果真 (集_缓冲区
[局_偏移
] > 96
且 集_缓冲区
[局_偏移
] < 123
)

集_缓冲区
[局_偏移
] =
位与 (集_缓冲区
[局_偏移
], 95
)
局_偏移 = 局_偏移 + 1

计次循环尾 ()返回 (写出字节集 (_文件句柄, 集_缓冲区
))
变量名 | 类 型 | 静态 | 数组 | 备 注 |
局_偏移 | 整数型 | | |
局_缓冲区长度 | 整数型 | | |
局_缓冲区长度 =
取字节集长度 (集_缓冲区
)局_偏移 = 1
计次循环首 (参_字数 - 1,
)
如果真 (局_偏移 > 局_缓冲区长度
)
跳出循环 ()
如果 (集_缓冲区
[局_偏移
] > 128
)

局_偏移 = 局_偏移 + 2


局_偏移 = 局_偏移 + 1


计次循环尾 ()返回 (局_偏移
)