Para el ejemplo crea un archivo INI llamado "archivo.ini" en c: y agrégale los siguientes datos:

[RUTADB]
Directorio =C:MiProgramaDB

Ahora si desde VFP quisiéramos conocer el valor almacenado en la entrada Directorio deberíamos hacerlo así:

? LeerIni("RutaDB","Directorio","c:archivo.ini")

Function LeerIni(cSection, cEntry, cINIFile)

LOCAL cDefault, cRetVal, nRetLen
cDefault = ""
cRetVal = Space(255)
nRetLen = LEN(cRetVal)

DECLARE integer GetPrivateProfileString IN WIN32API ;
STRING cSection, String
cEntry, ;
STRING cDefault, STRING @cRetVal, ;
INTEGER nRetLen, STRING cINIFile

nRet = GetPrivateProfileString(cSection, cEntry, cDefault, ;
@cRetVal, nRetLen, cINIFile)
Return Left(cRetVal, nRetLen)
EndFunc

#Define xlShiftDown -4121
#Define xlShiftToLeft -4159
#Define xlShiftToRight -4161
#Define xlShiftUp -4162
 
oExcel = Createobject("Excel.Application")
oExcel.Visible= .T.
oBook = oExcel.WorkBooks.Add

oExcel.Cells(1,1).Value= "A"
oExcel.Cells(1,2).Value=
"B"
oExcel.Cells(1,3).Value= "C"
oExcel.Cells(1,4).Value= "D"
oExcel.Cells(1,5).Value= "E"

oBook.ActiveSheet.Columns("C:C").Select
* oBook.ActiveSheet.Columns("C:AB").Select

oExcel.Selection.Delete(xlShiftToLeft)

oExcel.Quit()
oExcel = Null
 

? QuitaEspacio("Esta   es una  prueba")

Function QuitaEspacio(cCadena)
    nCountR=Ceiling(Sqrt(Occurs(Space(1),cCadena)))

   
Return Evaluate(Replicate([STRTRAN(],;
        nCountR)+[cCadena]+;
       Replicate([,SPACE(2),SPACE(1))],nCountR))
EndFunc
 

? CursorGetProp("DATABASE","MiTabla")

Devolverá la ruta de la base de datos; si es una tabla libre devolverá una cadena vacía.

oCon=CreateObject("ADODB.Connection")
oCon.Open("Provider=SQLOLEDB.1;"+;
           "Integrated Security=SSPI;"+;
           "Persist Security Info=False;" +;
           "Initial Catalog=Northwind;"+;

           "Data Source=(local)")

oRst = oCon.Execute("Select * From Customers")

Local oCA As CursorAdapter
oCA=CreateObject("CursorAdapter")
oCA.DataSourceType="ADO"
oCA.CursorFill(,,,oRst)
 

Vamos a aplicar un truco visto anteriormente:

Use MiTabla1
Copy Structure Exten To c:Tabla1
Use MiTabla2

Copy Structure Exten To c:Tabla2

lOK=FileToStr("c:Tabla1.dbf")==FileToStr("c:Tabla2.dbf")

?Iif(lOK,"Iguales","Diferentes")
 
 
 
 

lIgual=(FileToStr("FileA.zip")==FileToStr("FileB.zip"))

?Iif(lIgual,"Iguales","Diferentes")

Lo único que debes hacer es entrar al MS-DOS y digitar OPENFILES.EXE

Te sugiero que digites OPENFILES ? para conocer las diferentes opciones que tiene este programita.

Public oform1
oform1=Newobject("form1")
oform1.Show
Return

Define Class form1 As Form
   Top = 12
   Left = 77
   DoCreate = .T.
   Caption = "Form1"
   Name
= "Form1"

   Add Object image1 As Image With ;
       Picture = Home(4)+"BitmapsGaugeDOME.BMP", ;
       Stretch = 2, ;
       Height = 48, ;
       Left
= 54, ;
       Top = 47, ;
       Width = 64, ;
       Name = "Image1"

   Procedure image1.Init
       This.Left=(This.Parent.Width-This.Width)/2
       
This.Top =(This.Parent.Height-This.Height)/2
   Endproc

   Procedure image1.MouseWheel
       Lparameters nDirection, nShift, nXCoord, nYCoord

        With This
           
If Sign(nDirection) = 1
               .Width = .Width* 1.1
               .Height = .Height* 1.1
           Else
               
.Width= .Width/ 1.1
               .Height = .Height/ 1.1
           Endif
           .Left=(.Parent.Width-.Width)/2

           .Top  =(.Parent.Height-.Height)/2
       Endwith
   EndProc
Enddefine


 

Declare Integer ShellExecute In shell32.Dll;
    INTEGER hndWin, String cAction, String cFileName,;

   STRING cParams, String cDir, Integer nShowWin

cFileOCX = "c:TextBox.OCX"

=ShellExecute(0,"open","REGSVR32",cFileOCX,"",1)
 

oGraf = Createobject("MSGraph.Chart.8")
ds = oGraf.Application.DataSheet
ds.Cells.Clear
oGraf.Width = 500
oGraf.Height = 500

ds.Cells(1,2).Value=
"Maria"
ds.Cells(2,2).Value= "11,20"
ds.Cells(1,3).Value= "José"
ds.Cells(2,3).Value= "15"
ds.Cells(1,4).Value= "Ana"
ds.Cells(2,4).Value
= "17"
ds.Cells(1,5).Value= "Patricia"
ds.Cells(2,5).Value= "19"
ds.Cells(1,6).Value= "Carlos"
ds.Cells(2,6).Value= "20"
ds.Cells(1,7).Value
= "Sofia"
ds.Cells(2,7).Value= "22"

With oGraf
 .ChartType = -4102
 .HasLegend = .T.
 .HasTitle = .F.
 .Legend.Font.Size
= 8
 .Legend.AutoScaleFont = .T.
 .ApplyDataLabels
 .SeriesCollection(1).DataLabels.AutoScaleFont = .T.
 .SeriesCollection(1).DataLabels.Font.Size= 8
 .SeriesCollection(1).Interior.ColorIndex = 36
 .ChartArea.Interior.ColorIndex = 2
 .PlotArea.Width= 200

 .PlotArea.Height= 200
EndWith

cFile = "c:Graf.jpg"
oGraf.Export(cFile,"JPEG")
=Messagebox("El archivo fue exportado a " + cFile)

Se busca la aplicación a través del titulo de la ventana.

Declare Integer GetActiveWindowIn Win32API

Declare Integer GetWindow In Win32API;
INTEGER HWnd,Integer nType

Declare Integer GetWindowText In Win32API ;
INTEGER HWnd,String @cText, Integer nType

Declare Integer BringWindowToTopIn Win32API ;

INTEGER HWnd

cCaption = "Calculadora" &&
nHand = IsRunning(cCaption)

If nHand = 0
* Aplicación no ejecutada
Else

* Activa la aplicación
BringWindowToTop(lnHand)
EndIf

Function IsRunning (cTitulo)
hNext = GetActiveWindow()
Do While hNext<>0
cText = Replicate(Chr(0),80)
GetWindowText(hNext,@cText,80)
If Upper(Trim(cTitulo)) $ Upper(cText)
Return hNext
EndIf
hNext = GetWindow(hNext,2)
EndDo
Return 0
EndFunc

cGif = "c:RutaImagenAnimada.gif"

Public oForm

oForm = Createobject("MiForm")
oForm.Show

Define Class MiForm As Form
   Add Object myBrowser As OleControl ;
       
with OleClass="Shell.Explorer",;
       Height=120,Width=120

    Procedure myBrowser.Refresh
       Nodefault
   EndProc

   Procedure Init
       With This.myBrowser
           .Navigate2("file://" + cGif)
           Do While .ReadyState # 4
           EndDo
           .Document.body.Scroll
= "no"
       EndWith
   EndProc
EndDefine
 

? Header() + Recsize() * Reccount() + 1

Create Cursor Datos (Nombre C(20), Fecha D)
Insert Into Datos Values("Pedro",Date())
Insert Into Datos Values("Juan",Date(2003,
05,24))
Insert Into Datos Values("Juan",Date(2005, 11,12))
Insert Into Datos Values("Milena",Date(2002, 03,18))
Insert Into Datos
Values("Pedro",Date(2005, 09,03))
Insert Into Datos Values("Pedro",Date(2005, 01,14))
Insert Into Datos
Values("Milena",Date(2004, 06,13))
Insert Into Datos Values("Milena",Date(2005, 07,05))
Insert Into Datos Values("Juan",
Date(2001, 12,26))

 
* Aquí tienes 2 formas de hacerlo

Select * From Datos t1
Where Fecha = ;
(Select Max(Fecha)From Datos t2 Where t1.Nombre == t2.Nombre)
 

Select Nombre,
Max(Fecha)From Datos Group By Nombre