RE:Importar datos de archivo texto a DW
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 ( )