HOWTO: 使用命令行方式导入导出多语言String Tables

      在多语言软件的打包中，我们常常需要将大量的string tables导出，翻译，导入。使用UI界面来操作比较费时。在InstallShield中，提供了Automation Interface使用VBScript来帮助我们使用命令行的方式批量处理这样操作。
      打开InstallShield的帮助文档，搜索“Importing and Exporting String Tables Using the Automation Interface“，可以看到一段示例代码。以下以InstallShield 10.5为例。

 'BEGIN ImportExportStrings.vbs' ' InstallShield (R)' (c) 2001 - 2004 InstallShield Software Corporation' All Rights Reserved.' '' This utility was designed to assist in the importing and exporting of string tables''' File Name: ImportExportStrings.vbs'' Description: Sample VBScript file imports or exports a string table text file'' Usage: To use the objects in this script, make sure you have the following' items in place on your system:' 1. InstallShield must be installed so ' the end-user automation is available' 2. You must have Windows Scripting Host installed.(Wscript.exe)' 3. The script expects the following command-line arguments, in ' this order:' a. The fully qualified path to an existing .ism file.' b. The fully qualified path to a text file for the string table entries' c. Decimal language identifier' d. Import or Export''/////////////////////////////////////////////////////////////////////////////If Wscript.Arguments.Count < 1 Then Wscript.Echo "InstallShield Subfolder Utility" & _ vbNewLine & "1st argument is the full path to the .ism file" & _ vbNewLine & "2nd argument is the full path to the string table text file" & _vbNewLine & "3rd argument is the decimal language identifier" & _vbNewLine & "4th argument is either E or I for Export or Import" Wscript.Quit 1End If' Create the end-user automation objectDim ISWIProjectSet ISWIProject = CreateObject("IswiAuto1050.ISWiProject"): CheckError' Open the project specified at the command lineISWIProject.OpenProject Wscript.Arguments(0): CheckErrorif(Wscript.Arguments(3)="E")then StringsExport ISWIProject,Wscript.Arguments(1),Wscript.Arguments(2)elseif(Wscript.Arguments(3)="I")then StringsImport ISWIProject,Wscript.Arguments(1),Wscript.Arguments(2)end if' Save and close the projectISWIProject.SaveProject: CheckErrorISWIProject.CloseProject: CheckError'/////////////////////////////////////////////////////////////////////////////' Export the string tableSub StringsExport(byref p,byval path, byval language) p.ExportStrings path, Date , language Wscript.Echo "Exported String table for language " & language & " to " & pathEnd Sub'/////////////////////////////////////////////////////////////////////////////' Import the string tableSub StringsImport(byref p,byval path, byval language) p.ImportStrings path, language Wscript.Echo "Imported String table for language " & language & " from " & pathEnd Sub'/////////////////////////////////////////////////////////////////////////////Sub CheckError() Dim message, errRec If Err = 0 Then Exit Sub message = Err.Source & " " & Hex(Err) & ": " & Err.Description Wscript.Echo message Wscript.Quit 2End Sub'END ImportExportStrings.vbs 

      使用这段代码进行导入是可以正确运行的，但是导出代码时，无论如何修改语言的language identifier，都得到一样的结果。在帮助文档中查询代码中使用到的ExportStrings函数，提示说如果想要导出别的语言的string tables，需要将工程的默认语言修改为目的语言，执行导出代码之后再改回去。工程的默认语言属性是ActiveLanguage，因此，我们需要在导出string tables的代码之前先修改属性ActiveLanguage，这样就能正确导出所需要的语言的string table。代码如下：

 '/////////////////////////////////////////////////////////////////////////////'BEGIN ImportExportStrings.vbs' ' InstallShield (R)' (c) 2001 - 2004 InstallShield Software Corporation' All Rights Reserved.' '' This utility was designed to assist in the importing and exporting of string tables''' File Name: ImportExportStrings.vbs'' Description: Sample VBScript file imports or exports a string table text file'' Usage: To use the objects in this script, make sure you have the following' items in place on your system:' 1. InstallShield must be installed so ' the end-user automation is available' 2. You must have Windows Scripting Host installed.(Wscript.exe)' 3. The script expects the following command-line arguments, in ' this order:' a. The fully qualified path to an existing .ism file.' b. The fully qualified path to a text file for the string table entries' c. Decimal language identifier' d. Import or Export''/////////////////////////////////////////////////////////////////////////////If Wscript.Arguments.Count < 1 Then Wscript.Echo "InstallShield Subfolder Utility" & _ vbNewLine & "1st argument is the full path to the .ism file" & _ vbNewLine & "2nd argument is the full path to the string table text file" & _vbNewLine & "3rd argument is the decimal language identifier" & _vbNewLine & "4th argument is either E or I for Export or Import" Wscript.Quit 1End If' Create the end-user automation objectDim ISWIProjectSet ISWIProject = CreateObject("IswiAuto1050.ISWiProject"): CheckError' Open the project specified at the command lineISWIProject.OpenProject Wscript.Arguments(0): CheckErrorDim proActiveLanguageproActiveLanguage=ISWIProject.ActiveLanguageISWIProject.ActiveLanguage=CInt(Wscript.Arguments(2))if(Wscript.Arguments(3)="E")then StringsExport ISWIProject,Wscript.Arguments(1),Wscript.Arguments(2)elseif(Wscript.Arguments(3)="I")then StringsImport ISWIProject,Wscript.Arguments(1),Wscript.Arguments(2)end ifISWIProject.ActiveLanguage=proActiveLanguage' Save and close the projectISWIProject.SaveProject: CheckErrorISWIProject.CloseProject: CheckError'/////////////////////////////////////////////////////////////////////////////' Export the string tableSub StringsExport(byref p,byval path, byval language) p.ExportStrings path, Date , language Wscript.Echo "Exported String table for language " & language & " to " & pathEnd Sub'/////////////////////////////////////////////////////////////////////////////' Import the string tableSub StringsImport(byref p,byval path, byval language) p.ImportStrings path, language Wscript.Echo "Imported String table for language " & language & " from " & pathEnd Sub'/////////////////////////////////////////////////////////////////////////////Sub CheckError() Dim message, errRec If Err = 0 Then Exit Sub message = Err.Source & " " & Hex(Err) & ": " & Err.Description Wscript.Echo message Wscript.Quit 2End Sub'END ImportExportStrings.vbs 

       同时，需要注意的是，每个版本的InstallShield其ISWiProject对象的建立名称都是不一样的，一般与版本号有关（代码2第42行）。

 Set ISWIProject = CreateObject("IswiAuto1050.ISWiProject"): CheckError

      即其中的IswiAuto1050需要根据不同的版本进行修改，具体可以在帮助文档中查询Importing and Exporting String Tables Using the Automation Interface得到。