Acá mi lista de comandos en órden alfabético.
VFP
|
Ejemplo
|
Windev
|
Ejemplo
|
ABS()
|
?ABS(-12.47) && Imprime 12.47
|
Abs()
|
Info(Abs(-12.47)) //Imprime 12.47
|
ALEN()
|
DIMENSION arrSemana(7)
arrSemana(1) = "Lunes"
arrSemana(2) = "Martes"
arrSemana(3) = "Miércoles"
arrSemana(4) = "Jueves"
arrSemana(5) = "Viernes"
arrSemana(6) = "Sabado"
arrSemana(7) = "Domingo"
?ALEN(arrSemana)
|
ArrayCount()
|
arrSemana is
array of string
ArrayAdd(arrSemana,"Lunes")
ArrayAdd(arrSemana,"Martes")
ArrayAdd(arrSemana,"Miércoles")
ArrayAdd(arrSemana,"Jueves")
ArrayAdd(arrSemana,"Viernes")
ArrayAdd(arrSemana,"Sabado")
ArrayAdd(arrSemana,"Domingo")
Info(ArrayCount(arrSemana)) // Imprime 7
|
ALLTRIM()
|
LOCAL sNombre
?SNombre = "
Irwin " &&Sin
espacios
|
NoSpace()
|
sNombre is
string
sNombre = " Irwin
"
Info(NoSpace(sNombre)) //Sin espacios
|
AT()
|
?AT("won","What a wonderful World") && Imprime 8
|
Position()
|
Info(Position("What
a wonderful World", "won", 1, FromBeginning)) // Imprime 8
|
COPY FILE
|
COPY FILE "c:\desarrollo\test.xml"
TO
"c:\desarrollo\temp\"
|
fCopyFile()
|
fCopyFile("c:\desarrollo\test.xml","c:\desarrollo\temp\")
|
DATE()
|
?DATE() &&
Imprime 07/25/18
|
Info(DateToString(DateSys())) //Imprime 25/07/2018
Info(DateToString(Today())) //Imprime 25/07/2018
|
|
DAY()
|
?DAY(DATE()) &&
Imprime 25
|
dFecha..Day
|
dHoy is
Date
dHoy = Today()
Info(dHoy..Day) // Imprime 25
|
DELETE
|
DELETE FILE "c:\desarrollo\temp\test.txt"
|
fDelete()
|
fDelete("c:\desarrollo\temp\test.txt")
|
DIRECTORY()
|
?DIRECTORY("C:\DESARROLLO") &&
Imprime .T.
|
fDirExist()
|
Info(fDirExist("c:\desarrollo")) //Imprime 1 (True)
|
DTOC()
|
?DTOC(DATE()) &&
Imprime 07/25/18
|
DateToString()
|
DateToString(Today()) //Imprime 25/07/2018
|
EMPTY()
|
LOCAL sVar1 AS STRING
sVar1 = ""
?EMPTY(sVar1)
|
~= " "
|
sVar1 is
string
sVar1 = ""
Info(sVar1 ~= "") // Imprime 1 (True)
|
FOPEN() / FCLOSE()
|
LOCAL nHandle AS INTEGER
LOCAL sLinea AS STRING
nHandle = FOPEN("c:\desarrollo\test.json",12) && 12 ReadWrite
IF nHandle > 0 THEN
sLinea = FGETS(nHandle)
?sLinea
ENDIF
FCLOSE(nHandle)
|
fOpen()/fClose()
|
nHandle is
int
sLinea is
string
nHandle = fOpen(“c:\desarrollo\test.json”,foReadWrite)
IF nHandle <> -1 THEN
LOOP
sLinea = fReadLine(nHandle)
Info(sLinea)
IF sLinea = EOT THEN
BREAK
END
END
END
fClose(nHandle)
|
GETDIR()
|
?GETDIR("C:\DESARROLLO","Listado","Seleccione
Directorio")
|
fSelectDir()
|
fSelectDir("c:\desarrollo","Seleccione Directorio","Listado")
|
GETWORDNUM()
|
LOCAL sVar1 AS string
sVar1 = "Peras,
Manzanas, Piñas"
?GETWORDNUM(sVar1,2,",")
RETURN
|
StringSplit()
|
sVar1 is
string
sVar1 = "Peras, Manzanas,
Piñas"
arrFruits is
array of string = StringSplit(sVar1,",",ccNormal)
Info(arrFruits[2]) // Imprime manzanas
RETURN
|
GOMONTH()
|
?GOMONTH(DATE(),2) &&
Imprime 09/25/18
|
dFecha..Month
|
dFecha is
Date = Today()
dFecha..Month += 2
Info(DateToString(dFecha)) // Imprime 25/09/2018
|
INPUTBOX()
|
LOCAL sNombre AS STRING
sNombre = INPUTBOX("Cómo te llamas","Solicitar Nombre")
?sNombre && Imprime "Irwin"
|
Input()
|
sNombre is
string
Input("Cómo te llamas",sNombre)
Info(sNombre) // Imprime "Irwin"
|
INT()
|
?INT(12.78) &&
Imprime 12
|
IntegerPart()
|
Info(IntegerPart(12.78)) // Imprime 12
|
JUSTEXT()
|
?JUSTEXT("c:\desarrollo\test.txt") &&
Imprime txt
|
fExtractPath()
|
Info(fExtractPath("c:\desarrollo\test.txt",fExtension)) // Imprime .txt
|
JUSTDRIVE()
|
?JUSTDRIVE("c:\desarrollo\test.txt") &&
Imprime c:
|
fExtractPath()
|
Info(fExtractPath(“c:\desarrollo\test.txt”,fDrive)) // Imprime C:
|
JUSTPATH()
|
?JUSTPATH("c:\desarrollo\test.txt") &&
Imprime c:\desarrollo
|
fExtractPath()
|
Info(fExtractPath("c:\desarrollo\test.txt",fDirectory)) // Imprime \desarrollo\
|
JUSTFNAME()
|
?JUSTFNAME("c:\desarrollo\test.txt") &&
Imprime test.txt
?JUSTSTEM("c:\desarrollo\test.txt") &&
Imprime test
|
fExtractPath()
|
Info(fExtractPath("c:\desarrollo\test.txt",fFileName)) // Imprime test
|
LEFT()
|
?LEFT("IRWIN",2) &&
Imprime IR
|
LEFT()
|
Info(Left("IRWIN",2)) // Imprime IR
|
LEN()
|
?LEN("IRWIN") &&Imprime
5
|
Length()
|
Info(Length("IRWIN")) // Imprime 5
|
LOWER()
|
?LOWER("IRWIN") &&
Imprime Irwin
|
LOWER()
|
Info(Lower("IRWIN")) // Imprime irwin
|
LTRIM()
|
?LTRIM(" IRWIN") &&
Imprime "IRWIN"
|
NoSpace()
|
Info(NoSpace(" IRWIN",sscLeft)) // Imprime "IRWIN"
|
MD
|
MD "c:\desarrollo\holamundo123"
&&
Crea el directorio
|
fMakeDir()
|
fMakeDir("c:\desarrollo\holamundo123") // Crea el directorio
|
MESSAGEBOX()
|
MESSAGEBOX("Hola
Mundo. Info Default")
|
Info()
|
Info("Hola Mundo soy un Info!")
|
MOD()
|
?MOD(10,2) &&
Imprime 0
|
modulo()
|
Info(modulo(10,2)) // Imprime 0
|
MONTH()
|
?MONTH(DATE()) &&
Imprime 7
|
dFecha..Month
|
dFecha is
Date = Today()
Info(dFecha..Month) //Imprime 7
|
OCCURS()
|
?OCCURS("I","IRWIN") &&
Imprime 2
|
StringCount()
|
Info(StringCount("IRWIN","I")) // Imprime 2
|
PADL()
|
?PADL("IRWIN", 8, '=') &&
Imprime ===IRWIN
|
No hay comando
|
// No existe un comando
igual. Usar esta UDF
FUNCTION PADL(LOCAL InputString is
string, PadCharacter is character, TargetLength is
int)
IF TargetLength > Length(InputString) THEN
InputString = RepeatString(PadCharacter,TargetLength-Length(InputString)) + InputString
END
RESULT InputString
|
REPLICATE()
|
?REPLICATE("=",5) &&
Imprime =====
|
RepeatString()
|
Info(RepeatString("=",5)) // Imprime =====
|
RIGHT()
|
?RIGHT("IRWIN",3) &&
Imprime WIN
|
RIGHT()
|
Info(Right("IRWIN",3)) // Imprime WIN
|
ROUND()
|
?ROUND(12.573,2) &&
Imprime 12.57
|
ROUND()
|
Info(Round(12.573,2)) //Imprime 12.57
|
STR()
|
?STR(123) &&
Imprime "123"
|
NumToString()
|
Info(NumToString(123)) // Imprime "123"
|
STRTRAN()
|
?STRTRAN("IRWIN","I","1") &&
Imprime 1RW1N
|
REPLACE()
|
Info(Replace("IRWIN","I","1")) // Imprime 1RW1N
|
SUBSTR()
|
?SUBSTR("IRWIN",3,3) &&
Imprime WIN
|
Middle()
|
Info(Middle("IRWIN",3,3)) //Imprime WIN
|
No hay comentarios:
Publicar un comentario