Crear un archivo VCS (vCalendar)
Necesito un poco de ayuda con un tema que tiene como loco. Jajajaja
Mi nombre es Abel, y tengo la siguiente duda.
Alguien sabe la manera de crear archivos *. Vcs para Outlook vía FoxPro
El archivo vcs para los que no lo saben es el archivo que puede agregar citas al calendario del outlook.
Este archivo se puede modificar con el block de notas. Pero el problema es que no puedes ponerles espacios de más o enter ni nada.
El formato de este archivo es el siguiente.
Begin:vcalendar
VERSION:1.0
Begin:vevent
Categories:meeting
Status:tentative
DTSTART:19960401T033000Z
DTEND:19960401T043000Z
SUMMARY:Your Proposal Review
DESCRIPTION:Steve and John to review newest proposal material
class:private
end:vevent
end:vcalendar
El problema es que no me acepta que tenga espacios después de este texto.
Mi nombre es Abel, y tengo la siguiente duda.
Alguien sabe la manera de crear archivos *. Vcs para Outlook vía FoxPro
El archivo vcs para los que no lo saben es el archivo que puede agregar citas al calendario del outlook.
Este archivo se puede modificar con el block de notas. Pero el problema es que no puedes ponerles espacios de más o enter ni nada.
El formato de este archivo es el siguiente.
Begin:vcalendar
VERSION:1.0
Begin:vevent
Categories:meeting
Status:tentative
DTSTART:19960401T033000Z
DTEND:19960401T043000Z
SUMMARY:Your Proposal Review
DESCRIPTION:Steve and John to review newest proposal material
class:private
end:vevent
end:vcalendar
El problema es que no me acepta que tenga espacios después de este texto.
1 Respuesta
Respuesta de keystone CITI
1
Espero poder ayudarte:
Te doy mi solución a ver que te parece:
Hacer un archivo; creamos un TXT de modelo llamado "modelo.txt" donde los datos móviles estén entre %
Begin:vcalendar
VERSION:1.0
Begin:vevent
Categories:meeting
Status:tentative
Dtstart:%fechaini%t%horaini%00z
DTEND:%FECHAFIN%T%HORAFIN%00Z
Summary:%asunto%
Description:%descripción%
Class:private
End:vevent
End:vcalendar
Si observas vas a ver por ejemplo "SUMARY:%ASUNTO%'
Veamos como procedemos:
*Cargamos el modelo a una variable:
mArchivo=fileToSTR('c:\clientes\modelo.txt')
* Definimos las variables a reemplazar:
mFechaIni=dtos(date())
mHoraIni=left(time(),2)+substr(time(),4,2)
mFechaFin=mFechaIni
mHoraFin=mHoraIni
mAsunto="Este es el asunto"
mDescripcion="Esta es la descripcion"+chr(13)+"la segunda linea de la descripcion"
* Las remplazamos en el archivo con la funcion strTran() buscando el identificador dentro del archivo:
mArchivo=StrTran(mArchivo,'%FECHAINI%',mFechaIni)
mArchivo=strTran(mArchivo,'%HORAINI%',mHoraIni)
mArchivo=StrTran(mArchivo,'%FECHAFIN%',mFechaFin)
mArchivo=strTran(mArchivo,'%HORAFIN%',mHoraFin)
mArchivo=strTran(mArchivo,'%ASUNTO%',mAsunto)
mArchivo=strTran(mArchivo,'%DESCRIPCION%',mDescripcion)
*Guardamos el archivo en el destino con formato vcs:
=strToFIle(mArchivo,'c:\clientes\prueba.vcs')
Lo bueno de esto es que podes tener varios modelos que no se modificarían.
Lo que me di cuenta es que la fecha siempre atrasa 3 horas y es por la confuracion horaria y en nuestro país estamos -3 así que esta bien.
Bueno. Espero haberte podido ayudar, estoy a tu disposición
Te doy mi solución a ver que te parece:
Hacer un archivo; creamos un TXT de modelo llamado "modelo.txt" donde los datos móviles estén entre %
Begin:vcalendar
VERSION:1.0
Begin:vevent
Categories:meeting
Status:tentative
Dtstart:%fechaini%t%horaini%00z
DTEND:%FECHAFIN%T%HORAFIN%00Z
Summary:%asunto%
Description:%descripción%
Class:private
End:vevent
End:vcalendar
Si observas vas a ver por ejemplo "SUMARY:%ASUNTO%'
Veamos como procedemos:
*Cargamos el modelo a una variable:
mArchivo=fileToSTR('c:\clientes\modelo.txt')
* Definimos las variables a reemplazar:
mFechaIni=dtos(date())
mHoraIni=left(time(),2)+substr(time(),4,2)
mFechaFin=mFechaIni
mHoraFin=mHoraIni
mAsunto="Este es el asunto"
mDescripcion="Esta es la descripcion"+chr(13)+"la segunda linea de la descripcion"
* Las remplazamos en el archivo con la funcion strTran() buscando el identificador dentro del archivo:
mArchivo=StrTran(mArchivo,'%FECHAINI%',mFechaIni)
mArchivo=strTran(mArchivo,'%HORAINI%',mHoraIni)
mArchivo=StrTran(mArchivo,'%FECHAFIN%',mFechaFin)
mArchivo=strTran(mArchivo,'%HORAFIN%',mHoraFin)
mArchivo=strTran(mArchivo,'%ASUNTO%',mAsunto)
mArchivo=strTran(mArchivo,'%DESCRIPCION%',mDescripcion)
*Guardamos el archivo en el destino con formato vcs:
=strToFIle(mArchivo,'c:\clientes\prueba.vcs')
Lo bueno de esto es que podes tener varios modelos que no se modificarían.
Lo que me di cuenta es que la fecha siempre atrasa 3 horas y es por la confuracion horaria y en nuestro país estamos -3 así que esta bien.
Bueno. Espero haberte podido ayudar, estoy a tu disposición
