提取文件版本信息代码编译工具

.如果真 (取版本信息 (版本信息位置, “\VarFileInfo\Translation”, 内存复制首位置, 内存复制长度) ＝ 0)
返回 ()
.如果真结束
临时内存数据存放变量 ＝ 取空白字节集 (内存复制长度)
内存复制 (临时内存数据存放变量, 内存复制首位置, 内存复制长度)
版本信息真实位置 ＝ 取重复文本 (8 － 取文本长度 (取十六进制文本 (取字节集数据 (临时内存数据存放变量, 3))), “0”) ＋ 取十六进制文本 (取字节集数据 (临时内存数据存放变量, 3))
版本信息真实位置 ＝ 取文本右边 (版本信息真实位置, 4) ＋ 取文本左边 (版本信息真实位置, 4)
.变量循环首 (1, 12, 1, 版本信息长度)
.如果真 (取版本信息 (版本信息位置, “\StringFileInfo\” ＋ 版本信息真实位置 ＋ “\” ＋ 多项选择 (版本信息长度, “Comments”, “CompanyName”, “FileDescription”, “FileVersion”, “InternalName”, “LegalCopyright”, “LegalTrademarks”, “OriginalFilename”, “PrivateBuild”, “ProductName”, “ProductVersion”, “SpecialBuild”), 内存复制首位置, 内存复制长度) ≠ 0)
临时内存数据存放变量 ＝ 取空白字节集 (内存复制长度)
内存复制 (临时内存数据存放变量, 内存复制首位置, 内存复制长度)
临时文本变量 ＝ 取字节集数据 (临时内存数据存放变量, 10)
.如果真 (临时文本变量 ≠ “”)
临时文本变量B ＝ 多项选择 (版本信息长度, “备注”, “公司名”, “描述”, “文件版本”, “内部名称”, “版权”, “合法商标”, “原文件名”, “个人用编译版说明”, “产品名称”, “产品版本”, “特殊编译版说明”) ＋ “：”
加入成员 (版本信息, 临时文本变量B ＋ 取重复文本 (12 － 取文本长度 (临时文本变量B), “ ”) ＋ 临时文本变量)