MEMOWRIT() TENGO UN PROBLEMA alquien que me ayude please..

Board index FiveWin para Harbour/xHarbour MEMOWRIT() TENGO UN PROBLEMA alquien que me ayude please..

Posts: 162

Joined: Wed Feb 22, 2017 02:19 AM

MEMOWRIT() TENGO UN PROBLEMA alquien que me ayude please..
Posted: Fri Apr 06, 2018 12:26 AM

Estimados listeros no logro crear una achivo plano con las siguientes lineas..Estoy medio viejo,, era eso.

function aAl()
local linea:=0,cFile:="SITU.KLM"

linea1:='<?xml version="1.0" encoding="UTF-8"?>'
linea2:='<kml xmlns="http://earth.google.com/kml/2.2">'
linea3:='<Document>'
linea4:=' <Placemark>'
linea5:=' <name>Carro Oscar</name>'
linea6:=' <Point><coordinates>-80.14381833,26.654911670</coordinates></Point>'
linea7:=' </Placemark>'
linea8:='</Document>'
linea9:='</kml>'

For i = 1 to 9
ST:=MEMOWRIT( cFile,linea+alltrim(str(i)),.f. )
next
return...
Deberia de crearme un archivo plano llamado SITU.KML, si lo crea pero solo con el ultimo dato de liena9, algo mas habra que incluir como un caracter especial ?
Agradeceria pues esto tan simple me tiene amartado

Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide

Armando

Posts: 3358

Joined: Fri Oct 07, 2005 08:20 PM

Re: MEMOWRIT() TENGO UN PROBLEMA alquien que me ayude please..
Posted: Fri Apr 06, 2018 12:50 AM

Busmatic:

Seguramente es porque cada MemoWrite escribe sobre el mismo archivo
y sustituye a lo anteriormente escrito, por eso te deja solo la última línea.

Podrías usar funciones de bajo nivel (FCreate(), FOpen(), FWrite(), etc)

Saludos

SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: MEMOWRIT() TENGO UN PROBLEMA alquien que me ayude please..
Posted: Fri Apr 06, 2018 01:26 AM

Hay muchas formas de hacerlo, entre otras las que te aconseja el compañero, pero si te sirve, yo lo haria asi intentando ser lo más fiel posible a tu lógica

Code (fw): Select all Collapse

function aAl()
local alineas := Array( 9 )
local cFile:="SITU.KLM"
local cString  := ""

alineas[1]:='<?xml version="1.0" encoding="UTF-8"?>'
alineas[2]:='<kml xmlns="http://earth.google.com/kml/2.2">'
alineas[3]:='<Document>'
alineas[4]:=' <Placemark>'
alineas[5]:=' <name>Carro Oscar</name>'
alineas[6]:=' <Point><coordinates>-80.14381833,26.654911670</coordinates></Point>'
alineas[7]:=' </Placemark>'
alineas[8]:='</Document>'
alineas[9]:='</kml>'

For i = 1 to Len( aLineas )
   cString  += alineas[ i ] + CRLF
next
ST  :=MEMOWRIT( cFile, cString,.f. )
return st

o asi

Code (fw): Select all Collapse

function aAl()
local alineas  := {}
local cFile     :="SITU.KLM"
local cString  := ""

AAdd( alineas,  '<?xml version="1.0" encoding="UTF-8"?>' )
AAdd( alineas, '<kml xmlns="http://earth.google.com/kml/2.2">' )
AAdd( alineas, '<Document>' )
AAdd( alineas, ' <Placemark>' )
AAdd( alineas, ' <name>Carro Oscar</name>' )
AAdd( alineas, ' <Point><coordinates>-80.14381833,26.654911670</coordinates></Point>' )
AAdd( alineas, ' </Placemark>' )
AAdd( alineas, '</Document>' )
AAdd( alineas, '</kml>' )

For i = 1 to Len( aLineas )
   cString  += alineas[ i ] + CRLF
next
ST  :=MEMOWRIT( cFile, cString,.f. )
return st

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces

Busmatic_wpb

Posts: 162

Joined: Wed Feb 22, 2017 02:19 AM

Re: MEMOWRIT() TENGO UN PROBLEMA alquien que me ayude please..
Posted: Fri Apr 06, 2018 02:13 AM

Muchas Gracias estimado , si ya sabia que algo habia olvidado..
Se te agradece tu tiempo ..
Oscar Chacon

Regards.
S.I.T.U.
Sistemas Inteligentes de transporte urbano
http://www.situcr.com
oscarchacon@Situcr.com
Desarrollos BA4/B4j androide

FiveTech Support Forums

Continue the discussion