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 1 End If ' Create the end-user automation object Dim ISWIProject Set ISWIProject = CreateObject("IswiAuto1050.ISWiProject"): CheckError ' Open the project specified at the command line ISWIProject.OpenProject Wscript.Arguments(0): CheckError 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 if ' Save and close the project ISWIProject.SaveProject: CheckError ISWIProject.CloseProject: CheckError '///////////////////////////////////////////////////////////////////////////// ' Export the string table Sub StringsExport(byref p,byval path, byval language) p.ExportStrings path, Date , language Wscript.Echo "Exported String table for language " & language & " to " & path End Sub '///////////////////////////////////////////////////////////////////////////// ' Import the string table Sub StringsImport(byref p,byval path, byval language) p.ImportStrings path, language Wscript.Echo "Imported String table for language " & language & " from " & path End Sub '///////////////////////////////////////////////////////////////////////////// Sub CheckError() Dim message, errRec If Err = 0 Then Exit Sub message = Err.Source & " " & Hex(Err) & ": " & Err.Description Wscript.Echo message Wscript.Quit 2 End 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 1 End If ' Create the end-user automation object Dim ISWIProject Set ISWIProject = CreateObject("IswiAuto1050.ISWiProject"): CheckError ' Open the project specified at the command line ISWIProject.OpenProject Wscript.Arguments(0): CheckError Dim proActiveLanguage proActiveLanguage=ISWIProject.ActiveLanguage ISWIProject.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 if ISWIProject.ActiveLanguage=proActiveLanguage ' Save and close the project ISWIProject.SaveProject: CheckError ISWIProject.CloseProject: CheckError '///////////////////////////////////////////////////////////////////////////// ' Export the string table Sub StringsExport(byref p,byval path, byval language) p.ExportStrings path, Date , language Wscript.Echo "Exported String table for language " & language & " to " & path End Sub '///////////////////////////////////////////////////////////////////////////// ' Import the string table Sub StringsImport(byref p,byval path, byval language) p.ImportStrings path, language Wscript.Echo "Imported String table for language " & language & " from " & path End Sub '///////////////////////////////////////////////////////////////////////////// Sub CheckError() Dim message, errRec If Err = 0 Then Exit Sub message = Err.Source & " " & Hex(Err) & ": " & Err.Description Wscript.Echo message Wscript.Quit 2 End Sub 'END ImportExportStrings.vbs 

       同時，需要注意的是，每個版本的InstallShield其ISWiProject對象的建立名稱都是不一樣的，一般與版本號有關（代碼2第42行）。

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

      即其中的IswiAuto1050需要根據不同的版本進行修改，具體可以在幫助文檔中查詢Importing and Exporting String Tables Using the Automation Interface得到。