intercalar texto en un archivo

[escafandra] · #2 04-07-2014

Te respondo sin hacer uso de la VCL, sólo con API de windows

Código:

int Search(char *Buffer, char *S, int SizeBuffer)
{
  for(int n= 0; n<SizeBuffer-lstrlen(S); n++){
    if(Buffer[n] == *S){
      int i=1;
      for(; S[i]; i++)
        if(Buffer[n+i]!=S[i])  break;
      if(i==lstrlen(S)) return n;
    }
  }
  return -1;
}

void Inserta(char *FileNameA, char *FileNameB)
{
  HANDLE hFileA = CreateFile(FileNameA, GENERIC_READ | GENERIC_WRITE, 0, NULL, OPEN_EXISTING, FILE_FLAG_WRITE_THROUGH, 0);
  if(hFileA!=(HANDLE)(-1)){
    HANDLE hFileB = CreateFile(FileNameB, GENERIC_READ, 0, NULL, OPEN_EXISTING, FILE_FLAG_WRITE_THROUGH, 0);
    if(hFileB!=(HANDLE)(-1)){

      DWORD SizeA = GetFileSize(hFileA, 0);
      DWORD SizeB = GetFileSize(hFileA, 0);

      char* BufferA = new char[SizeA];
      char* BufferB = new char[SizeB];
      _lread((int)hFileA, BufferA, SizeA);
      _lread((int)hFileB, BufferB, SizeB);

      int IniB = Search(BufferB, "<body>", SizeB);
      if(IniB!=-1){
        int FinB = Search(BufferB+IniB, "</body>", SizeB)+IniB;
        if(FinB!=-1){
          int IniA = Search(BufferA, "<body>", SizeA);
          if(IniA!=-1){
            int FinA = Search(BufferA+IniA, "</body>", SizeA)+IniA;
            if(FinA!=-1){
              _llseek((int)hFileA, FILE_BEGIN, 0);
              SetEndOfFile(hFileA);
              _lwrite((int)hFileA, BufferA, IniA);
              _lwrite((int)hFileA, BufferB + IniB, FinB-IniB);
              _lwrite((int)hFileA, BufferA + FinA, SizeA-FinA);
            }
          }
        }
      }
      delete [] BufferA;
      delete [] BufferB;
    }
    CloseHandle(hFileB);
  }
  CloseHandle(hFileA);
}

Saludos.

Herramientas	Buscar en Tema
Mostrar Versión Imprimible Enviar por Correo	Buscar en Tema: Búsqueda Avanzada
Desplegado
Cambiar a Modo Lineal Cambiar a Modo Hibrido Modo Hilado

Temas Similares
Tema	Autor	Foro	Respuestas	Último mensaje
Intercalar Forms	Jorge Hernández	Varios	4	30-04-2014 18:58:12
intercalar digitos	luisito2011	Varios	6	04-12-2012 18:38:57
intercalar paginas con fastreport	mferrero	Impresión	1	26-02-2008 13:36:54
Intercalar Variable en SQL...	foetus	SQL	7	09-07-2007 02:21:28
Como puedo grabar texto en un Archivo de Texto sin Sobreescribir????	AGAG4	Varios	12	08-11-2005 22:53:00