KnowBrainer Speech Recognition
Decrease font size
Increase font size
Topic Title: What happened to the "hashtag [dictation]" command?
Topic Summary:
Created On: 12/16/2021 11:07 AM
Status: Post and Reply
Linear : Threading : Single : Branch
 What happened to the "hashtag [dictation]" command?   - brooklyn cabin - 12/16/2021 11:07 AM  
 What happened to the "hashtag [dictation]" command?   - Lunis Orcutt - 12/16/2021 05:08 PM  
 What happened to the "hashtag [dictation]" command?   - Edgar - 12/20/2021 11:38 AM  
 What happened to the "hashtag [dictation]" command?   - Lunis Orcutt - 12/20/2021 12:26 PM  
 What happened to the   - Edgar - 12/20/2021 08:03 PM  
 What happened to the   - Ag - 02/21/2022 05:06 PM  
Keyword
 12/16/2021 05:08 PM
User is offline View Users Profile Print this message

Author Icon
Lunis Orcutt
Top-Tier Member

Posts: 40108
Joined: 10/01/2006

We haven't figured out how to add this, as a one-step command, into KnowBrainer or Dragon but as a workaround, you can use 2 steps. 

 

1. Say something like “hash mark who let the dogs out”

2. Say compound that to turn it into a hashtag

Note that compound that only works in Dragon friendly environments 



-------------------------

Change "No" to "Know" w/KnowBrainer 2020
Trial Downloads
Dragon/Sales@KnowBrainer.com 
(615) 884-4558 ex 1

 12/20/2021 11:38 AM
User is offline View Users Profile Print this message

Author Icon
Edgar
Top-Tier Member

Posts: 1284
Joined: 04/03/2009

Hashtag <dictation>

Sub Main
   Dim phrase As String

   phrase = ListVar1
   phrase = Replace (phrase, " ", "")
   phrase = "#" & phrase
   SendKeys phrase, 1
End Sub
-----------------------------

the above hashtag command hashes the dictation without any modification so "hashtag this is a test" produces "#thisisatest". I suspect that "#ThisIsATest" would be more acceptable (without having to say "hashtag cap this cap is cap a cap test"). Try:

Sub Main

Dim words() As String' dimension a string array

Dim dictation As String

Dim k As Integer

Dim result As String

 

dictation=ListVar1

words=Split(dictation," ")

For k = 0 To UBound(words)

result=result & UCase(Left(words(k),1)) & Mid(words(k),2)

Next

SendKeys "#" & result, 1

End Sub

-----------------------------

The above (with capitalization) provides the result that I prefer.



-------------------------

-Edgar
DPI 15.3, 64-bit Windows 10 Pro, OpenOffice & Office 365, Norton Security, Shure X2U XLR to USB mic adapter with Audio Technica DB135 vocal mic, Asus X299-Deluxe Prime, Intel Core i9-7940X (14 core, 4.3 GHz overclocked to 4.9 GHz), G.SKILL TridentZ Series 64GB (4 x 16GB) DDR4 3333 (PC4 26600) F4-3333C16Q-64GTZ, NVIDIA GIGABYTE GeForce GTX 1060 GV-N1060G1 GAMING-6GD REV 2.0 6GB graphics card with 3 1920x1080 monitors

 12/20/2021 12:26 PM
User is offline View Users Profile Print this message

Author Icon
Lunis Orcutt
Top-Tier Member

Posts: 40108
Joined: 10/01/2006

Thank you Edgar. We just added your Hashtag <dictation> command (with contribution credits) to KnowBrainer 2020. We only added a space at the end of the phrase



-------------------------

Change "No" to "Know" w/KnowBrainer 2020
Trial Downloads
Dragon/Sales@KnowBrainer.com 
(615) 884-4558 ex 1

Statistics
32358 users are registered to the KnowBrainer Speech Recognition forum.
There are currently 0 users logged in.
The most users ever online was 12124 on 09/09/2020 at 04:59 AM.
There are currently 400 guests browsing this forum, which makes a total of 400 users using this forum.

FuseTalk Standard Edition v4.0 - © 1999-2022 FuseTalk™ Inc. All rights reserved.