Amiguinhos,
Nada é impossivel com xBase mas sim passÃvel.
// Sample directives to help translation of VBScript.
// WARNING: Line continuation _ is NOT supported.
// : LOOP becomes END so don't mix VBScript support with XBScript
// code that uses LOOP!
// : VBScript Function call without () is NOT supported.
#command ' <*x*> =>
#command Dim <vars,...> => Local <vars>
#command Set <!id!> = <exp> => <id> := <exp>
#command If <cond> Then => IF <cond>
#command Loop => End
#translate .<!id!> => :<id>
#translate Not => !
#translate And => .AND.
#translate Or => .OR.
#translate MsgBox <exp>[.<more>] => MessageBox( 0, <exp>[:<more>], "XBScript", 0 )
#translate Nothing => NIL
//#translate _ => ;
#translate & => +
#define adCmdTable 0
/* ****************************** codigo exemplo ****************************** *
' Vbscript comment.
Dim cn
Dim rs
Set cn = CreateObject( "ADODB.Connection" )
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.3.51;" ;
& "User Id=Admin; Data Source=ado.mdb"
cn.Open
Set rs = CreateObject( "ADODB.Recordset" )
rs.Open( "Names", cn, 0, 1, 2 )
do while not rs.eof()
MsgBox rs.Fields( "First" ).Value
rs.MoveNext()
loop
rs.Close
Set rs = Nothing
'cn.Close
Set cn = Nothing
* ****************************** codigo exemplo ****************************** */
Usando
xcommand e
#translate você pode simular alguns comandos e funções em outras linguagens.
Recentemente o
José M Quintas também falou sobre o assunto.
Quando eu colecionava revistas de programação importadas com Clipper Advisor encontrei uma reportagem onde um programador criou um .CH com todos os comandos do Cobol, tornando possivel se programar nesta linguagem e compilar com Clipper.
Basta um esmero.