len0rd/rockbox
1
0
Fork 1
mirror of https://github.com/Rockbox/rockbox.git synced 2025-10-13 18:17:39 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions

Convert one more file to LF line endings.

Browse source 
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
This commit is contained in:
Torne Wuff 2011-12-01 13:51:34 +00:00
parent 39f4408b63
commit 30e2a6d58d
1 changed files with 380 additions and 380 deletions
Download patch file Download diff file Expand all files Collapse all files

760
tools/sapi_voice.vbs
View file

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