Englisch dictonary

Forums

My Profile

Inbox

Address Book

My Subscription

My Forums

Englisch dictonary

Logged in as: Guest

arrSession:exec spGetSession 2,16,57014

	Active Users: There are 0 members and 0 guests.
	Users viewing this topic: none

Printable Version

All Forums >> [Scripting] >> Post a VBScript >> Englisch dictonary
Do you like VisualBasicScript.com? Link to us and help spread the word about our forum. Thanks!

Page: [1]

Message

<< Older Topic Newer Topic >>

Englisch dictonary - 2/21/2008 9:23:40 PM

djredmar

Posts: 42
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

some script i made for colleques to have the phone alvabet :)
example

Leroy
Lima Echo Romeo Oscar Yankee

Set objAlfabet = CreateObject("Scripting.Dictionary")
objAlfabet.add test & "A", "Alfa"
objAlfabet.add test & "B", "Bravo"
objAlfabet.add test & "C", "Charlie"
objAlfabet.add test & "D", "Delta"
objAlfabet.add test & "E", "Echo"
objAlfabet.add test & "F", "Foxtrot"
objAlfabet.add test & "G", "Golf" 
objAlfabet.add test & "H", "Hotel" 
objAlfabet.add test & "I", "India" 
objAlfabet.add test & "J", "Juliett"
objAlfabet.add test & "K", "Kilo"
objAlfabet.add test & "L", "Lima" 
objAlfabet.add test & "M", "Mike"
objAlfabet.add test & "N", "November"
objAlfabet.add test & "O", "Oscar"
objAlfabet.add test & "P", "Papa"
objAlfabet.add test & "Q", "Queqbec"
objAlfabet.add test & "R", "Romeo"
objAlfabet.add test & "S", "Sierra" 
objAlfabet.add test & "T", "Tango"
objAlfabet.add test & "U", "Uniform"
objAlfabet.add test & "V", "Victor"
objAlfabet.add test & "W", "Whiskey" 
objAlfabet.add test & "X", "Xray"
objAlfabet.add test & "Y", "Yankee"
objAlfabet.add test & "Z", "Zulu"
strInvoer = InputBox("Geef woord op: ","")
strUitvoer = ""
strKarakters = Len(strInvoer)
for i = 1 To strKarakters
 bla = Ucase(Mid(strInvoer, i, 1))
 strUitvoer = strUitvoer & objAlfabet(bla) & " "  
next
wscript.echo strUitvoer

_____________________________

blah?

Post #: 1

RE: Englisch dictonary - 2/22/2008 2:51:56 AM

ebgreen

Posts: 4595
Score: 29
Joined: 7/12/2005
Status: offline

Thanks for sharing your code. In the interest of promoting good coding habits, I would suggest putting this code at the top:

Option Explicit

Dim objAlfabet
Dim strInvoer
Dim strUitvoer
Dim strKarakters
Dim i
Dim bla

The next thing that I would do is to change strKarakters to be nKarakters since it is intended to hold an integer and not a string. I would also change bla to be strBla since it is intended to hold a string. You could also consider changing objAlfabet to dicAlfabet. This is really a personal preference issue with no real standard to support it. I find that I use dictionaries often enough that it is worth distinguishing them from other objects.

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to djredmar)

Post #: 2

RE: Englisch dictonary - 2/22/2008 3:25:54 AM

djredmar

Posts: 42
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

Thanks for your input,

I had an bet with an colleque if i could do something like this within an half hour.

I did :) soo that's the main reason there are no comments, and the var names are not perfect.

Feel free to modify the script, i just though it might come in handy. It is usefull if you communicate a lot by phone, else it is almost worthless.

(in reply to ebgreen)

Post #: 3

RE: Englisch dictonary - 2/23/2008 3:06:37 PM

TomRiddle

Posts: 93
Score: 0
Joined: 2/7/2008
Status: offline

I had a play with this because it looked like a good example of the vbscript dictionary.

I came up with a script which should satisfy English Speakers, The deaf, and ebgreen's syntax.

'SpeakOut out input sentence phonetically

option explicit

Dim dicAlphabet, test 
   Dim strImport, nChars, strExport, strBla 
   Dim i

Set dicAlphabet= CreateObject("Scripting.Dictionary")
   dicAlphabet.add test & "A", "Alfa"
   dicAlphabet.add test & "B", "Bravo"
   dicAlphabet.add test & "C", "Charlie"
   dicAlphabet.add test & "D", "Delta"
   dicAlphabet.add test & "E", "Echo"
   dicAlphabet.add test & "F", "Foxtrot"
   dicAlphabet.add test & "G", "Golf" 
   dicAlphabet.add test & "H", "Hotel" 
   dicAlphabet.add test & "I", "India" 
   dicAlphabet.add test & "J", "Juliett"
   dicAlphabet.add test & "K", "Kilo"
   dicAlphabet.add test & "L", "Lima" 
   dicAlphabet.add test & "M", "Mike"
   dicAlphabet.add test & "N", "November"
   dicAlphabet.add test & "O", "Oscar"
   dicAlphabet.add test & "P", "Papa"
   dicAlphabet.add test & "Q", "Queqbec"
   dicAlphabet.add test & "R", "Romeo"
   dicAlphabet.add test & "S", "Sierra" 
   dicAlphabet.add test & "T", "Tango"
   dicAlphabet.add test & "U", "Uniform"
   dicAlphabet.add test & "V", "Victor"
   dicAlphabet.add test & "W", "Whiskey" 
   dicAlphabet.add test & "X", "Xray"
   dicAlphabet.add test & "Y", "Yankee"
   dicAlphabet.add test & "Z", "Zulu"
   dicAlphabet.add test & " ", vbcrlf&vbcrlf

strImport = InputBox("Enter Sentence: ","")
   strExport = ""
   nChars = Len(strImport)
   for i = 1 To nChars
      strBla = Ucase(Mid(strImport, i, 1))
      strExport = strExport & dicAlphabet (strBla) & ". "  
   next

SpeakOut strExport

Sub SpeakOut(strText)

Dim objVoice

Const SVSFlagsAsync = 1 
   const SVSFPurgeBeforeSpeak = 2

Set objVoice = CreateObject("SAPI.SpVoice")

strText = Trim(strText) 
   If strText <> "" Then 
      On Error Resume Next 
      objVoice.Speak strText, SVSFlagsAsync + SVSFPurgeBeforeSpeak 
      Do 
         WScript.Sleep 100 
      Loop Until objVoice.WaitUntilDone(10) 
   End If

Set objVoice = Nothing

End Sub

I am not sure what the word "test" is for in the script. Can anyone point me to documentation for dictionaries?
Also I have heard it is good programming practice to put option explicit in the script but why do it if it is not needed?

(in reply to djredmar)

Post #: 4

RE: Englisch dictonary - 2/23/2008 10:51:37 PM

djredmar

Posts: 42
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

Hi,

thanks for your input! i am not sure what test does, i copy'ed this script from the sticky vbclass examples...

Didn't knew there was voice able to use in vbscript :D will check this out; thanks!

(in reply to TomRiddle)

Post #: 5

RE: Englisch dictonary - 2/24/2008 11:47:01 PM

gdv

Posts: 2
Score: 0
Joined: 2/24/2008
From: Holland
Status: offline

At first: sorry for my bad English, but I am dutch. I hope you will understand my question.

I have a question about the script on the top:

If i put in a word, after the output the script end.

Is it possible to put in an other wordt again as much as you want till you click "annuleren".

(in reply to djredmar)

Post #: 6

RE: Englisch dictonary - 2/24/2008 11:54:25 PM

djredmar

Posts: 42
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

@gdv,

Yes i understand, you do want a loop until you click next.

Just create a loop with an until statement.

(in reply to gdv)

Post #: 7

RE: Englisch dictonary - 2/24/2008 11:57:49 PM

gdv

Posts: 2
Score: 0
Joined: 2/24/2008
From: Holland
Status: offline

Sorry, but how to create that loop? I'm a beginner with visual basic, so please help me

(in reply to djredmar)

Post #: 8

RE: Englisch dictonary - 2/25/2008 12:47:43 AM

djredmar

Posts: 42
Score: 0
Joined: 12/11/2006
From: Europe, The Netherlands
Status: offline

Set objAlfabet = CreateObject("Scripting.Dictionary")
objAlfabet.add "A", "Alfa"
objAlfabet.add "B", "Bravo"
objAlfabet.add "C", "Charlie"
objAlfabet.add "D", "Delta"
objAlfabet.add "E", "Echo"
objAlfabet.add "F", "Foxtrot"
objAlfabet.add "G", "Golf" 
objAlfabet.add "H", "Hotel" 
objAlfabet.add "I", "India" 
objAlfabet.add "J", "Juliett"
objAlfabet.add "K", "Kilo"
objAlfabet.add "L", "Lima" 
objAlfabet.add "M", "Mike"
objAlfabet.add "N", "November"
objAlfabet.add "O", "Oscar"
objAlfabet.add "P", "Papa"
objAlfabet.add "Q", "Queqbec"
objAlfabet.add "R", "Romeo"
objAlfabet.add "S", "Sierra" 
objAlfabet.add "T", "Tango"
objAlfabet.add "U", "Uniform"
objAlfabet.add "V", "Victor"
objAlfabet.add "W", "Whiskey" 
objAlfabet.add "X", "Xray"
objAlfabet.add "Y", "Yankee"
objAlfabet.add "Z", "Zulu"

Do
 strInvoer = InputBox("Geef woord op: ","")
 strUitvoer = ""
 strKarakters = Len(strInvoer)
 for i = 1 To strKarakters
   bla = Ucase(Mid(strInvoer, i, 1))
   strUitvoer = strUitvoer & objAlfabet(bla) & " "  
 next
 strOpnieuw = msgbox(strUitvoer,vbOKCancel)
Loop Until strOpnieuw = VbCancel

edit: Modified regarding ebgreen

< Message edited by djredmar -- 2/25/2008 1:25:57 AM >

(in reply to gdv)

Revisions: 2 | Post #: 9

RE: Englisch dictonary - 2/25/2008 1:13:43 AM

ebgreen

Posts: 4595
Score: 29
Joined: 7/12/2005
Status: offline

Right now, the test variable does absolutely nothing. I would suggest removing it completely. So for example this line:

objAlfabet.add test & "Z", "Zulu"

would become:

objAlfabet.add "Z", "Zulu"

_____________________________

"... when you are good and crazy, oooh, oooh, oooh, the sky is the limit!" - The Tick
Goog places to start:http://www.visualbasicscript.com/m_24727/tm.htm
http://www.visualbasicscript.com/m_47117/tm.htm

(in reply to djredmar)

Post #: 10

RE: Englisch dictonary - 2/29/2008 4:09:15 PM

DiGiTAL.SkReAM

Posts: 1095
Score: 6
Joined: 9/6/2005
From: Florida, USA
Status: offline

I took the original script segment, and modified it just a bit, and added an audio bit to it.
Now, if you pass the subroutine a string, it will read it out to you, letter by letter... numbers too.
It needs a little work on some of the pronunciations, but overall, it does ok.
Dunno what use it could be, but if nothing else, it could be fun to play with a bit.

Say "abcdefghijklmnopqrstuvwxyz0123456789"

Sub Say(sStringToSay)
Dim oSay, oWordDic, iChar
Set oWordDic = CreateObject("Scripting.Dictionary")
Set oSay = CreateObject("SAPI.SpVoice")
oWordDic.add "A", "Alpha"
oWordDic.add "B", "Bravo"
oWordDic.add "C", "Charlie"
oWordDic.add "D", "Delta"
oWordDic.add "E", "Echo"
oWordDic.add "F", "Foxtrot"
oWordDic.add "G", "Golf" 
oWordDic.add "H", "Hotel" 
oWordDic.add "I", "India" 
oWordDic.add "J", "Joker"
oWordDic.add "K", "Kilo"
oWordDic.add "L", "Lima" 
oWordDic.add "M", "Mike"
oWordDic.add "N", "November"
oWordDic.add "O", "Oscar"
oWordDic.add "P", "Papa"
oWordDic.add "Q", "Quebec"
oWordDic.add "R", "Romeo"
oWordDic.add "S", "Sierra" 
oWordDic.add "T", "Tango"
oWordDic.add "U", "Uniform"
oWordDic.add "V", "Victor"
oWordDic.add "W", "Whiskey" 
oWordDic.add "X", "X-ray"
oWordDic.add "Y", "Yankee"
oWordDic.add "Z", "Zulu"
oWordDic.add "0", "Zero"
oWordDic.add "1", "One"
oWordDic.add "2", "Two"
oWordDic.add "3", "Three"
oWordDic.add "4", "Four"
oWordDic.add "5", "Five"
oWordDic.add "6", "Six"
oWordDic.add "7", "Seven"
oWordDic.add "8", "Eight"
oWordDic.add "9", "Nine"
 For iChar = 1 To Len(sStringToSay)
  oSay.Speak oWordDic.Item(UCase(Mid(sStringToSay,iChar,1)))
 Next
End Sub

_____________________________

"There's the one man who learns by reading, the two men that learn by watching, and the rest of us have to pee on the electric fence for ourselves." - Roy Rogers

"Would you like to touch my monkey?" - Dieter (Mike Meyers)

(in reply to ebgreen)