Aquí os dejo una tarea que nos dice los eventos que tenemos que realizar en el día de hoy.
Funciona aunque estoy intentado mejorarlo, para que os funcione solo hay que abrir el fichero xml y modificar PON_AQUI_TU_EMAIL por vuestro usuario de gmail y PON_AQUI_TU_CLAVE por tu código privado de ICAL.
A2: Establecer variable [ Nombre:%newline2 A: DTEND: Calcular:Apagado Añadir:Apagado ]
A3: Establecer variable [ Nombre:%newline3 A: DTSTAMP Calcular:Apagado Añadir:Apagado ]
A4: Establecer variable [ Nombre:%newline4 A: DTEND;VALUE=DATE: Calcular:Apagado Añadir:Apagado ]
A5: HTTP Get [ Servidor:Puerto:https://www.
A6: Leer Archivo [ Archivo:caltest.txt A la variable:%cal ]
A7: Separar variable [ Nombre:%cal Separador:BEGIN:VEVENT Eliminar base:Apagado ]
A8: Escribir archivo [ Archivo:VariableCal Texto:%cal Añadir:Apagado Añadir Nueva Línea:Apagado ]
A9: Array Pop [ Variable:%cal Posición:1 A la variable: ]
A10: For [ Variable:%calfor Ítems:%cal(1:25) ]
A11: Separar variable [ Nombre:%calfor Separador:SUMMARY: Eliminar base:Apagado ]
A12: Separar variable [ Nombre:%calfor2 Separador:%newline1 Eliminar base:Apagado ]
A13: Si (if) [ %calfor1 !~ *VALUE=DATE:* ]
A14: Separar variable [ Nombre:%calfor1 Separador:DTSTART: Eliminar base:Apagado ]
A15: Separar variable [ Nombre:%calfor12 Separador:%newline2 Eliminar base:Apagado ]
A16: Else
A17: Separar variable [ Nombre:%calfor1 Separador:DTSTART;VALUE=DATE: Eliminar base:Apagado ]
A18: Separar variable [ Nombre:%calfor12 Separador:%newline4 Eliminar base:Apagado ]
A19: Fin si (End if)
A20: Si (if) [ %calfor1 !~ *VALUE=DATE:* ]
A21: Separar variable [ Nombre:%calfor121 Separador:T Eliminar base:Apagado ]
A22: Sección de Variable [ Nombre:%calfor1212 Desde:1 Longitud:4 Encajar:Apagado Almacenar Resultado en: ]
A23: Else
A24: Establecer variable [ Nombre:%calfor1211 A:%calfor121 Calcular:Apagado Añadir:Apagado ]
A25: Establecer variable [ Nombre:%calfor1212 A:0000 Calcular:Apagado Añadir:Apagado ]
A26: Sección de Variable [ Nombre:%calfor1211 Desde:1 Longitud:8 Encajar:Apagado Almacenar Resultado en: ]
A27: Fin si (End if)
A28: Separar variable [ Nombre:%calfor122 Separador:%newline3 Eliminar base:Apagado ]
A29: Si (if) [ %calfor1 !~ *VALUE=DATE:* ]
A30: Separar variable [ Nombre:%calfor1221 Separador:T Eliminar base:Apagado ]
A31: Sección de Variable [ Nombre:%calfor12212 Desde:1 Longitud:4 Encajar:Apagado Almacenar Resultado en: ]
A32: Else
A33: Establecer variable [ Nombre:%calfor12211 A:%calfor1221 Calcular:Apagado Añadir:Apagado ]
A34: Establecer variable [ Nombre:%calfor12212 A:2359 Calcular:Apagado Añadir:Apagado ]
A35: Sección de Variable [ Nombre:%calfor12211 Desde:1 Longitud:8 Encajar:Apagado Almacenar Resultado en: ]
A36: Fin si (End if)
A37: Establecer variable [ Nombre:%start1 A:%calfor1212 Calcular:Apagado Añadir:Apagado ]
A38: Establecer variable [ Nombre:%start2 A:%calfor1212 Calcular:Apagado Añadir:Apagado ]
A39: Sección de Variable [ Nombre:%start1 Desde:1 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A40: Sección de Variable [ Nombre:%start2 Desde:3 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A41: Establecer variable [ Nombre:%start A:%calfor1211 %start1:%start2 Calcular:Apagado Añadir:Apagado ]
A42: Convertir Variable [ Nombre:%start Función:Fecha Hora a Segundos Almacenar Resultado en: ]
A43: Establecer variable [ Nombre:%end1 A:%calfor12212 Calcular:Apagado Añadir:Apagado ]
A44: Establecer variable [ Nombre:%end2 A:%calfor12212 Calcular:Apagado Añadir:Apagado ]
A45: Sección de Variable [ Nombre:%end1 Desde:1 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A46: Sección de Variable [ Nombre:%end2 Desde:3 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A47: Establecer variable [ Nombre:%end A:%calfor12211 %end1:%end2 Calcular:Apagado Añadir:Apagado ]
A48: Convertir Variable [ Nombre:%end Función:Fecha Hora a Segundos Almacenar Resultado en: ]
A49: Array Push [ Nombre:%calstartdate Posición:9001 Valor:%calfor1211 Rellenar Espacios:Apagado ]
A50: Array Push [ Nombre:%calenddate Posición:9001 Valor:%calfor12211 Rellenar Espacios:Apagado ]
A51: Array Push [ Nombre:%calstarttime Posición:9001 Valor:%start1.%start2 Rellenar Espacios:Apagado ]
A52: Array Push [ Nombre:%calendtime Posición:9001 Valor:%end1.%end2 Rellenar Espacios:Apagado ]
A53: Array Push [ Nombre:%calendsec Posición:9001 Valor:%end Rellenar Espacios:Apagado ]
A54: Array Push [ Nombre:%calstartsec Posición:9001 Valor:%start Rellenar Espacios:Apagado ]
A55: Array Push [ Nombre:%caltitle Posición:9001 Valor:%calfor21 Rellenar Espacios:Apagado ]
A56: End For
A57: [X] Flash [ Texto:%caltitle1
%calstartdate1
%calenddate1
%calstarttime1
%calendtime1
%calstartsec1
%calendsec1 Largo:Encendido ]
A58: [X] For [ Variable:%caltit Ítems:%caltitle() ]
A59: [X] Flash [ Texto:%caltit Largo:Apagado ]
A60: [X] Decir [ Texto:%caltit Motor: Voz:default:default Stream:3 Tono:5 Velocidad:5 Respect Audio Focus:Encendido Network:Apagado Continuar tarea inmediatamente:Apagado ]
A61: [X] End For
A62: Establecer variable [ Nombre:%diamovil A:%DATE Calcular:Apagado Añadir:Apagado ]
A63: Buscar y Reemplazar Contenido de Variable [ Variable:%diamovil Buscar:- Ignore Case:Apagado Multi-Line:Apagado One Match Only:Apagado Almacenar Coincidencias En: Reemplazar Coincidencias:Encendido Reemplazar Con: ]
A64: Sección de Variable [ Nombre:%diamovil Desde:1 Longitud:2 Encajar:Apagado Almacenar Resultado en:%diaDD ]
A65: Sección de Variable [ Nombre:%diamovil Desde:3 Longitud:2 Encajar:Apagado Almacenar Resultado en:%mesMM ]
A66: Sección de Variable [ Nombre:%diamovil Desde:5 Longitud:4 Encajar:Apagado Almacenar Resultado en:%anyoYYYY ]
A67: Establecer variable [ Nombre:%diamovil A:%anyoYYYY%mesMM%diaDD Calcular:Apagado Añadir:Apagado ]
A68: Establecer variable [ Nombre:%contador A:0 Calcular:Apagado Añadir:Apagado ]
A69: For [ Variable:%dia Ítems:%calstartdate() ]
A70: Sumar a variable [ Nombre:%contador Valor:1 Módulo (wrap around):0 ]
A71: Establecer variable [ Nombre:%contador2 A:0 Calcular:Apagado Añadir:Apagado ]
A72: Si (if) [ %dia ~ %diamovil ]
A73: For [ Variable:%evento Ítems:%caltitle() ]
A74: [X] Flash [ Texto:%contador %contador2 Largo:Apagado ]
A75: Sumar a variable [ Nombre:%contador2 Valor:1 Módulo (wrap around):0 ]
A76: Si (if) [ %contador ~ %contador2 ]
A77: Decir [ Texto:%evento Motor: Voz:default:default Stream:3 Tono:5 Velocidad:5 Respect Audio Focus:Encendido Network:Apagado Continuar tarea inmediatamente:Apagado ]
A78: Fin si (End if)
A79: End For
A80: Fin si (End if)
A81: End For
Funciona aunque estoy intentado mejorarlo, para que os funcione solo hay que abrir el fichero xml y modificar PON_AQUI_TU_EMAIL por vuestro usuario de gmail y PON_AQUI_TU_CLAVE por tu código privado de ICAL.
AgendaDia (4)
A1: Establecer variable [ Nombre:%newline1 A: TRANSP Calcular:Apagado Añadir:Apagado ] A2: Establecer variable [ Nombre:%newline2 A: DTEND: Calcular:Apagado Añadir:Apagado ]
A3: Establecer variable [ Nombre:%newline3 A: DTSTAMP Calcular:Apagado Añadir:Apagado ]
A4: Establecer variable [ Nombre:%newline4 A: DTEND;VALUE=DATE: Calcular:Apagado Añadir:Apagado ]
A5: HTTP Get [ Servidor:Puerto:https://www.
A6: Leer Archivo [ Archivo:caltest.txt A la variable:%cal ]
A7: Separar variable [ Nombre:%cal Separador:BEGIN:VEVENT Eliminar base:Apagado ]
A8: Escribir archivo [ Archivo:VariableCal Texto:%cal Añadir:Apagado Añadir Nueva Línea:Apagado ]
A9: Array Pop [ Variable:%cal Posición:1 A la variable: ]
A10: For [ Variable:%calfor Ítems:%cal(1:25) ]
A11: Separar variable [ Nombre:%calfor Separador:SUMMARY: Eliminar base:Apagado ]
A12: Separar variable [ Nombre:%calfor2 Separador:%newline1 Eliminar base:Apagado ]
A13: Si (if) [ %calfor1 !~ *VALUE=DATE:* ]
A14: Separar variable [ Nombre:%calfor1 Separador:DTSTART: Eliminar base:Apagado ]
A15: Separar variable [ Nombre:%calfor12 Separador:%newline2 Eliminar base:Apagado ]
A16: Else
A17: Separar variable [ Nombre:%calfor1 Separador:DTSTART;VALUE=DATE: Eliminar base:Apagado ]
A18: Separar variable [ Nombre:%calfor12 Separador:%newline4 Eliminar base:Apagado ]
A19: Fin si (End if)
A20: Si (if) [ %calfor1 !~ *VALUE=DATE:* ]
A21: Separar variable [ Nombre:%calfor121 Separador:T Eliminar base:Apagado ]
A22: Sección de Variable [ Nombre:%calfor1212 Desde:1 Longitud:4 Encajar:Apagado Almacenar Resultado en: ]
A23: Else
A24: Establecer variable [ Nombre:%calfor1211 A:%calfor121 Calcular:Apagado Añadir:Apagado ]
A25: Establecer variable [ Nombre:%calfor1212 A:0000 Calcular:Apagado Añadir:Apagado ]
A26: Sección de Variable [ Nombre:%calfor1211 Desde:1 Longitud:8 Encajar:Apagado Almacenar Resultado en: ]
A27: Fin si (End if)
A28: Separar variable [ Nombre:%calfor122 Separador:%newline3 Eliminar base:Apagado ]
A29: Si (if) [ %calfor1 !~ *VALUE=DATE:* ]
A30: Separar variable [ Nombre:%calfor1221 Separador:T Eliminar base:Apagado ]
A31: Sección de Variable [ Nombre:%calfor12212 Desde:1 Longitud:4 Encajar:Apagado Almacenar Resultado en: ]
A32: Else
A33: Establecer variable [ Nombre:%calfor12211 A:%calfor1221 Calcular:Apagado Añadir:Apagado ]
A34: Establecer variable [ Nombre:%calfor12212 A:2359 Calcular:Apagado Añadir:Apagado ]
A35: Sección de Variable [ Nombre:%calfor12211 Desde:1 Longitud:8 Encajar:Apagado Almacenar Resultado en: ]
A36: Fin si (End if)
A37: Establecer variable [ Nombre:%start1 A:%calfor1212 Calcular:Apagado Añadir:Apagado ]
A38: Establecer variable [ Nombre:%start2 A:%calfor1212 Calcular:Apagado Añadir:Apagado ]
A39: Sección de Variable [ Nombre:%start1 Desde:1 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A40: Sección de Variable [ Nombre:%start2 Desde:3 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A41: Establecer variable [ Nombre:%start A:%calfor1211 %start1:%start2 Calcular:Apagado Añadir:Apagado ]
A42: Convertir Variable [ Nombre:%start Función:Fecha Hora a Segundos Almacenar Resultado en: ]
A43: Establecer variable [ Nombre:%end1 A:%calfor12212 Calcular:Apagado Añadir:Apagado ]
A44: Establecer variable [ Nombre:%end2 A:%calfor12212 Calcular:Apagado Añadir:Apagado ]
A45: Sección de Variable [ Nombre:%end1 Desde:1 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A46: Sección de Variable [ Nombre:%end2 Desde:3 Longitud:2 Encajar:Apagado Almacenar Resultado en: ]
A47: Establecer variable [ Nombre:%end A:%calfor12211 %end1:%end2 Calcular:Apagado Añadir:Apagado ]
A48: Convertir Variable [ Nombre:%end Función:Fecha Hora a Segundos Almacenar Resultado en: ]
A49: Array Push [ Nombre:%calstartdate Posición:9001 Valor:%calfor1211 Rellenar Espacios:Apagado ]
A50: Array Push [ Nombre:%calenddate Posición:9001 Valor:%calfor12211 Rellenar Espacios:Apagado ]
A51: Array Push [ Nombre:%calstarttime Posición:9001 Valor:%start1.%start2 Rellenar Espacios:Apagado ]
A52: Array Push [ Nombre:%calendtime Posición:9001 Valor:%end1.%end2 Rellenar Espacios:Apagado ]
A53: Array Push [ Nombre:%calendsec Posición:9001 Valor:%end Rellenar Espacios:Apagado ]
A54: Array Push [ Nombre:%calstartsec Posición:9001 Valor:%start Rellenar Espacios:Apagado ]
A55: Array Push [ Nombre:%caltitle Posición:9001 Valor:%calfor21 Rellenar Espacios:Apagado ]
A56: End For
A57: [X] Flash [ Texto:%caltitle1
%calstartdate1
%calenddate1
%calstarttime1
%calendtime1
%calstartsec1
%calendsec1 Largo:Encendido ]
A58: [X] For [ Variable:%caltit Ítems:%caltitle() ]
A59: [X] Flash [ Texto:%caltit Largo:Apagado ]
A60: [X] Decir [ Texto:%caltit Motor: Voz:default:default Stream:3 Tono:5 Velocidad:5 Respect Audio Focus:Encendido Network:Apagado Continuar tarea inmediatamente:Apagado ]
A61: [X] End For
A62: Establecer variable [ Nombre:%diamovil A:%DATE Calcular:Apagado Añadir:Apagado ]
A63: Buscar y Reemplazar Contenido de Variable [ Variable:%diamovil Buscar:- Ignore Case:Apagado Multi-Line:Apagado One Match Only:Apagado Almacenar Coincidencias En: Reemplazar Coincidencias:Encendido Reemplazar Con: ]
A64: Sección de Variable [ Nombre:%diamovil Desde:1 Longitud:2 Encajar:Apagado Almacenar Resultado en:%diaDD ]
A65: Sección de Variable [ Nombre:%diamovil Desde:3 Longitud:2 Encajar:Apagado Almacenar Resultado en:%mesMM ]
A66: Sección de Variable [ Nombre:%diamovil Desde:5 Longitud:4 Encajar:Apagado Almacenar Resultado en:%anyoYYYY ]
A67: Establecer variable [ Nombre:%diamovil A:%anyoYYYY%mesMM%diaDD Calcular:Apagado Añadir:Apagado ]
A68: Establecer variable [ Nombre:%contador A:0 Calcular:Apagado Añadir:Apagado ]
A69: For [ Variable:%dia Ítems:%calstartdate() ]
A70: Sumar a variable [ Nombre:%contador Valor:1 Módulo (wrap around):0 ]
A71: Establecer variable [ Nombre:%contador2 A:0 Calcular:Apagado Añadir:Apagado ]
A72: Si (if) [ %dia ~ %diamovil ]
A73: For [ Variable:%evento Ítems:%caltitle() ]
A74: [X] Flash [ Texto:%contador %contador2 Largo:Apagado ]
A75: Sumar a variable [ Nombre:%contador2 Valor:1 Módulo (wrap around):0 ]
A76: Si (if) [ %contador ~ %contador2 ]
A77: Decir [ Texto:%evento Motor: Voz:default:default Stream:3 Tono:5 Velocidad:5 Respect Audio Focus:Encendido Network:Apagado Continuar tarea inmediatamente:Apagado ]
A78: Fin si (End if)
A79: End For
A80: Fin si (End if)
A81: End For