📄 index.usml
字号:
<Default>
<ReferceNode Name="RNode11" ToService="false" RefWorkflowName="95001122.违章明细_车牌">
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
</ReferceNode>
</Default>
</Branch_Node>
</BranchItem>
<Default/>
</Branch_Node>
</Workflow>
<Workflow Name="95001122.违章明细查询_车牌">
<Compute_Node Name="确定播报语音" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
<InputVarNameSet>
<VarName>m_PV_InputCardsCode</VarName>
<VarName>m_PV_InputCardsNum</VarName>
<VarName>m_QueryMode</VarName>
</InputVarNameSet>
<OutVarNameSet>
<VarName>m_PVT_CardsInfo</VarName>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
<Content>
Select Case m_QueryMode
Case "1"
m_PVT_CardsInfo = m_PV_InputCardsNum
Case "2"
m_PVT_CardsInfo = m_PV_InputCardsCode
End Select</Content>
</Compute_Node>
<IO_Node Name="播报_输入车牌信息" ProcessError="false">
<InputVarNameSet>
<VarName>m_PVT_CardsInfo</VarName>
</InputVarNameSet>
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
<PlayFile FileNameVar="m_PVT_CardsInfo" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
</IO_Node>
<Branch_Node Name="查询模式" VarName="m_QueryMode">
<BranchItem Operator="Equal" ItemExpression="1">
<IO_Node Name="获取用户按键" ProcessError="true">
<OutVarNameSet>
<VarName>m_DTMFBuf</VarName>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
<GetDTMF DTMFVar="m_DTMFBuf" Count="4" EndFlag="" IsClearDTMFBuffer="false" TimeoutSecond="8" ReturnEndChar="false"/>
</IO_Node>
<Branch_Node Name="捕获错误" VarName="m_PrevResult">
<BranchItem Operator="Equal" ItemExpression="No_Error">
<ReferceNode Name="RNode26" ToService="false" RefWorkflowName="95001122.处理编号_车牌">
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
</ReferceNode>
</BranchItem>
<BranchItem Operator="Equal" ItemExpression="TimeOut">
<ReferceNode Name="RNode27" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
</ReferceNode>
</BranchItem>
<Default/>
</Branch_Node>
</BranchItem>
<BranchItem Operator="Equal" ItemExpression="2">
<IO_Node Name="获取用户按键1" ProcessError="true">
<OutVarNameSet>
<VarName>m_DTMFBuf</VarName>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
<GetDTMF DTMFVar="m_DTMFBuf" Count="12" EndFlag="#" IsClearDTMFBuffer="false" TimeoutSecond="8" ReturnEndChar="false"/>
</IO_Node>
<Branch_Node Name="捕获错误1" VarName="m_PrevResult">
<BranchItem Operator="Equal" ItemExpression="No_Error">
<ReferceNode Name="RNode28" ToService="false" RefWorkflowName="95001122.处理编号_车牌">
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
</ReferceNode>
</BranchItem>
<BranchItem Operator="Equal" ItemExpression="TimeOut">
<ReferceNode Name="RNode29" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
</ReferceNode>
</BranchItem>
<Default/>
</Branch_Node>
</BranchItem>
<Default>
<ReferceNode Name="RNode30" ToService="false" RefWorkflowName="95001122.违章明细_车牌">
<OutVarNameSet><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet></ReferceNode>
</Default>
</Branch_Node>
</Workflow>
<Workflow Name="95001122.处理编号_车牌">
<Compute_Node Name="处理输入信息" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
<InputVarNameSet>
<VarName>m_DTMFBuf</VarName>
<VarName>m_PathName</VarName>
<VarName>m_QueryMode</VarName>
</InputVarNameSet>
<OutVarNameSet>
<VarName>m_CardsInfo</VarName>
<VarName>m_CardsInfoExt</VarName>
<VarName>m_Char</VarName>
<VarName>m_CharExt</VarName>
<VarName>m_Num</VarName>
<VarName>m_NumTemp</VarName>
<VarName>m_NumTempExt</VarName>
<VarName>m_PVT_CardsChar</VarName>
<VarName>m_PVT_CardsCharExt</VarName>
<VarName>m_Result</VarName>
<VarName>m_ResultExt</VarName>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
<Content>
'用户输入的编号是否合法
If InStr(1, m_DTMFBuf, "*", vbTextCompare) = 0 And InStr(1, m_DTMFBuf, "#", vbTextCompare) = 0 Then
m_Result = "RIGHT"
m_CardsInfo = m_DTMFBuf
m_CardsInfoExt = m_CardsInfo
If m_QueryMode = 2 Then '精确查询
Select Case Len(m_CardsInfo)
Case 6 '假设的合法车牌号码-完全数字:0123456(假设)
m_Num = m_CardsInfo
m_CardsInfoExt = m_CardsInfo '查询使用的车牌号码
m_PVT_CardsChar = m_PathName & "PV_Null.Wav" '播放的1字母语音
m_PVT_CardsCharExt = m_PathName & "PV_Null.Wav" '播放的2字母语音,空语音
Case 7 '合法车牌号码-----1个英文 + 5个数字:0188888=>A88888; 0212345=>B12345;
m_NumTemp = Left(m_CardsInfo, 2) '获取1,2位数字
m_Result = Num2Char(m_NumTemp, m_Char) '转换1,2位数字到字母
If m_Result = "RIGHT" Then '转换成功
m_Num = Right(m_CardsInfo, 5) '获取残存的数字(5位)
m_CardsInfoExt = m_Char & m_Num '拼接查询使用的车牌号码
m_PVT_CardsChar = m_PathName & "PV_" & m_Char & ".Wav" '播放的1字母语音
m_PVT_CardsCharExt = m_PathName & "PV_Null.Wav" '播放的2字母语音,空语音
End If
Case 8 '合法车牌号码-----2个英文 + 4个数字:01028888=>AB8888; 05061234=>EF1234;
m_NumTemp = Left(m_CardsInfo, 2) '获取1,2位数字
m_NumTempExt = Mid(m_CardsInfo, 3, 2) '获取3,4位数字
m_Result = Num2Char(m_NumTemp, m_Char) '转换1,2位数字到字母
m_ResultExt = Num2Char(m_NumTempExt, m_CharExt) '转换3,4位数字到字母
If m_Result = "RIGHT" And m_ResultExt = "RIGHT" Then '转换成功
m_Num = Right(m_CardsInfo, 4) '获取残存的数字(4位)
m_CardsInfoExt = m_Char & m_CharExt & m_Num '拼接查询使用的车牌号码
m_PVT_CardsChar = m_PathName & "PV_" & m_Char & ".Wav" '播放的1字母语音
m_PVT_CardsCharExt = m_PathName & "PV_" & m_CharExt & ".Wav" '播放的2字母语音
Else
m_Result = "ERROR" '1,2,3,4位数字转换存在失败例如:01278888=>A278888->27转换不了
End If
Case Else '个性化车牌无法处理,存在字母在前在后的问题;
m_Result = "ERROR"
End Select
End If
Else '非数字问题
m_Result = "ERROR"
End If
'数字到字母转换
Function Num2Char(InputNum, OutputChr)
Select Case InputNum
Case "01", "02", "03", "04", "05", "06", "07", "08", "09", "10", "11", "12", "13", "14", "15", "16", "17", "18", "19", "20", "21", "22", "23", "24", "25", "26"
OutputChr = Chr(CLng(InputNum) + 64)
Num2Char = "RIGHT"
Case Else
OutputChr = ""
Num2Char = "FAIL"
End Select
End Function</Content>
</Compute_Node>
<Branch_Node Name="判断用户输入信息" VarName="m_Result">
<BranchItem Operator="Equal" ItemExpression="RIGHT">
<ReferceNode Name="RNode36" ToService="false" RefWorkflowName="95001122.确认编号_车牌">
<OutVarNameSet>
<ResultVarName>m_PrevResult</ResultVarName>
</OutVarNameSet>
</ReferceNode>
</BranchItem>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -