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

[Busmatic_wpb]

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

[Armando]

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

[cnavarro]

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: Select all  Expand view

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: Select all  Expand view

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


 

[Busmatic_wpb]

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