Menú

Mostrar Mensajes

Esta sección te permite ver todos los mensajes escritos por este usuario. Ten en cuenta que sólo puedes ver los mensajes escritos en zonas a las que tienes acceso en este momento.

Mostrar Mensajes Menú

Temas - Rafaelrj

#1
Scripting / Consulta VBScript
11 Mayo 2017, 14:57 PM
Muy buenos dias amigos soy nuevo por el foro y nuevo en este mundo de la programación no es mucho lo que se y mucho lo que deseo aprender.  

Hoy quisiera hacer una consulta estoy trabajando en un asistente virtual sencillo usando Windows Speech Recognition Macros y estoy buscando como hacer un VBScript que me lea el texo guardado en un bloc de notas y luego sea convertido a voz.
La idea es que el asistente guarde texto en un bloc de notas como un recordatorio y que al ser solicitado pueda leer el contenido

Ya hice un codigo donde: al indicar que quiero crear una nota el codigo pregunta con que nombre y el usuario debe decirlo, luego el codigo pregunta con que contenido y el usuario debe decirlo luego el code tomas esos datos y lanza el VBScript donde crea el documento de texto con dichos datos.

Pero ahora necesito un  VBScript que me permita leer el contenido de un bloc de notas en particular y que el el asistente por asi decirlo lo hable. aqui les dejo el code para crear nota.

si alguien pudira ayudarme se lo agradeceria mucho y pido disculpas si estoy si estoy infringiendo alguna regla.

Código (xml) [Seleccionar]
<?xml version="1.0" encoding="UTF-16"?>
<speechMacros>

<command>
  <listenFor>crea una nota</listenFor>
  <waitFor seconds="0.2"/>
  <setState name="nombre" value="activa" />
  <sendKeys>^{WIN}</sendKeys>
  <speak>¿indique el nombre?</speak>
  <sendKeys>^{WIN}</sendKeys>
</command>

<command>
  <stateIsSet name="nombre" value="activa" />
  <listenFor>nombre [...]</listenFor>
  <listenFor>Ponle [...]</listenFor>
  <setState name="nombre" value="{[...]}"/>
  <setState name="contenido" value="activa" />
  <sendKeys>^{WIN}</sendKeys>
  <speak>indique el contenido?</speak>
  <sendKeys>^{WIN}</sendKeys>
</command>

<command>
  <stateIsSet name="contenido" value="activa" />
  <listenFor> contenido [...] </listenFor>
  <listenFor> con [...] </listenFor>
  <setState name="contenido" value="{[...]}"/>
  <speak>creando nota</speak>
  <waitFor seconds="1"/>


  <script language="VBScript">
  <![CDATA[

 
Set objfso = createobject("scripting.filesystemobject")
Set archivotexto = objfso.createtextfile("C:\Users\Rafael\Documents\Nueva carpeta\{[nombre]}.txt",true)
archivotexto.writeline "{[contenido]}"
archivotexto.writeblanklines(2)
archivotexto.writeline
archivotexto.close
Application.wait(0.5)
     Application.Speak("Nota creada.")

  ]]>
 
  </script>

  <setState name="nombre" value="activa" />
   <setState name="nombre" value="{[...]}"/>
  <setState name="contenido" value="activa" />
  <setState name="contenido" value="{[...]}"/>
 
</command>


Los códigos deben ir en etiquetas GeSHi