| Ver tema anterior :: Ver tema siguiente |
| Autor |
Mensaje |
Isa1976
Lt Cmdr
Registrado: 23 Nov 2005Mensajes: 104
|
 Publicado: Mie 11 Jul, 2007 6:08 pm Asunto: Extraer texto plano de un OleContainer |
 |
|
Hola a todos!
He utilizado el componente WordApplication para poder abrir un archivo de word .doc, y extrar el texto para pegarlo en un TMemo, y funciona muy bien.
Como solo quiero eso, es decir el texto ASCII de los documentos, probé a cargar una hoja de calculo .xls en un OleContainer y se cargó bién, pero no se como extraer el texto plano de un OleContainer.
He probado esto, pero nada: | Código: | Variant word = GetActiveOleObject("Word.Application");
Variant doc = word.OlePropertyGet("ActiveDocument");
Memo1->Lines->Text = doc.OlePropertyGet("Content").OlePropertyGet("Text"); |
Muchas gracias! |
|
| Volver arriba |
|
 |
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Jue 12 Jul, 2007 6:30 pm Asunto: |
|
|
En el caso de Word:
| Código: | OleContainer1->DoVerb(ovShow);
Variant doc = OleContainer1->OleObject;
Memo1->Lines->Text = doc.OlePropertyGet("Content").OlePropertyGet("Text");
OleContainer1->Close(); |
y en el caso de Excel (tendrás que ir leyendo celda por celda):
| Código: | OleContainer1->DoVerb(ovShow);
Variant hoja = OleContainer1->OleObject.OlePropertyGet("ActiveSheet");
String valor = hoja.OlePropertyGet("Range", "B2").OlePropertyGet("Value");
OleContainer1->Close();
ShowMessage(valor); |
también puedes leer varias celdas a la vez:
| Código: | OleContainer1->DoVerb(ovShow);
Variant hoja = OleContainer1->OleObject.OlePropertyGet("ActiveSheet");
Variant array = hoja.OlePropertyGet("Range", "A1:C3").OlePropertyGet("Value");
OleContainer1->Close();
for (int x = array.ArrayLowBound(1); x <= array.ArrayHighBound(1); x++)
for (int y = array.ArrayLowBound(2); y <= array.ArrayHighBound(2); y++)
ShowMessage(array.GetElement(x, y)); |
|
|
| Volver arriba |
|
|
Isa1976
Lt Cmdr
Registrado: 23 Nov 2005Mensajes: 104
|
| Publicado: Jue 12 Jul, 2007 11:20 pm Asunto: |
|
|
Hola,
Muchas gracias _Leo por tu respuesta.
Tengo una duda acerca de el código que has puesto. Yo nunca he trabajado con hojas de excel, pero el esta linea: | Código: | Variant array = hoja.OlePropertyGet("Range", "A1:C3").OlePropertyGet("Value"); |
supongo que estamos diciendo las celdas que queremos ver (igual estoy diciendo alguna tonteria ; )), el caso es que me gustaria que me devolviese el contenido de todas las celdas del documento, pero no se como decirle eso al OleContainer... tal como está ahora, solo me devuelve 3 filas de datos.
Un saludo y gracias. |
|
| Volver arriba |
|
|
_Leo
Site Admin
Registrado: 11 Ago 2002Mensajes: 1875Ubicación: Lanzarote - Islas Canarias (España)
|
| Publicado: Vie 13 Jul, 2007 12:37 am Asunto: |
|
|
| Código: | OleContainer1->DoVerb(ovShow);
Variant hoja = OleContainer1->OleObject.OlePropertyGet("ActiveSheet");
Variant rango = hoja.OlePropertyGet("Cells", 1 /*fila*/, 1 /*columna*/);
Variant ultimaCelda = rango.OleFunction("SpecialCells", 11 /*xlCellTypeLastCell*/);
int ultimaFila = ultimaCelda.OlePropertyGet("Row");
int ultimaColumna = ultimaCelda.OlePropertyGet("Column");
rango = rango.OlePropertyGet("Resize", ultimaFila, ultimaColumna);
Variant array = rango.OlePropertyGet("Value");
OleContainer1->Close();
// Como ejemplo mostramos el contenido del array en un TMemo
for (int x = array.ArrayLowBound(1); x <= array.ArrayHighBound(1); x++)
{
String linea = "";
for (int y = array.ArrayLowBound(2); y <= array.ArrayHighBound(2); y++)
linea += String(array.GetElement(x, y)) + " - ";
Memo1->Lines->Append(linea);
} |
|
|
| Volver arriba |
|
|
Isa1976
Lt Cmdr
Registrado: 23 Nov 2005Mensajes: 104
|
| Publicado: Vie 13 Jul, 2007 11:47 pm Asunto: |
|
|
Perfecto!
MUCHAS GRACIAS |
|
| Volver arriba |
|
|
|
FAQ
Buscar
Miembros
Grupos de Usuarios
Registrarse
Perfil
Entra para ver tus mensajes privados
Entrar
