From 30e2a6d58d2fc6d160e35e9f31a80f646b07b17c Mon Sep 17 00:00:00 2001 From: Torne Wuff Date: Thu, 1 Dec 2011 13:51:34 +0000 Subject: [PATCH] Convert one more file to LF line endings. Unset svn:eol-style=CRLF on this vbs file and convert it to LF line endings. VBScript is perfectly happy to run with LFs and this removes the last inconsistent line ending in our repo :) git-svn-id: svn://svn.rockbox.org/rockbox/trunk@31103 a1c6a512-1295-4272-9138-f99709370657 --- tools/sapi_voice.vbs | 760 +++++++++++++++++++++---------------------- 1 file changed, 380 insertions(+), 380 deletions(-) diff --git a/tools/sapi_voice.vbs b/tools/sapi_voice.vbs index db44ee99ab..115781fd71 100644 --- a/tools/sapi_voice.vbs +++ b/tools/sapi_voice.vbs @@ -1,380 +1,380 @@ -'*************************************************************************** -' __________ __ ___. -' Open \______ \ ____ ____ | | _\_ |__ _______ ___ -' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / -' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < -' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ -' \/ \/ \/ \/ \/ -' $Id$ -' -' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed -' -' All files in this archive are subject to the GNU General Public License. -' See the file COPYING in the source tree root for full license agreement. -' -' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY -' KIND, either express or implied. -' -'*************************************************************************** - -Option Explicit - -Const SSFMCreateForWrite = 3 - -' Audio formats for SAPI5 filestream object -Const SPSF_8kHz16BitMono = 6 -Const SPSF_11kHz16BitMono = 10 -Const SPSF_12kHz16BitMono = 14 -Const SPSF_16kHz16BitMono = 18 -Const SPSF_22kHz16BitMono = 22 -Const SPSF_24kHz16BitMono = 26 -Const SPSF_32kHz16BitMono = 30 -Const SPSF_44kHz16BitMono = 34 -Const SPSF_48kHz16BitMono = 38 - -Const STDIN = 0 -Const STDOUT = 1 -Const STDERR = 2 - -Dim oShell, oArgs, oEnv -Dim oFSO, oStdIn, oStdOut -Dim bVerbose, bSAPI4, bList -Dim sLanguage, sVoice, sSpeed, sName, sVendor - -Dim oSpVoice, oSpFS ' SAPI5 voice and filestream -Dim oTTS, nMode ' SAPI4 TTS object, mode selector -Dim oVoice ' for traversing the list of voices -Dim nLangID, sSelectString - -Dim aLine, aData ' used in command reading - -On Error Resume Next - -Set oFSO = CreateObject("Scripting.FileSystemObject") -Set oStdIn = oFSO.GetStandardStream(STDIN, true) -Set oStdOut = oFSO.GetStandardStream(STDOUT, true) - -Set oShell = CreateObject("WScript.Shell") -Set oEnv = oShell.Environment("Process") -bVerbose = (oEnv("V") <> "") - -Set oArgs = WScript.Arguments.Named -bSAPI4 = oArgs.Exists("sapi4") -bList = oArgs.Exists("listvoices") -sLanguage = oArgs.Item("language") -sVoice = oArgs.Item("voice") -sSpeed = oArgs.Item("speed") - - -If bSAPI4 Then - ' Create SAPI4 ActiveVoice object - Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_") - If Err.Number <> 0 Then - Err.Clear - Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1", "TTS_") - If Err.Number <> 0 Then - WScript.StdErr.WriteLine "Error - could not get ActiveVoice" _ - & " object. SAPI 4 not installed?" - WScript.Quit 1 - End If - End If - oTTS.Initialized = 1 - - If bList Then - ' Just list available voices for the selected language - For Each nLangID in LangIDs(sLanguage) - For nMode = 1 To oTTS.CountEngines - If oTTS.LanguageID(nMode) = nLangID Then - WScript.StdErr.Write oTTS.ModeName(nMode) & "," - End If - Next - Next - WScript.StdErr.WriteLine - WScript.Quit 0 - End If - - ' Select matching voice - For Each nLangID in LangIDs(sLanguage) - sSelectString = "LanguageID=" & nLangID - If sVoice <> "" Then - sSelectString = sSelectString & ";Speaker=" & sVoice _ - & ";ModeName=" & sVoice - End If - nMode = oTTS.Find(sSelectString) - If oTTS.LanguageID(nMode) = nLangID And (sVoice = "" Or _ - oTTS.Speaker(nMode) = sVoice Or oTTS.ModeName(nMode) = sVoice) Then - sName = oTTS.ModeName(nMode) - If bVerbose Then - WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString - End If - Exit For - Else - sSelectString = "" - End If - Next - If sSelectString = "" Then - WScript.StdErr.WriteLine "Error - found no matching voice for " _ - & sLanguage & ", " & sVoice - WScript.Quit 1 - End If - oTTS.Select nMode - - ' Speed selection - If sSpeed <> "" Then oTTS.Speed = sSpeed - - ' Get vendor information - sVendor = oTTS.MfgName(nMode) - -Else ' SAPI5 - ' Create SAPI5 object - Set oSpVoice = CreateObject("SAPI.SpVoice") - If Err.Number <> 0 Then - WScript.StdErr.WriteLine "Error - could not get SpVoice object." _ - & " SAPI 5 not installed?" - WScript.Quit 1 - End If - - If bList Then - ' Just list available voices for the selected language - For Each nLangID in LangIDs(sLanguage) - sSelectString = "Language=" & Hex(nLangID) - For Each oVoice in oSpVoice.GetVoices(sSelectString) - WScript.StdErr.Write oVoice.GetAttribute("Name") & "," - Next - Next - WScript.StdErr.WriteLine - WScript.Quit 0 - End If - - ' Select matching voice - For Each nLangID in LangIDs(sLanguage) - sSelectString = "Language=" & Hex(nLangID) - If sVoice <> "" Then - sSelectString = sSelectString & ";Name=" & sVoice - End If - Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(0) - If Err.Number = 0 Then - sName = oSpVoice.Voice.GetAttribute("Name") - If bVerbose Then - WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString - End If - Exit For - Else - sSelectString = "" - Err.Clear - End If - Next - If sSelectString = "" Then - WScript.StdErr.WriteLine "Error - found no matching voice for " _ - & sLanguage & ", " & sVoice - WScript.Quit 1 - End If - - ' Speed selection - If sSpeed <> "" Then oSpVoice.Rate = sSpeed - - ' Get vendor information, protect from missing attribute - sVendor = oSpVoice.Voice.GetAttribute("Vendor") - If Err.Number <> 0 Then - Err.Clear - sVendor = "(unknown)" - ' Some L&H engines don't set the vendor attribute - check the name - If Len(sName) > 3 And Left(sName, 3) = "LH " Then - sVendor = "L&H" - End If - End If - - ' Filestream object for output - Set oSpFS = CreateObject("SAPI.SpFileStream") - oSpFS.Format.Type = AudioFormat(sVendor) -End If - -Do - aLine = Split(oStdIn.ReadLine, vbTab, 2) - If Err.Number <> 0 Then - WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description - WScript.Quit 1 - End If - Select Case aLine(0) ' command - Case "QUERY" - Select Case aLine(1) - Case "VENDOR" - oStdOut.WriteLine sVendor - End Select - Case "SPEAK" - aData = Split(aLine(1), vbTab, 2) - If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _ - & " in " & aData(0) - If bSAPI4 Then - oTTS.FileName = aData(0) - oTTS.Speak aData(1) - While oTTS.Speaking - WScript.Sleep 1 - Wend - oTTS.FileName = "" - Else - oSpFS.Open aData(0), SSFMCreateForWrite, false - Set oSpVoice.AudioOutputStream = oSpFS - oSpVoice.Speak aData(1) - oSpFS.Close - End If - Case "EXEC" - If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1) - oShell.Run aLine(1), 0, true - If Err.Number <> 0 Then - If Not bVerbose Then - WScript.StdErr.Write "> " & aLine(1) & ": " - End If - If Err.Number = &H80070002 Then ' Actually file not found - WScript.StdErr.WriteLine "command not found" - Else - WScript.StdErr.WriteLine "error " & Err.Number & ":" _ - & Err.Description - End If - WScript.Quit 2 - End If - Case "SYNC" - If bVerbose Then WScript.StdErr.WriteLine "Syncing" - oStdOut.WriteLine aLine(1) ' Just echo what was passed - Case "QUIT" - If bVerbose Then WScript.StdErr.WriteLine "Quitting" - WScript.Quit 0 - End Select -Loop - -' Subroutines -' ----------- - -' SAPI5 output format selection based on engine -Function AudioFormat(ByRef sVendor) - Select Case sVendor - Case "Microsoft" - AudioFormat = SPSF_22kHz16BitMono - Case "AT&T Labs" - AudioFormat = SPSF_32kHz16BitMono - Case "Loquendo" - AudioFormat = SPSF_16kHz16BitMono - Case "ScanSoft, Inc" - AudioFormat = SPSF_22kHz16BitMono - Case "Voiceware" - AudioFormat = SPSF_16kHz16BitMono - Case Else - AudioFormat = SPSF_22kHz16BitMono - WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _ - & """ - using default wave format" - End Select -End Function - -' Language mapping rockbox->windows -Function LangIDs(ByRef sLanguage) - Dim aIDs - - Select Case sLanguage - Case "arabic" - LangIDs = Array( &h401, &h801, &hc01, &h1001, &h1401, &h1801, _ - &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _ - &h3401, &h3801, &h3c01, &h4001) - ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia, - ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain, - ' Qatar - Case "afrikaans" - LangIDs = Array(&h436) - Case "bulgarian" - LangIDs = Array(&h402) - Case "catala" - LangIDs = Array(&h403) - Case "chinese-simp" - LangIDs = Array(&h804) ' PRC - Case "chinese-trad" - LangIDs = Array(&h404) ' Taiwan. Perhaps also Hong Kong, Singapore, Macau? - Case "czech" - LangIDs = Array(&h405) - Case "dansk" - LangIDs = Array(&h406) - Case "deutsch" - LangIDs = Array(&h407, &hc07, &h1007, &h1407) - ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch) - Case "eesti" - LangIDs = Array(&h425) - Case "english" - LangIDs = Array( &h809, &h409, &hc09, &h1009, &h1409, &h1809, _ - &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _ - &h3409) - ' British, American, Australian, Canadian, New Zealand, Ireland, - ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe, - ' Philippines - Case "espanol" - LangIDs = Array( &h40a, &hc0a, &h80a, &h100a, &h140a, &h180a, _ - &h1c0a, &h200a, &h240a, &h280a, &h2c0a, &h300a, _ - &h340a, &h380a, &h3c0a, &h400a, &h440a, &h480a, _ - &h4c0a, &h500a) - ' trad. sort., mordern sort., Mexican, Guatemala, Costa Rica, - ' Panama, Dominican Republic, Venezuela, Colombia, Peru, Argentina, - ' Ecuador, Chile, Uruguay, Paraguay, Bolivia, El Salvador, - ' Honduras, Nicaragua, Puerto Rico - Case "esperanto" - WScript.StdErr.WriteLine "Error: no esperanto support in Windows" - WScript.Quit 1 - Case "finnish" - LangIDs = Array(&h40b) - Case "francais" - LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c) - ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon) - Case "galego" - LangIDs = Array(&h456) - Case "greek" - LangIDs = Array(&h408) - Case "hebrew" - LangIDs = Array(&h40d) - Case "hindi" - LangIDs = Array(&h439) - Case "islenska" - LangIDs = Array(&h40f) - Case "italiano" - LangIDs = Array(&h410, &h810) ' Standard, Swiss - Case "japanese" - LangIDs = Array(&h411) - Case "korean" - LangIDs = Array(&h412) - Case "lietuviu" - LangIDs = Array(&h427) - Case "magyar" - LangIDs = Array(&h40e) - Case "nederlands" - LangIDs = Array(&h413, &h813) ' Standard, Belgian - Case "norsk" - LangIDs = Array(&h414) ' Bokmal - Case "norsk-nynorsk" - LangIDs = Array(&h814) - Case "polski" - LangIDs = Array(&h415) - Case "portugues" - LangIDs = Array(&h816) - Case "portugues-brasileiro" - LangIDs = Array(&h416) - Case "romaneste" - LangIDs = Array(&h418) - Case "russian" - LangIDs = Array(&h419) - Case "slovak" - LangIDs = Array(&h41B) - Case "slovenscina" - LangIDs = Array(&h424) - Case "srpski" - LangIDs = Array(&hc1a) ' Cyrillic - Case "svenska" - LangIDs = Array(&h41d, &h81d) ' Standard, Finland - Case "tagalog" - LangIDs = Array(&h464) ' Filipino, might not be 100% correct - Case "thai" - LangIDs = Array(&h41e) - Case "turkce" - LangIDs = Array(&h41f) - Case "wallisertitsch" - LangIDs = Array(&h807) ' Swiss German - Case "walon" - LangIDs = Array(&h80c) ' Belgian French - End Select -End Function - - +'*************************************************************************** +' __________ __ ___. +' Open \______ \ ____ ____ | | _\_ |__ _______ ___ +' Source | _// _ \_/ ___\| |/ /| __ \ / _ \ \/ / +' Jukebox | | ( <_> ) \___| < | \_\ ( <_> > < < +' Firmware |____|_ /\____/ \___ >__|_ \|___ /\____/__/\_ \ +' \/ \/ \/ \/ \/ +' $Id$ +' +' Copyright (C) 2007 Steve Bavin, Jens Arnold, Mesar Hameed +' +' All files in this archive are subject to the GNU General Public License. +' See the file COPYING in the source tree root for full license agreement. +' +' This software is distributed on an "AS IS" basis, WITHOUT WARRANTY OF ANY +' KIND, either express or implied. +' +'*************************************************************************** + +Option Explicit + +Const SSFMCreateForWrite = 3 + +' Audio formats for SAPI5 filestream object +Const SPSF_8kHz16BitMono = 6 +Const SPSF_11kHz16BitMono = 10 +Const SPSF_12kHz16BitMono = 14 +Const SPSF_16kHz16BitMono = 18 +Const SPSF_22kHz16BitMono = 22 +Const SPSF_24kHz16BitMono = 26 +Const SPSF_32kHz16BitMono = 30 +Const SPSF_44kHz16BitMono = 34 +Const SPSF_48kHz16BitMono = 38 + +Const STDIN = 0 +Const STDOUT = 1 +Const STDERR = 2 + +Dim oShell, oArgs, oEnv +Dim oFSO, oStdIn, oStdOut +Dim bVerbose, bSAPI4, bList +Dim sLanguage, sVoice, sSpeed, sName, sVendor + +Dim oSpVoice, oSpFS ' SAPI5 voice and filestream +Dim oTTS, nMode ' SAPI4 TTS object, mode selector +Dim oVoice ' for traversing the list of voices +Dim nLangID, sSelectString + +Dim aLine, aData ' used in command reading + +On Error Resume Next + +Set oFSO = CreateObject("Scripting.FileSystemObject") +Set oStdIn = oFSO.GetStandardStream(STDIN, true) +Set oStdOut = oFSO.GetStandardStream(STDOUT, true) + +Set oShell = CreateObject("WScript.Shell") +Set oEnv = oShell.Environment("Process") +bVerbose = (oEnv("V") <> "") + +Set oArgs = WScript.Arguments.Named +bSAPI4 = oArgs.Exists("sapi4") +bList = oArgs.Exists("listvoices") +sLanguage = oArgs.Item("language") +sVoice = oArgs.Item("voice") +sSpeed = oArgs.Item("speed") + + +If bSAPI4 Then + ' Create SAPI4 ActiveVoice object + Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice", "TTS_") + If Err.Number <> 0 Then + Err.Clear + Set oTTS = WScript.CreateObject("ActiveVoice.ActiveVoice.1", "TTS_") + If Err.Number <> 0 Then + WScript.StdErr.WriteLine "Error - could not get ActiveVoice" _ + & " object. SAPI 4 not installed?" + WScript.Quit 1 + End If + End If + oTTS.Initialized = 1 + + If bList Then + ' Just list available voices for the selected language + For Each nLangID in LangIDs(sLanguage) + For nMode = 1 To oTTS.CountEngines + If oTTS.LanguageID(nMode) = nLangID Then + WScript.StdErr.Write oTTS.ModeName(nMode) & "," + End If + Next + Next + WScript.StdErr.WriteLine + WScript.Quit 0 + End If + + ' Select matching voice + For Each nLangID in LangIDs(sLanguage) + sSelectString = "LanguageID=" & nLangID + If sVoice <> "" Then + sSelectString = sSelectString & ";Speaker=" & sVoice _ + & ";ModeName=" & sVoice + End If + nMode = oTTS.Find(sSelectString) + If oTTS.LanguageID(nMode) = nLangID And (sVoice = "" Or _ + oTTS.Speaker(nMode) = sVoice Or oTTS.ModeName(nMode) = sVoice) Then + sName = oTTS.ModeName(nMode) + If bVerbose Then + WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString + End If + Exit For + Else + sSelectString = "" + End If + Next + If sSelectString = "" Then + WScript.StdErr.WriteLine "Error - found no matching voice for " _ + & sLanguage & ", " & sVoice + WScript.Quit 1 + End If + oTTS.Select nMode + + ' Speed selection + If sSpeed <> "" Then oTTS.Speed = sSpeed + + ' Get vendor information + sVendor = oTTS.MfgName(nMode) + +Else ' SAPI5 + ' Create SAPI5 object + Set oSpVoice = CreateObject("SAPI.SpVoice") + If Err.Number <> 0 Then + WScript.StdErr.WriteLine "Error - could not get SpVoice object." _ + & " SAPI 5 not installed?" + WScript.Quit 1 + End If + + If bList Then + ' Just list available voices for the selected language + For Each nLangID in LangIDs(sLanguage) + sSelectString = "Language=" & Hex(nLangID) + For Each oVoice in oSpVoice.GetVoices(sSelectString) + WScript.StdErr.Write oVoice.GetAttribute("Name") & "," + Next + Next + WScript.StdErr.WriteLine + WScript.Quit 0 + End If + + ' Select matching voice + For Each nLangID in LangIDs(sLanguage) + sSelectString = "Language=" & Hex(nLangID) + If sVoice <> "" Then + sSelectString = sSelectString & ";Name=" & sVoice + End If + Set oSpVoice.Voice = oSpVoice.GetVoices(sSelectString).Item(0) + If Err.Number = 0 Then + sName = oSpVoice.Voice.GetAttribute("Name") + If bVerbose Then + WScript.StdErr.WriteLine "Using " & sName & " for " & sSelectString + End If + Exit For + Else + sSelectString = "" + Err.Clear + End If + Next + If sSelectString = "" Then + WScript.StdErr.WriteLine "Error - found no matching voice for " _ + & sLanguage & ", " & sVoice + WScript.Quit 1 + End If + + ' Speed selection + If sSpeed <> "" Then oSpVoice.Rate = sSpeed + + ' Get vendor information, protect from missing attribute + sVendor = oSpVoice.Voice.GetAttribute("Vendor") + If Err.Number <> 0 Then + Err.Clear + sVendor = "(unknown)" + ' Some L&H engines don't set the vendor attribute - check the name + If Len(sName) > 3 And Left(sName, 3) = "LH " Then + sVendor = "L&H" + End If + End If + + ' Filestream object for output + Set oSpFS = CreateObject("SAPI.SpFileStream") + oSpFS.Format.Type = AudioFormat(sVendor) +End If + +Do + aLine = Split(oStdIn.ReadLine, vbTab, 2) + If Err.Number <> 0 Then + WScript.StdErr.WriteLine "Error " & Err.Number & ": " & Err.Description + WScript.Quit 1 + End If + Select Case aLine(0) ' command + Case "QUERY" + Select Case aLine(1) + Case "VENDOR" + oStdOut.WriteLine sVendor + End Select + Case "SPEAK" + aData = Split(aLine(1), vbTab, 2) + If bVerbose Then WScript.StdErr.WriteLine "Saying " & aData(1) _ + & " in " & aData(0) + If bSAPI4 Then + oTTS.FileName = aData(0) + oTTS.Speak aData(1) + While oTTS.Speaking + WScript.Sleep 1 + Wend + oTTS.FileName = "" + Else + oSpFS.Open aData(0), SSFMCreateForWrite, false + Set oSpVoice.AudioOutputStream = oSpFS + oSpVoice.Speak aData(1) + oSpFS.Close + End If + Case "EXEC" + If bVerbose Then WScript.StdErr.WriteLine "> " & aLine(1) + oShell.Run aLine(1), 0, true + If Err.Number <> 0 Then + If Not bVerbose Then + WScript.StdErr.Write "> " & aLine(1) & ": " + End If + If Err.Number = &H80070002 Then ' Actually file not found + WScript.StdErr.WriteLine "command not found" + Else + WScript.StdErr.WriteLine "error " & Err.Number & ":" _ + & Err.Description + End If + WScript.Quit 2 + End If + Case "SYNC" + If bVerbose Then WScript.StdErr.WriteLine "Syncing" + oStdOut.WriteLine aLine(1) ' Just echo what was passed + Case "QUIT" + If bVerbose Then WScript.StdErr.WriteLine "Quitting" + WScript.Quit 0 + End Select +Loop + +' Subroutines +' ----------- + +' SAPI5 output format selection based on engine +Function AudioFormat(ByRef sVendor) + Select Case sVendor + Case "Microsoft" + AudioFormat = SPSF_22kHz16BitMono + Case "AT&T Labs" + AudioFormat = SPSF_32kHz16BitMono + Case "Loquendo" + AudioFormat = SPSF_16kHz16BitMono + Case "ScanSoft, Inc" + AudioFormat = SPSF_22kHz16BitMono + Case "Voiceware" + AudioFormat = SPSF_16kHz16BitMono + Case Else + AudioFormat = SPSF_22kHz16BitMono + WScript.StdErr.WriteLine "Warning - unknown vendor """ & sVendor _ + & """ - using default wave format" + End Select +End Function + +' Language mapping rockbox->windows +Function LangIDs(ByRef sLanguage) + Dim aIDs + + Select Case sLanguage + Case "arabic" + LangIDs = Array( &h401, &h801, &hc01, &h1001, &h1401, &h1801, _ + &h1c01, &h2001, &h2401, &h2801, &h2c01, &h3001, _ + &h3401, &h3801, &h3c01, &h4001) + ' Saudi Arabia, Iraq, Egypt, Libya, Algeria, Morocco, Tunisia, + ' Oman, Yemen, Syria, Jordan, Lebanon, Kuwait, U.A.E., Bahrain, + ' Qatar + Case "afrikaans" + LangIDs = Array(&h436) + Case "bulgarian" + LangIDs = Array(&h402) + Case "catala" + LangIDs = Array(&h403) + Case "chinese-simp" + LangIDs = Array(&h804) ' PRC + Case "chinese-trad" + LangIDs = Array(&h404) ' Taiwan. Perhaps also Hong Kong, Singapore, Macau? + Case "czech" + LangIDs = Array(&h405) + Case "dansk" + LangIDs = Array(&h406) + Case "deutsch" + LangIDs = Array(&h407, &hc07, &h1007, &h1407) + ' Standard, Austrian, Luxembourg, Liechtenstein (Swiss -> wallisertitsch) + Case "eesti" + LangIDs = Array(&h425) + Case "english" + LangIDs = Array( &h809, &h409, &hc09, &h1009, &h1409, &h1809, _ + &h1c09, &h2009, &h2409, &h2809, &h2c09, &h3009, _ + &h3409) + ' British, American, Australian, Canadian, New Zealand, Ireland, + ' South Africa, Jamaika, Caribbean, Belize, Trinidad, Zimbabwe, + ' Philippines + Case "espanol" + LangIDs = Array( &h40a, &hc0a, &h80a, &h100a, &h140a, &h180a, _ + &h1c0a, &h200a, &h240a, &h280a, &h2c0a, &h300a, _ + &h340a, &h380a, &h3c0a, &h400a, &h440a, &h480a, _ + &h4c0a, &h500a) + ' trad. sort., mordern sort., Mexican, Guatemala, Costa Rica, + ' Panama, Dominican Republic, Venezuela, Colombia, Peru, Argentina, + ' Ecuador, Chile, Uruguay, Paraguay, Bolivia, El Salvador, + ' Honduras, Nicaragua, Puerto Rico + Case "esperanto" + WScript.StdErr.WriteLine "Error: no esperanto support in Windows" + WScript.Quit 1 + Case "finnish" + LangIDs = Array(&h40b) + Case "francais" + LangIDs = Array(&h40c, &hc0c, &h100c, &h140c, &h180c) + ' Standard, Canadian, Swiss, Luxembourg, Monaco (Belgian -> walon) + Case "galego" + LangIDs = Array(&h456) + Case "greek" + LangIDs = Array(&h408) + Case "hebrew" + LangIDs = Array(&h40d) + Case "hindi" + LangIDs = Array(&h439) + Case "islenska" + LangIDs = Array(&h40f) + Case "italiano" + LangIDs = Array(&h410, &h810) ' Standard, Swiss + Case "japanese" + LangIDs = Array(&h411) + Case "korean" + LangIDs = Array(&h412) + Case "lietuviu" + LangIDs = Array(&h427) + Case "magyar" + LangIDs = Array(&h40e) + Case "nederlands" + LangIDs = Array(&h413, &h813) ' Standard, Belgian + Case "norsk" + LangIDs = Array(&h414) ' Bokmal + Case "norsk-nynorsk" + LangIDs = Array(&h814) + Case "polski" + LangIDs = Array(&h415) + Case "portugues" + LangIDs = Array(&h816) + Case "portugues-brasileiro" + LangIDs = Array(&h416) + Case "romaneste" + LangIDs = Array(&h418) + Case "russian" + LangIDs = Array(&h419) + Case "slovak" + LangIDs = Array(&h41B) + Case "slovenscina" + LangIDs = Array(&h424) + Case "srpski" + LangIDs = Array(&hc1a) ' Cyrillic + Case "svenska" + LangIDs = Array(&h41d, &h81d) ' Standard, Finland + Case "tagalog" + LangIDs = Array(&h464) ' Filipino, might not be 100% correct + Case "thai" + LangIDs = Array(&h41e) + Case "turkce" + LangIDs = Array(&h41f) + Case "wallisertitsch" + LangIDs = Array(&h807) ' Swiss German + Case "walon" + LangIDs = Array(&h80c) ' Belgian French + End Select +End Function + +