Power Builder - Manipulacion de Diskette en Power

Quisiera aprender como grabar información de una DW a un archivo plano y luego recuperaldo pero desde un diskette, el que me pueda ayudar se lo agradeceria mucho.

Att. José

Hola Jose:

Mira, para guardar un datawindows en formato tipo texto es el siguiente:

SaveAs ( datawindow,'A:\archivo.txt',Text!, false)

El operador FALSE es para no guardar los registros con encabezado porque al recuperalos deben estar sin encabezado o PB te mandara un error...

Para recuperar los archios es la siguiente:

Importfile ( datawindow, 'A:\archito.txt )

El IMPORTFILE te devuelve el número de registros recuperados ahora bien, si deseas recuperar de un numero a cierto numero de registros es el siguiente:

Primero verificas si existe el archivo:

if Not FileExists ( 'A:\archivo.txt ) then
MessageBox('¡ Aviso !','No existe el archivo a recuperar...',StopSign! )
return
end if

/* importa el archivo a tu datawindow */

ImportFile(datawindow, "D:\EMPLOYEE.TXT",2, 30, 3, 8, 5)

esto quiere decir que se recuperara del registro 2 al 30 y desde la columna 3 hasta la columna 8 empezando de la columna 5..

si quieres recuperar todos los registros sin importar la columna y numero de registros solo debes hacer esto:

ImportFile(datawindow, "D:\EMPLOYEE.TXT")

y listo...

Espero te ayude amigo...

Suerte,
Antonio

Otra forma de "despellejar un gato".

* Guardar un DW en archivo plano
Puedes usar SaveAsAscii. La ventaja es que te reconoce: crosstabs, grupos y computed fields.

Ejemplo:
//Separamos con TAB y los valores no estarán encerrados entre comillas
dw_1.saveasascii("C:\mitexto.txt","~t","")

Nota: Más detalles ve la ayuda.

* Mostrar varios archivos de un disquete y elegir uno
1. En tu ventana insertá: lb_1, st_filepath y un botón.

2. Script del botón
lb_1.DirList("a:\*.txt", 32, st_filepath)

3. Evento DoubleClicked del lb_1
string backslash
if (len(st_filepath.text) > 0 ) and &
(right(st_filepath.text, 1) <> "\") then backslash = "\"
MessageBox("Hola", "Seleccionaste el archivo " &
+st_filepath.text + backslash + lb_1.selecteditem())
//-----Fin-------

Les agradezco mucho su colaboración.

Att. Jose