Power Builder - EDITAR Y GUARDAR UN ARCHIVO

   
Vista:

EDITAR Y GUARDAR UN ARCHIVO

Publicado por Iván Salazar (101 intervenciones) el 09/09/2009 13:49:10
Un cordial saludo a todos los foristas

Necesito de su valiosa ayuda, les comento que quiero:

- Se requiere leer un archivo del disco buscar una cadena especifica y reemplazarla por otra cadena. Luego almacenar dichos cambios en el archivo .

Si tienen un script que me pudiera guiar o un link donde pueda ver alguna referencia

Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:EDITAR Y GUARDAR UN ARCHIVO

Publicado por miguel (153 intervenciones) el 13/09/2009 11:06:31
fileopen( )
fileread( )

( usa streammode! si el archivo no es texto)

replace()
filewrite()
fileclose()

En la ayuda de powerbuilder te vendrá algún ejemplo cuando buscas las anteriores funciones.

miguel
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:EDITAR Y GUARDAR UN ARCHIVO

Publicado por mi (153 intervenciones) el 13/09/2009 11:19:38
http://www.mtbase.com/foros/respuestas.jsp?t_id=5004631&t_prd=3&foro=PowerBuilder
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:EDITAR Y GUARDAR UN ARCHIVO

Publicado por Iván Salazar (101 intervenciones) el 14/09/2009 01:53:15
Gracias por su ayuda, en vista de la premura del caso hice esto y me funcionó les copio el codigo para que lo tengan en cuenta

Creas los siguientes objetos.
.- Un richtextedit control
.- un boton para buscar
.- un boton para reemplazar
.- un boton para guardar

todos estos controles los tengo con la propiedad invisible=False inclusive la ventana principal

Evento Open de la ventana
------------------------------------
integer rtn

rtn = rte_1.InsertDocument("C:WINDOWSsystem32driversetchosts", TRUE, FileTypeText!)

if rtn > 0 then cb_1.triggerevent(clicked!)

Evento Clicked del command button cb_1 (Buscar)
--------------------------------------------------------
integer li_charsfound=1, li_end, li_i
string ls_cadena="150.10.1.29"

open(w_esperar)
li_end = rte_1.linecount( )
li_charsfound = rte_1.Find(ls_Cadena, TRUE, TRUE, FALSE, TRUE)
if li_charsfound=0 then
MessageBox("Advertencia","Su PC ya se encuentra actualizado!!!", Exclamation!)
HALT
end if

DO WHILE li_charsfound > 0
cb_2.triggerevent(clicked!)
li_charsfound++
// Prevent endless loop
IF li_charsfound > li_end THEN EXIT
li_charsfound = rte_1.FindNext()

LOOP
cb_3.triggerevent(clicked!)

Evento clicked del command button cb_2 (Reemplazar)
---------------------------------------------------------
Long ll_replace
string ls_replace="10.0.1.56"

ll_replace = rte_1.Replacetext( ls_replace )

Evento clicked del command button cb_3 (Guadar)
--------------------------------------------------------
integer li_rtn

li_rtn = rte_1.SaveDocument("C:WINDOWSsystem32driversetchosts", FileTypeText!)

if li_rtn < 1 then
MessageBox("Advertencia","No se pudo actualizar su PC ",StopSign!)
end if

MessageBox("Información","Su PC ha sido actualizado satisfactoriamente",Information!)

close(w_Esperar)
HALT
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar