encoding - Vb6 用 base64 编码一个数字

Question

我正在寻找一个VB6具有编码/解码 20 位数字的函数的库，例如：

00001002201200000001

我需要它来压缩数字。我发现只有对字符串进行编码的函数，但它的数字会生成更多的字符。

Answer 1

您可以编写自己的 RLE（运行长度编码）算法。只有当您的数据有很多重复字符（如样本中的字符）时，它才会对您有所帮助。本质上，您将一段重复字符替换为控制字符或标志、字符重复次数的计数以及字符本身。您的样本将变为 † ÿ0ÿ02012ÿ0。可以在http://www.andreavb.com/tip030023.html找到完整的示例模块。

† 编码产生了几个不可打印的字符，所以我无法显示确切的编码字符串。