📄 index.usml

📁 中国移动IVR开发范例
💻 USML
📖 第 1 页 / 共 5 页
字号:
									<IO_Node Name="IONode" ProcessError="false"><InputVarNameSet><VarName>m_PV_1</VarName><VarName>m_PV_2</VarName><VarName>m_RecordCount</VarName></InputVarNameSet><OutVarNameSet><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><PlayFile FileNameVar="m_PV_1" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/><PlayTTS CanBreak="true" PlayCount="1" WaitTimeOnce="5" LanguageTypeVar="m_PronLanguage"><VarName>m_RecordCount</VarName></PlayTTS><PlayFile FileNameVar="m_PV_2" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/></IO_Node><ReferceNode Name="RNode19" ToService="false" RefWorkflowName="95001122.查询结果详单_证牌">
										<OutVarNameSet>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
									</ReferceNode>
								</BranchItem>
								<BranchItem Operator="Equal" ItemExpression="NULL">
									<ReferceNode Name="RNode121" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
										<OutVarNameSet>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
									</ReferceNode>
								</BranchItem>
								<Default>
									<ReferceNode Name="RNode12" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
										<OutVarNameSet>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
									</ReferceNode>
								</Default>
							</Branch_Node>
						</BranchItem>
						<Default>
							<ReferceNode Name="RNode20" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</Default>
					</Branch_Node>
				</BranchItem>
				<BranchItem Operator="Equal" ItemExpression="NULL">
					<IO_Node Name="播报_查询结果_NULL" ProcessError="false">
						<InputVarNameSet>
							<VarName>m_PV_RecordNull</VarName>
						</InputVarNameSet>
						<OutVarNameSet>
							<ResultVarName>m_PrevResult</ResultVarName>
						</OutVarNameSet>
						<PlayFile FileNameVar="m_PV_RecordNull" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
					</IO_Node>
					<ReferceNode Name="RNode21" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
						<OutVarNameSet>
							<ResultVarName>m_PrevResult</ResultVarName>
						</OutVarNameSet>
					</ReferceNode>
				</BranchItem>
				<Default>
					<IO_Node Name="播报_系统正忙" ProcessError="false">
						<InputVarNameSet>
							<VarName>m_PV_Fail</VarName>
						</InputVarNameSet>
						<OutVarNameSet>
							<ResultVarName>m_PrevResult</ResultVarName>
						</OutVarNameSet>
						<PlayFile FileNameVar="m_PV_Fail" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
					</IO_Node>
					<ReferceNode Name="RNode22" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
						<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_RecordCount</VarName><VarName>m_RecordCurPostion</VarName><VarName>m_RecordString</VarName></InputVarNameSet><OutVarNameSet><VarName>m_fen</VarName><VarName>m_name</VarName><VarName>m_place</VarName><VarName>m_RecordContent</VarName><VarName>m_RecordCurPostion</VarName><VarName>m_RecordDate</VarName><VarName>m_RecordEndFlag</VarName><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><Content>
Dim vRecord                              
Dim vTemp                      
'判断是否
If clng(m_RecordCurPostion) &gt;= clng(m_RecordCount) Then
   m_RecordEndFlag = "TRUE"
Else   
   vRecord = Split(m_RecordString,"|")  
   vTemp = Trim(vRecord(clng(m_RecordCurPostion) * 4))  
   m_RecordDate = Left(vTemp, 4) &amp; "-" &amp; Mid(vTemp, 5, 2) &amp; "-" &amp; Mid(vTemp,7,2)
   
   m_name = Trim(vRecord(clng(m_RecordCurPostion) * 4 + 2)) 
   m_place=Trim(vRecord(clng(m_RecordCurPostion) * 4 + 1))
   m_fen=Trim(vRecord(clng(m_RecordCurPostion) * 4 + 3))
   
   m_RecordCurPostion = clng(m_RecordCurPostion) + 1
   m_RecordEndFlag = "FALSE"
End If</Content></Compute_Node>
			<Compute_Node Name="TTS1" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
				<InputVarNameSet><VarName>m_ChannelDN</VarName><VarName>m_name</VarName><VarName>m_place</VarName><VarName>m_Tts_Ip</VarName><VarName>m_VoicePathTemp</VarName></InputVarNameSet><OutVarNameSet><VarName>m_Voice_Name1</VarName><VarName>m_Voice_Name2</VarName><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><Content>
Dim oDevice,temp1   ,temp2
m_Voice_Name1=m_VoicePathTemp &amp; m_channelDN&amp;"1" &amp; ".vox" 
m_Voice_Name2=m_VoicePathTemp &amp; m_channelDN &amp; ".vox"
Set oDevice = CreateObject("NEWpFlyTTS.NEWciFlyTTS")
temp1 = odevice.txt2voice(m_place,m_Voice_Name1,m_Tts_Ip) 
temp2 = odevice.txt2voice(m_name,m_Voice_Name2,m_Tts_Ip)
showmsg "m_Voice_Name1=" &amp; m_Voice_Name1
showmsg "m_Voice_Name2=" &amp; m_Voice_Name2</Content></Compute_Node><Branch_Node Name="判断是否播报结束" VarName="m_RecordEndFlag">
				<BranchItem Operator="Equal" ItemExpression="TRUE">
					<IO_Node Name="播报_是否重听" ProcessError="true">
						<InputVarNameSet>
							<VarName>m_PV_ListenAgain</VarName>
						</InputVarNameSet>
						<OutVarNameSet>
							<VarName>m_DTMFBuf</VarName>
							<ResultVarName>m_PrevResult</ResultVarName>
						</OutVarNameSet>
						<PlayFile FileNameVar="m_PV_ListenAgain" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
						<GetDTMF DTMFVar="m_DTMFBuf" Count="1" EndFlag="" IsClearDTMFBuffer="false" TimeoutSecond="15" ReturnEndChar="false"/>
					</IO_Node>
					<Branch_Node Name="捕获错误" VarName="m_PrevResult">
						<BranchItem Operator="Equal" ItemExpression="No_Error">
							<Branch_Node Name="判断用户按键" VarName="m_DTMFBuf">
								<BranchItem Operator="Equal" ItemExpression="1">
									<Compute_Node Name="数据初始化" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
										<OutVarNameSet>
											<VarName>m_RecordCurPostion</VarName>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
										<Content>
m_RecordCurPostion = 0</Content>
									</Compute_Node>
									<ReferceNode Name="RNode24" ToService="false" RefWorkflowName="95001122.查询结果详单_证牌">
										<OutVarNameSet>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
									</ReferceNode>
								</BranchItem>
								<Default>
									<ReferceNode Name="RNode221" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
										<OutVarNameSet>
											<ResultVarName>m_PrevResult</ResultVarName>
										</OutVarNameSet>
									</ReferceNode>
								</Default>
							</Branch_Node>
						</BranchItem>
						<BranchItem Operator="Equal" ItemExpression="TimeOut">
							<ReferceNode Name="RNode23" ToService="false" RefWorkflowName="95001122.违章积分查询_Main">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</BranchItem>
						<Default/>
					</Branch_Node>
				</BranchItem>
				<Default>
					<IO_Node Name="播报_查询结果" ProcessError="false">
						<InputVarNameSet><VarName>m_PV_1</VarName><VarName>m_PV_2</VarName><VarName>m_PV_UnitFen</VarName><VarName>m_RecordContent</VarName><VarName>m_RecordCount</VarName><VarName>m_RecordDate</VarName><VarName>m_Voice_Name1</VarName><VarName>m_Voice_Name2</VarName><VarName>m_fen</VarName></InputVarNameSet><OutVarNameSet><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><PlayTTS CanBreak="true" PlayCount="1" WaitTimeOnce="5" LanguageTypeVar="m_PronLanguage"><VarName>m_RecordDate</VarName><VarName>m_fen</VarName></PlayTTS><PlayFile FileNameVar="m_PV_UnitFen" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/>
						<PlayFile FileNameVar="m_Voice_Name1" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/><PlayFile FileNameVar="m_Voice_Name2" CanBreak="true" PlayCount="1" WaitTimeOnce="5"/></IO_Node>
					<ReferceNode Name="RNode25" ToService="false" RefWorkflowName="95001122.查询结果详单_证牌">
						<OutVarNameSet>
							<ResultVarName>m_PrevResult</ResultVarName>
						</OutVarNameSet>
					</ReferceNode>
				</Default>
			</Branch_Node>
		</Workflow>
		<Workflow Name="95001122.违章明细_车牌">
			<IO_Node Name="播报提示选择查询方式" ProcessError="true">
				<InputVarNameSet>
					<VarName>m_PV_QueryMode</VarName>
				</InputVarNameSet>
				<OutVarNameSet>
					<VarName>m_DTMFBuf</VarName>
					<ResultVarName>m_PrevResult</ResultVarName>
				</OutVarNameSet>
				<VoiceEdit PreGetCash="false">
					<PlayFile FileNameVar="m_PV_QueryMode" CanBreak="true" PlayCount="3" WaitTimeOnce="5"/>
					<GetDTMF DTMFVar="m_DTMFBuf" Count="1" EndFlag="" IsClearDTMFBuffer="false" TimeoutSecond="5" ReturnEndChar="false"/>
				</VoiceEdit>
			</IO_Node>
			<Branch_Node Name="捕获错误" VarName="m_PrevResult">
				<BranchItem Operator="Equal" ItemExpression="No_Error">
					<Compute_Node Name="保存查询模式" Language="VBScript" TimeoutSecond="300" ProcessError="false" SafeMode="false">
						<InputVarNameSet><VarName>m_DTMFBuf</VarName></InputVarNameSet><OutVarNameSet><VarName>m_QueryMode</VarName><ResultVarName>m_PrevResult</ResultVarName></OutVarNameSet><Content>
m_QueryMode = m_DTMFBuf</Content></Compute_Node>
					<Branch_Node Name="判断用户查询方式" VarName="m_DTMFBuf">
						<BranchItem Operator="Equal" ItemExpression="1">
							<ReferceNode Name="RNode10" ToService="false" RefWorkflowName="95001122.违章明细查询_车牌">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</BranchItem>
						<BranchItem Operator="Equal" ItemExpression="2">
							<ReferceNode Name="RNode101" ToService="false" RefWorkflowName="95001122.违章明细查询_车牌">
								<OutVarNameSet>
									<ResultVarName>m_PrevResult</ResultVarName>
								</OutVarNameSet>
							</ReferceNode>
						</BranchItem>
💿 文件大小 108 K
👤 上传用户 zhhw254774338
📂 所属分类其他
🏷️ 相关标签

#IVR #中国移动 #范例
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -