tengo la siguiente duda TTxtFile ayuda

tengo la siguiente duda TTxtFile ayuda

Postby tomafa » Sat Jun 16, 2007 1: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
tomafa
 
Posts: 111
Joined: Sun Aug 13, 2006 7:28 pm
Location: ....

Postby Antonio Linares » Sat Jun 16, 2007 9: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42078
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Postby tomafa » Mon Jun 18, 2007 4: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
tomafa
 
Posts: 111
Joined: Sun Aug 13, 2006 7:28 pm
Location: ....

Postby Antonio Linares » Mon Jun 18, 2007 5: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
User avatar
Antonio Linares
Site Admin
 
Posts: 42078
Joined: Thu Oct 06, 2005 5:47 pm
Location: Spain

Re: tengo la siguiente duda TTxtFile ayuda

Postby elmoiquique » Mon Aug 30, 2010 10:58 pm

alguien sabe como usar el ,![CDATA[]] al crear archivos xml, agradeceria su ayuda
Fivewin-Xharbour 11.07, Iquique, Chile
elmoiquique
 
Posts: 310
Joined: Wed May 16, 2007 9:40 pm
Location: Region de Ñuble, Chile


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 30 guests