Moderador: Moderadores
Código: Selecionar todos
-osg.exe
-inc
-prgflag=/l
-L\clipper5\lib
-lmylib
-lxhb
-lhbct
-lhbwin
-compr=def
-rebuild
sg.prg
sg1.prg
sg2.prg
sg3.prg
funcoes.prg
Código: Selecionar todos
Function Main()
SetMode(25,80)
Alert(cShortName("Novo Documento de texto.txt"))
Return Nil
FUNCTION cShortName ( cPath )
LOCAL cShortPathName
RETURN iif( WAPI_GetShortPathName( cPath, @cShortPathName ) > 0, cShortPathName, cPath )Código: Selecionar todos
wwmeusdoc:=alltrim(getenv("USERPROFILE")) // aqui o nome é longo
if !empty(wwmeusdoc)
if IsDirectory(wwmeusdoc+'\Meus documentos')
wwmeusdoc+='\Meus Documentos\'
elseif IsDirectory(wwmeusdoc+'\MEUSDO~1')
wwmeusdoc+='\MEUSDO~1\'
elseif IsDirectory(wwmeusdoc+'\My Documents')
wwmeusdoc+='\My Documents\'
elseif IsDirectory(wwmeusdoc+'\Desktop')
wwmeusdoc+='\Desktop\'
else
wwmeusdoc:='C:\'
endif
endif
wwmeusdoc:=cshortname(wwmeusdoc)
Código: Selecionar todos
varqsaida:=wwmeusdoc+"rel.txt" // pode ser 'REL'+horaMinSeg se quiser gerar arquivos diferentes, essa arquivo é o mesmo para onde direcionei a saida da impressora no inicio da geracao do relatorio
SET PRINTER TO &(varqsaida)
vauxc:="@ DOSPrint.exe /LngBR /del /sel2 /sel "+varqsaida
hb_run(vcomando)
Código: Selecionar todos
q_caminha_f := namecurto("c:\Meus Documentos\pasta azul\pasta marron")Código: Selecionar todos
Function NameCurto(qual)
Local ritorna,ovetor:={},ctastring:=1,nomatual:=''
ritorna:=subs(qual,1,3)
qual:=subs(qual,4)
while ctastring <= len(qual)
if subs(qual,ctastring,1) $ '/\'
aadd(ovetor,nomatual)
nomatual := ''
ctastring++
loop
end
nomatual += subs(qual,ctastring,1)
ctastring++
end
aadd(ovetor,nomatual)
ctastring := 1
while ctastring <= len(ovetor)
if len(ovetor[ctastring]) > 8 .or. ' ' $ ovetor[ctastring] // maior q 8 ou tem espaþo
havia_espac := ' ' $ ovetor[ctastring]
ovetor[ctastring] := menospaco(ovetor[ctastring])
if len(ovetor[ctastring]) <= 8 .and. !havia_espac
*
else
ovetor[ctastring] := trim(subs(ovetor[ctastring] ,1 ,6))+'~1'
end
end
ritorna += ovetor[ctastring]+'\'
ctastring++
end
ritorna := subs(ritorna,1,len(ritorna)-1)
Código: Selecionar todos
FUNCTION Test()
Local cFile := cGetFile32( "*.*", "Elija...",, "C:\", .F.,, )
? cFile, cShortName( cFile ), cShortName( cFilePath( cFile ) )
RETURN NIL
/*
* cShortName()
*/
FUNCTION cShortName( cLong )
Local cShort := Space(164) + Chr(0)
Local nBuffer := 164
Local nLen
nLen := GetSPName( cLong, @cShort, nBuffer )
cShort := Left( cShort, nLen )
RETURN cShort
// Windows Api
DLL32 STATIC FUNCTION GetSPName( lpszLongPath AS STRING, lpszShortPath AS STRING, lBuffer AS LONG ) ;
AS LONG PASCAL FROM "GetShortPathNameA" LIB "kernel32"
Código: Selecionar todos
/*
* cShortName()
*/
STATIC FUNCTION cShortName( cLong )
local cShort := Space(164) + Chr(0)
local nBuffer := 164
local nLen
nLen := GetSPName( cLong, @cShort, nBuffer )
cShort := Left( cShort, nLen )
RETURN cShort
/*
* LfnDirectory()
*/
STATIC FUNCTION LFNDirectory( cDir, cAttr )
Local aDir := {}, cPath := "", nSlash
If ( nSlash := RAt( "\", cDir ) ) > 0 .or. ;
( nSlash := RAt( "/", cDir ) ) > 0
cPath := cShortName( SubStr( cDir, 1, nSlash ) )
cDir := SubStr( cDir, nSlash + 1 )
If Empty( cPath ) // invalid short dir from long path name
Return aDir // return empty array, just like Directory()
Endif
Endif
aDir := Directory( cPath + cDir, cAttr ) // strings MUST be in OEM format
AEval( aDir, {|aFile| aFile[1] := SFN2LFN( AddPath(aFile[1],cPath) ) } )
RETURN aDir
/*
* LFnRename()
*/
STATIC FUNCTION LFnRename( cOldName, cNewName, lDeleteIfExist )
Local nRet
DEFAULT lDeleteIfExist := .T.
if !File(cOldName)
RETURN -1
endif
if lDeleteIfExist .and. File(cShortName(cNewName))
fErase(cShortName(cNewName))
endif
nRet := apiMoveFile(cOldName,cNewName)
if File(cOldName)
fErase(cOldName)
endif
RETURN nRet
// Windows Api
DLL32 STATIC FUNCTION GetSPName( lpszLongPath AS STRING, ;
lpszShortPath AS STRING, lBuffer AS LONG ) ;
AS LONG PASCAL FROM "GetShortPathNameA" LIB "kernel32"
DLL32 STATIC FUNCTION apiMoveFile(cName1 AS STRING, cName2 AS STRING) ;
AS LONG PASCAL FROM "MoveFileA" LIB "kernel32.dll"
STATIC FUNCTION Sfn2Lfn(cShort)
Local cLong := ""
Local nFor, nAt
nAt := 1
cShort := Alltrim( StrTran( cShort, "/", "\" ) )
If !File( cShort ) .and. !lIsDir( cShort )
RETURN ""
Endif
If SubStr( cShort, 2, 1 ) == ":"
If Len( cShort ) < 4
RETURN cShort
Endif
cLong := SubStr( cShort, 1, 3)
nAt := 4
Endif
For nFor := nAt TO Len( cShort )
If SubStr( cShort, nFor, 1 ) == "\"
cLong += _Sfn2Lfn( SubStr( cShort, 1, nFor - 1 ) ) + "\"
Endif
Next
RETURN cLong+_Sfn2Lfn( cShort )
//----------------------------------------------------------------------------//
STATIC FUNCTION _SFN2LFN( cSpec )
Local oWin32, cBuffer, nHandle
STRUCT oWin32
MEMBER nFileAttributes AS DWORD
MEMBER nCreation AS STRING LEN 8
MEMBER nLastRead AS STRING LEN 8
MEMBER nLastWrite AS STRING LEN 8
MEMBER nSizeHight AS DWORD
MEMBER nSizeLow AS DWORD
MEMBER nReserved0 AS DWORD
MEMBER nReserved1 AS DWORD
MEMBER cFileName AS STRING LEN 260
MEMBER cAltName AS STRING LEN 14
ENDSTRUCT
cBuffer := oWin32:cBuffer
nHandle := apiFindFst( cSpec, @cBuffer )
oWin32:cBuffer := cBuffer
apiFindCls( nHandle )
RETURN Psz( oWin32:cFileName )
//----------------------------------------------------------------------------//
FUNCTION Lfn2Sfn(cDir)
Local cBuffer := Space(261)
Local nLen
nLen := GetShortPathName( cDir, @cBuffer, Len(cBuffer) )
RETURN Left(cBuffer, nLen)
//----------------------------------------------------------------------------//
STATIC FUNCTION psz( c ) ; RETURN substr( c, 1, At( Chr(0), c ) - 1 )
//----------------------------------------------------------------------------//
DLL32 Function apiFindFst( lpFilename AS LPSTR,;
@cWin32DataInfo AS LPSTR ) AS LONG ;
PASCAL FROM "FindFirstFileA" LIB "Kernel32.dll"
DLL32 Function apiFindNxt( nHandle AS LONG,;
@cWin32DataInfo AS LPSTR ) AS BOOL ;
PASCAL FROM "FindNextFileA" LIB "Kernel32.dll"
DLL32 Function apiFindCls( nHandle AS LONG) AS BOOL ;
PASCAL FROM "FindClose" LIB "Kernel32.dll"
DLL32 FUNCTION GetShortPathName( lpLongPath AS LPSTR,;
lpShortPath AS LPSTR,;
wBufferLen AS DWORD ) AS DWORD ;
PASCAL FROM "GetShortPathNameA" LIB "kernel32.dll"
DLL32 Function GetFullPathName( lpszFile AS LPSTR,;
cchPath AS DWORD,;
lpszPath AS LPSTR,;
@nFilePos AS PTR ) AS DWORD ;
PASCAL FROM "GetFullPathNameA" LIB "kernel32.dll"
DLL32 FUNCTION GetShortPathName( lpLongPath AS LPSTR,;
lpShortPath AS LPSTR,;
wBufferLen AS DWORD ) AS DWORD ;
PASCAL FROM "GetShortPathNameA" LIB "kernel32.dll"
DLL32 Function GetFullPathName( lpszFile AS LPSTR,;
cchPath AS DWORD,;
lpszPath AS LPSTR,;
@nFilePos AS PTR ) AS DWORD ;
PASCAL FROM "GetFullPathNameA" LIB "kernel32.dll"