如何使用VBScript获取在excel中显示的前导零

Question

我有一个输入文本文件，上面有邮政编码和其他信息。我正在使用VBScript来解析它并将信息写入电子表格。以0开头的邮政编码被削减为4个数字。例如，文本文件中的05125在excel文件中是5125。

请不要建议切换到任何其他编码语言，因为该工具已经在VBScript中创建，唯一的问题是前导零消失。

我正在使用

Set objReadFile = objFileSys.OpenTextFile(importLocation & checkname, 1)
Set objOutFile = objFileSys.CreateTextFile(exportLocation & checkname1, True) 
do until objReadFile.AtEndOfStream
strLine = objReadFile.ReadLine()
MailingZipCode = mid(strLine, 295, 9)
blob = ALL THE EXTRA DATA & "," & MailingZipCode & "," & 
objOutFile.Writeline blob

创建输出文件并从输入文件中读取邮政编码。 当我把“'”放在mid（strLine，295,9）之前它实际上打印了撇号，不幸的是客户端不想要。我希望他们这样做，因为整个线程都没有必要。