If this is your first visit, be sure to check out the FAQ. You must register before you can post. Your first post will be checked for appropriate content
(SPAM) - please allow a bit of time for that. After that, you'll be able to post at will!
function insertSpaces(sText)
lengthOfsText = len(sText)
sNewString = ""
for i = 1 to lengthOfsText - 1
sNewString = sNewString & mid(sText,i,1) & " "
next
insertSpaces = sNewStirng & right(sText,1)
end function
For some reason when I use your code it only speaks the last Number.
hs.speak insertSpaces("12345") only speaks 5.
Here is what I finally ended up using.
<pre class="ip-ubbcode-code-pre">
Function spaces(string)
Dim Tmp, i
For i = 1 to Len(string)
Tmp = Tmp & Mid(string, i, 1 ) & " "
Next
spaces = Tmp
End Function
sub main()
hs.speak spaces("12345")
end sub
</pre>
Comment