FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour tengo la siguiente duda TTxtFile ayuda
Posts: 111
Joined: Sun Aug 13, 2006 07:28 PM
tengo la siguiente duda TTxtFile ayuda
Posted: Sat Jun 16, 2007 01:09 AM

Utilizo esta clase, pero alquerer modificar un archivo XML, me pone espacios en blanco o tabuladores, lo presento de la siguiente forma...

archivo original

<?xml version='1.0'?>
<person dataSource="144" dataSourceNbr="144">
<active>Y</active>
<faces>
<face>
<missing>N</missing>
<sample>Face_Ambient_Gallery/fm09351732.jpg</sample>
</face>
</faces>
</person>

archivo modificado con la clase TTxtFile

me pone espacion en datasource y por consiguiente me modifica la estructura, y tambien Face_Ambient_Gallery

<?xml version='1.0'?>
<person dataSource="115" dataSourceNbr="115">
<active>Y</active>
<faces>
<face>
<missing>N</missing>
<sample> Face_Ambient_Gallery/amo6709f.jpg</sample>
</face>
</faces>
</person>

si alguien tiene una solucion por favor ayudame es algo urgente tengo que modificar 10,000 archivos para subir a un servidor

Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
tengo la siguiente duda TTxtFile ayuda
Posted: Sat Jun 16, 2007 09:09 AM

Que modificaciones tienes que hacer en los ficheros ? Quizá sea más simple hacer los cambios sobre los archivos en memoria usando MemoRead(), StrTran() y MemoWrit()

Al estar en 32 bits puedes manejar archivos muy grandes en memoria (hasta de 4 gigas)

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 111
Joined: Sun Aug 13, 2006 07:28 PM
tengo la siguiente duda TTxtFile ayuda
Posted: Mon Jun 18, 2007 04:55 PM
gracias port contestar

en primera hice un proceso que me generara XML dependiendo de una ruta, en donde tengo fotos,

quise crear el archivo XML pero al subirlo al servidor no me lo permitio, este archivo tiene los elementos que me pedine para poder subir informacion a una base de datos, lo cuiroso es que el arcihovo de ejemplo que viene acompañado de esta aplicacion me lo sube, la verdad cuando me mando el error el servisor al subir mi informacion no me sice nada solo n procesos fallados.

la alternativa que tuve fue modificar este archivo lo cual si me lo sube pero el incomveniente que tengo es que me archivo original me lo modifica, por ejemplo cuando modifico algun valor del archivo este me pone un tabulador y queda asi

<?xml version='1.0'?>
<person dataSource="215" dataSourceNbr="215">
<active>Y</active>
<faces>
<face>
<missing>N</missing> <sample>
Face_Ambient_Gallery/AAAA591121GAA.jpg</sample>
</face>
</faces>
</person>

el problema no es si fuera uno, eso depende de las fotos que me den, que pueden ser mas 100,000 de imagenes tendria que modificar 100,000 archivos

estos son los tag que tengo que modificar
<person dataSource="215" dataSourceNbr="215">
<sample>Face_Ambient_Gallery/AAAA591121GAA.jpg</sample>

utilizo la clasee TTxtFile(),

que me estara haciendo falta para que los campos me los respete

nruta := "Face_Ambient_Gallery/" + ltrim( aNam[nFoto] )
nxml := TTxtFile():New( ".\XML_1Face_2Fingers_Gallery\" + LTRIM(str(nCou))+ ".xml" )

IF nxml:Seek ( "dataSource" )
nxml:RepLine( 'dataSource="' + LTRIM(str(nJjjj)) + '" dataSourceNbr="' + LTRIM(str(nJjjj)) + '">' )
END IF

IF nxml:Seek ( "Face_Ambient_Gallery/" )
nxml:RepLine( "Face_Ambient_Gallery/" + alltrim(aNam[i]) + "</sample>" )
END IF

este es parte del codigo que utilizo para replazar estas lineas, hay alguna forma mejor

saludos
Posts: 44162
Joined: Thu Oct 06, 2005 05:47 PM
tengo la siguiente duda TTxtFile ayuda
Posted: Mon Jun 18, 2007 05:10 PM

Donde pone el tabulador ?

No se ve en el código que has puesto. Márcalo de alguna forma para que se vea, gracias

Has probado a hacer StrTran( cTexto, Chr( 9 ), "" ) ?

regards, saludos

Antonio Linares
www.fivetechsoft.com
Posts: 336
Joined: Wed May 16, 2007 09:40 PM
Re: tengo la siguiente duda TTxtFile ayuda
Posted: Mon Aug 30, 2010 10:58 PM

alguien sabe como usar el ,![CDATA[]] al crear archivos xml, agradeceria su ayuda

Fivewin-Xharbour 24.09, Iquique, Chile

Continue the discussion