如何修剪所有形式的空白(制表符、新行、…)从龙的字符串自然说话的高级脚本？

Question

如何修剪所有形式的空白(制表符、新行、…)从龙的字符串自然说话的高级脚本？

Trim()只删除空白。例如，下面的语音命令将键入[tab]test

' Tested with Dragon NaturallySpeaking 12.5 Professional on Windows 7 SP1 x64 Ultimate
Sub Main
    s = vbTab & "test"
    s = Trim(s)
    SendKeys s
End Sub

Answer 1

根据我在这里所做的工作：

CheckNewPara在这里：FORUMVIEWTMP=Single或搜索该术语的论坛，并注意，它所做的是在调用该函数以决定下一步要做什么时，在游标所在的位置之前，回顾现有字符存在的情况。

一个人可以适应并创造以下内容：

' Tested with Dragon NaturallySpeaking 13 Professional on Windows 8.1
Sub Main
    s = vbTab & " " & vbTab & "test"
    s = myTrim(s)
    MsgBox """" & s & """"
End Sub
Function myTrim ( s As String )
    While Left(s,1)=Chr(9) Or Left(s,1)=Chr(10) Or Left(s,1)=Chr(13) Or Left(s,1)=" "
        s=Mid(s,2)
    Wend
    While Right(s,1)=Chr(9) Or Right(s,1)=Chr(10) Or Right(s,1)=Chr(13) Or Right(s,1)=" "
        s=Mid(s,1,Len(s)-1)
    Wend
    myTrim = s
End Function

当然，您可以在一个常用的注释文件中引用您的myTrim函数，所以只需要编写一次。

Hth，

Answer 2

我不知道会自动删除选项卡和其他空白空间的Trim命令，但是您可以使用Replace命令逐个删除空白空间。

Sub Main
    s = vbTab & "test"
    s = Trim(s)
    s = Replace (s, Chr(9), "") ' Replaces the tab character written in ASCII code with nothing
    s = Replace (s, Chr(10), "") ' Replaces the LF written in ASCII code with nothing
    s = Replace (s, Chr(13), "") ' Replaces the CR written in ASCII code with nothing
    SendKeys s
End Sub

这是一个部分解决方案:它将删除所有的空白空间，甚至在字符串中。如果您希望保留这些字符，则必须找到一种方法来测试第一个或最后一个字符是否为空白，并将它们替换为空。因为我以前没做过这件事，所以我想不出那件事来。