VBScript TO HMG

[andyglezl]

Hola
Les dejo este link donde hay ejemplos de VBScript que se pueden convertir a HMG (algunos) sin mucho trabajo.
( ó utlizarlos como están)
Espero les sirva...
---------------------------------------------------------------------------------------------------------------------------
Hello
Here I leave this link where there are examples of VBScript that can be converted to HMG (some) without much work.
(Or use them as they are)
I hope you serve them ...


http://www.robvanderwoude.com/wshexamples.php


Other...

http://www.ericphelps.com/scripting/samples/

[mol]

Thx for sharing

[serge_girard]

Thanks Andy !
Serge

[serge_girard]

Hello,

Here is (first) VBScript to HMG. It converts DOCx to RTF and HTML.
Based upon /samples/ole/demo.prg + Source code for wsaveas.vbs

VBS to HMG is making fun (and better and nicer)

Serge

[Pablo César]

Gracias Andrés.

Thank you Serge.

Specifcally I like to think VBScript in Harbour intead of HMG or VBScript in xBase (programming language) as supposed to be... (IMO).

[serge_girard]

Here another one: readexcel file without excel in to TXT:
Serge

[huiyi_ch]

Thank you Serge.

[EduardoLuis]

Hi Serge:

Wow, your investigation is excellent.-
First attemp with doc2rtf successfull.-
Thanks for share and iluminate us.-
With regards.
Eduardo

[serge_girard]

Eduardo, you're welcome!

Now I found a problem concerning reading XLS files. Maybe someone knows a solution?

I want to retrieve all sheetnames from an Excel. Default name is 'Sheet1' but this may be changed or added. In my language default is 'Blad1'.
I use this piece of code (not working) to retrieve all names.

Code: Select all

objRS  := TOleAuto():New('ADODB.Recordset')
oRS := objRS:OpenSchema(adSchemaTables)
Do While .Not. oRS:EOF() 
   sSheetName := oRS:Fields("table_name"):Value()
   ? sSheetName
   // do somethng with the sSheetName
   oRS:MoveNext()
enddo

Anybody knows how to get the sheetnames?

Serge

[mol]

Hello Serge!
Your sample does not work on computer without excel installed...