#Words spell out to phonetic alphabet update#
#Words spell out to phonetic alphabet free#

#Words spell out to phonetic alphabet update#

For an inexperienced user, this piece of code might seem as something that is easy to read, but if your program contained lots of such hard coded 'dictionaries' you would have very big problems in updating them (imagine that you would have few different functions refering to the same dictionary? Would you have to each time manually update the SELECT CASE statemnets in each of them?). I guess only few people here write actual production quality code, not hacky solutions that work in short term.ġ) SELECT CASE is one of the worst ways to program things, because it leads to incredibly long, spaghetti code. I really do not understand why this function even got 125 upvotes - and only one guy even bothered to rewrite this code to make it shorter. Num = Asc(UCase(Mid(command, i, 1))) - 65Įdit: by not evaluating the parameter passed (parentheses around the parameter IIRC) we can get a 15,0289548254968 NatoAlpha = Split('Alpha,Bravo,Charlie,Delta,Echo,Foxtrot,Golf,Hotel,Indigo,Juliett,Kilo,Lima,Mike,November,Oscar,Papa,Quebec,Romeo,Sierra,Tando,Uniform,Victor,Whiskey,Xray,Yankee,Zulu', ',') You gained some, timing is now: 17,1745068816654ĭeclaring your i and num as integer instead of double get you some more: 15,6757106032856Īnd NATO = vbNullString instead of NATO = '' will save a liiiiitle more: 15,6092395105661 Dim NatoAlpha() As String Nato_bernard ('NATONATONATONATONATONATONATONATONATONATO') Nato_op ('NATONATONATONATONATONATONATONATONATONATO') If cyFrequency Then MicroTimer = cyTicks1 / cyFrequency If cyFrequency = 0 Then getFrequency cyFrequency

Private Declare Function getTickCount Lib 'kernel32' Alias _ Private Declare Function getFrequency Lib 'kernel32' Alias _ 'QueryPerformanceCounter' (cyTickCount As Currency) As Long Private Declare PtrSafe Function getTickCount Lib 'kernel32' Alias _ 'QueryPerformanceFrequency' (cyFrequency As Currency) As Long Private Declare PtrSafe Function getFrequency Lib 'kernel32' Alias _

I've computed 1 milion iterations of each for the string NATONATONATONATONATONATONATONATONATONATO, here are the results: NATO function I can confirm that this one is more efficient :D

#Words spell out to phonetic alphabet free#

I'm sure there are thousands of ways to improve it, so feel free to correct me on it! (EDIT: a much better version is shown in the comments) Option Explicit I was wondering if such a thing existed and I realized I needed it in my life. They are identifiable with a special user flair.Ī community since MaAsking a question? Describe if you are using Excel (include version and operating system!), Google Sheets, or another spreadsheet application. Occasionally Microsoft developers will post or comment. Recent ClippyPoint Milestones !Ĭongratulations and thank you to these contributors Date Include a screenshot, use the tableit website, or use the ExcelToReddit converter (courtesy of u/tirlibibi17) to present your data. NOTE: For VBA, you can select code in your VBA window, press Tab, then copy and paste that into your post or comment. To keep Reddit from mangling your formulas and other code, display it using inline-code or put it in a code-block This will award the user a ClippyPoint and change the post's flair to solved. OPs can (and should) reply to any solutions with: Solution Verified Only text posts are accepted you can have images in Text posts.Use the appropriate flair for non-questions.Post titles must be specific to your problem.