Gracias, señores por sus aportes. Voy a probar el código enviado por SrMcLister.
Mil gracias nuevamente.
Mil gracias nuevamente.
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ú
dir /ad /b > carpetas.txt
For /f "delims=" %n in (carpetas.txt) do rmdir /s /q "%%n"
@ECHO OFF
TITLE BORRADO DOCs. OFFICE
ECHO SE COMENZARA CON EL BORRADO DE LOS ARCHIVOS
ECHO ASEGURESE DE QUE LA CARPETA DE LOS ARCHIVOS EN OFFICE
ECHO ESTA MAPEADA EN LA UNIDAD Z:
PAUSE
Z:
For /f "delims=" %n in (carpetas.txt) do rmdir /s /q "%n"
ECHO BORRADO COMPLETO
PAUSE > NULL
string trim(string s);
string trim(string cadena);
/*SIMULACION DE COMPILADOR PASCAL*/
#include <stdio.h>
#include <stdlib.h>
#include <string>
using namespace std;
string trim(string cadena);
int main()
{
char cCad[50],cCadena[50], cPRO[8]="PROGRAM",cPRO1[8]="program";
int TaCad,cont=0;
system ("cls");
printf("\n\t SIMULACION COMPILADOR PASCAL \n\n");
printf ("\n1: ");gets (cCadena);
string trim(cCadena);
TaCad=strlen(cCad);
if (cCad[0]=='\0')
{
printf ("\n Error [Linea 1]:- Falta 'PROGRAM', 'nombre del programa' y ';' \n ");
}
for ( i=0; i<=6; i++)
{
if (cCad[i]!= cPRO[i])
{
if (cCad[i]!=cPRO1[i]) cont++;
}
}
if (cCad[i]==' ')
if (cont!=0 && TaCad>0)
{
printf ("\n Error [Linea 1]:- 'PROGRAM' esta mal escrito \n ");
}
if (cCad[7]!=' ' && cont==0 && TaCad>8)
{
printf ("\n Error [Linea 1]:- Falta espacio entre 'PROGRAM' y nombre de programa\n");
}
if (cCad[7]!=' ' && cont!=0 && TaCad<8)
{
printf ("\n Error [Linea 1]:- Omision de espacio entre 'PROGRAM' Y el nombre del Programa\n");
}
if (cCad[8]==';' && cont==0 && TaCad>=7)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[8]==';' && cont==0 && TaCad==8)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[1]==' '|| cCad[0]==';' ||cCad[8]==' ')
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[7]==';' || cCad[7]=='\0' && cont==0)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[TaCad-1]!=';')
{
printf ("\n Error [Linea 1]:- Falta El ';' al Final de la linea\n\n");
}
system ("PAUSE");
}
string trim(string cadena)
{
string::iterator i = cadena.begin();
string::iterator f = cadena.end();
while(*i==' ')
i++;
while(*f==' ')
f--;
return string(i,f);
}
/*Simulacion de Pascal
*/
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <string.h>
void suprime(char cadena[]);
int main()
{
char cCad[50],cCadena[50], cPRO[8]="PROGRAM",cPRO1[8]="program";
int TaCad,cont=0;
system ("cls");
printf("\n\t SIMULACION COMPILADOR PASCAL \n\n");
printf ("\n1: ");gets (cCadena);
//=================================================================================
suprime(cCadena);
TaCad=strlen(cCad);
if (cCad[0]=='\0')
{
printf ("\n Error [Linea 1]:- Falta 'PROGRAM', 'nombre del programa' y ';' \n ");
}
for ( i=0; i<=6; i++)
{
if (cCad[i]!= cPRO[i])
{
if (cCad[i]!=cPRO1[i]) cont++;
}
}
if (cCad[i]==' ')
if (cont!=0 && TaCad>0)
{
printf ("\n Error [Linea 1]:- 'PROGRAM' esta mal escrito \n ");
}
if (cCad[7]!=' ' && cont==0 && TaCad>8)
{
printf ("\n Error [Linea 1]:- Falta espacio entre 'PROGRAM' y nombre de programa\n");
}
if (cCad[7]!=' ' && cont!=0 && TaCad<8)
{
printf ("\n Error [Linea 1]:- Omision de espacio entre 'PROGRAM' Y el nombre del Programa\n");
}
if (cCad[8]==';' && cont==0 && TaCad>=7)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[8]==';' && cont==0 && TaCad==8 )
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[1]==' '|| cCad[0]==';' ||cCad[8]==' ')
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[7]==';' || cCad[7]=='\0' && cont==0)
{
printf ("\n Error [Linea 1]:- Omision del nombre del programa \n\n");
}
if (cCad[TaCad-1]!=';')
{
printf ("\n Error [Linea 1]:- Falta El ';' al Final de la linea\n\n");
}
system ("PAUSE");
}
void suprime(char cadena[])
{
char cCad[100];
int x=0, z=0, y=strlen(cadena);
while(cadena[x]==' ')
{
if(cadena[x]==' ')
x++;
}
while(cadena[x]!='\0')
{
cCad[z]=cadena[x];
x++;
z++;
}
}