Power Builder - Leer archivo de texto

 
Vista:

Leer archivo de texto

Publicado por William (27 intervenciones) el 21/01/2005 16:39:30
Hola:
Mi consulta es si hay alguna forma de abrir un archivo de texto y leerlo linea por linea .Necesito hacer esto para actualizar una BD.
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:Importar datos de archivo texto a DW

Publicado por Oscar (1178 intervenciones) el 21/01/2005 18:03:07
En el foro se explicó un método para importar un archivo de excel a un DW; pero también funciona para archivos de texto. Es decir:

1. En tu BD actual, crea un objeto DW, con los mismos campos y tipo de dato de las columnas que posee el archivo de texto.
2. Asociá ese objeto DW a tu control DW en tu ventana.
3. En un botón de la ventana donde está el dw_1. Pegá lo siguiente:

string ls_pathname, ls_filename
long ll_rc
oleobject loo_excel

IF GetFileOpenName ( "Open File", ls_pathname, ls_filename, &
"TXT","Text Files(*.txt),*.txt" ) < 1 THEN Return

loo_excel = CREATE OLEObject
loo_excel.ConnectToNewObject( "excel.application" )
loo_excel.visible = false
loo_excel.workbooks.open( ls_pathname )
loo_excel.ActiveCell.CurrentRegion.Select()
loo_excel.Selection.Copy()
ll_rc = dw_1.ImportClipBoard ( 2 )
ClipBoard('')
loo_excel.workbooks.close()
loo_excel.disconnectobject()
DESTROY loo_excel
//--------------------Fin----------------

Nota: La expresión:
ll_rc = dw_1.ImportClipBoard ( 2 )

Significa que te importará a partir de la segunda línea del archivo de texto (es decir, no importará los encabezados de las columnas de tu archivo de texto: sólo los datos); pero si tu archivo de texto, no posee encabezados, se supone que debes usar:
ll_rc = dw_1.ImportClipBoard ( )
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