Páginas filhas
  • FileNoExt - Arquivo sem extensão

Função: FileNoExt - Arquivo sem extensão
Versões: Advanced Protheus 5.07 , Advanced Protheus 5.08 , Advanced Protheus 6.09 , Advanced Protheus 7.10 , Microsiga Protheus 8.11 , Protheus 10
Compatível Países: Todos
Sistemas Operacionais: Todos
Compatível às Bases de Dados: Todos
Nível de Acesso: Nível 1 (Acesso Clientes)
Idiomas: Espanhol , Inglês
Descrição:

Retorna o caminho e o nome de um arquivo sem a extensão com base em uma string passada por parâmetro.

Programa Fonte:
APLIB070.PRW
Sintaxe:

FileNoExt - Arquivo sem extensão ( cString ) --> cReturn

Retorno:
    cReturn(caracter)
  • Retorna o nome do arquivo sem a extenção.
Exemplos
#include "protheus.ch"User Function TestFileExt()Local oDlgLocal oGet Local cGet := Space(50)Local oSay1                                               Local cArqcFile := cGetFile("Teste","Arquivos",,,.T.) //'Diretório dos arquivos de dados') //'Arquivo de Configuraçôes (Consulta Genérica)|*.NGC | All Files|*.*'###'Gravar configurações'cArq := FileNoExt(cFile)ApMsgAlert(cArq)Return
Parâmetros:
Nome Tipo Descrição Default Obrigatório Referência
cString Caracter Contém o nome do arquivo. X

  • Sem rótulos