Pular para o conteúdo principal

Postagem em destaque

🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️

🚀 Oferecendo Serviços Remotos de Desenvolvedor AdvPL e Mais 🖥️ Olá pessoal, Espero que este post encontre todos vocês bem! É com grande entusiasmo que compartilho que estou expandindo meus serviços como Desenvolvedor AdvPL para novos desafios e colaborações. Com mais de duas décadas de experiência sólida, minha jornada profissional tem sido enriquecedora, com a oportunidade de participar de projetos empolgantes ao longo dos anos. Agora, estou ansioso para trazer minha experiência e habilidades para novas equipes e projetos, trabalhando de forma remota. Minha expertise abrange não apenas AdvPL, mas também outras tecnologias-chave, incluindo JS, SQL, Infraestrutura e Otimização de Processos. Acredito que essa combinação de conhecimentos me permite oferecer soluções abrangentes e eficazes para uma variedade de necessidades de desenvolvimento. Acredito que a tecnologia tem o poder de transformar negócios e impulsionar o sucesso, e estou comprometido em ajudar meus clientes a alcançar seu

Protheus :: ADVPL : Class TFINI Manipulando valores de um arquivo de configuração (*.INI)

A função: INIGetPValue( cFile , cSession , cPropertyName , cDefaultValue , cIgnoreToken ) dada a sua característica, se tornou uma séria candidata a uma nova Classe em ADVPL. É um bom exemplo para aqueles que querem transformar uma função de "Próposito Geral" em uma Classe de "Propósito Geral" e, para os que estão iniciando na programação em ADVPL um bom exerício no que diz respeito a implementação de uma Classe.

O Código da Classe:


#INCLUDE "PROTHEUS.CH"

#DEFINE SESSION_POSITION 1
#DEFINE PROPERTY_POSITION 2

#DEFINE PROPERTY_NAME  1
#DEFINE PROPERTY_VALUE  2

#DEFINE PROPERTY_ELEMENTS 2

/*/
 CLASS:  TFINI
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Manipulacao de Arquivos .INI
 Sintaxe: TFINI():New( cINIFile , cIgnoreToken) -> Objeto do Tipo TFINI
/*/
CLASS TFINI FROM LongClassName

 DATA aTFINI
 
 DATA cINIFile
 DATA cClassName

 METHOD NEW( cINIFile , cIgnoreToken ) CONSTRUCTOR

 METHOD ClassName()

 METHOD GetPropertyValue( cSession , cPropertyName , cDefaultValue )
 METHOD SetPropertyValue( cSession , cPropertyName , cValue )
 METHOD AddNewProperty( cSession , cPropertyName , cValue )
 METHOD RemoveProperty( cSession , cPropertyName )
 METHOD GetAllProperties( cSession )

 METHOD AddNewSession( cSession )
 METHOD RemoveSession( cSession )
 METHOD GetAllSessions()
 METHOD CopySession( cSession , cNewSession )

 METHOD SaveAs( cINIFile )
 METHOD SaveAsXML( cXMLFile )

 METHOD ToXML()

ENDCLASS

User Function TFINI( cINIFile , cIgnoreToken )
Return( TFINI():New( cINIFile , cIgnoreToken ) )

/*/
 METHOD:  New
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: CONSTRUCTOR
 Sintaxe: TFINI():New( cINIFile , cIgnoreToken) -> Self
/*/
METHOD New( cINIFile , cIgnoreToken ) CLASS TFINI

 Local lExit

 Local nAT
 Local nATLine
 Local nSession
 Local nProperty
 Local nATIgnoreTkn

 Local ofT

 Self:aTFINI   := {}
 Self:cINIFile  := cINIFile
 Self:cClassName  := "TFINI"

 BEGIN SEQUENCE
 
  IF Empty( cINIFile )
   BREAK
  EndIF

  IF !File( cINIFile )
         BREAK
  ENDIF

  ofT := fT():New()

  IF ( ofT:ft_fUse( cINIFile ) <= 0 )
   ofT:ft_fUse()
   BREAK
  EndIF

  DEFAULT cIgnoreToken := ";"

  While !( ofT:ft_fEof() )
   cLine  := ofT:ft_fReadLn()
   BEGIN SEQUENCE
    IF Empty( cLine )
     BREAK
    EndIF
    IF ( cIgnoreToken $ cLine )
     cLine   := AllTrim( cLine )
     nATIgnoreTkn := AT( cIgnoreToken , cLine )
     IF ( nATIgnoreTkn == 1 )
      BREAK
     EndIF
     cLine := SubStr( cLine , 1  , nATIgnoreTkn - 1 )
    EndIF 
    IF !( "[" $ cLine )
     BREAK
    ENDIF
    lExit  := .F.
    nATLine  := 0
    aAdd( Self:aTFINI , { Lower( AllTrim( StrTran( StrTran( cLine , "[" , "" ) , "]" , "" ) ) ) , Array( 0 ) } )
    nSession := Len( Self:aTFINI )
    ofT:ft_fSkip()
    While !( ofT:ft_fEof() )
     cLine := ofT:ft_fReadLn()
      BEGIN SEQUENCE
       IF Empty( cLine )
        BREAK
       EndIF
      IF ( cIgnoreToken $ cLine )
       cLine   := AllTrim( cLine )
       nATIgnoreTkn := AT( cIgnoreToken , cLine )
       IF ( nATIgnoreTkn == 1 )
        nATLine  := 0
        lExit  := .T.
        BREAK
       EndIF
       cLine := SubStr( cLine , 1  , nATIgnoreTkn - 1 )
      EndIF
      IF ( "[" $ cLine )
       lExit := .T.
       BREAK
      EndIF
       aAdd( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , Array( PROPERTY_ELEMENTS ) )
       nProperty := Len( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] )
       nAT   := AT( "=" , cLine )
       Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_NAME  ] := Lower( AllTrim( SubStr( cLine , 1 , nAT - 1 ) ) )
       Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ] := SubStr( cLine , nAT + 1 )
       cLine  := ""
     END SEQUENCE
     IF ( lExit )
      EXIT
     EndIF
     nATLine  := ofT:ft_fRecno()
     ofT:ft_fSkip()
    End While
    IF ( nATLine > 0 )
     ofT:ft_fGoto( nATLine )
    EndIF
   END SEQUENCE
   ofT:ft_fSkip()
  End While

  ofT:ft_fUse()

 END SEQUENCE

Return( Self )

/*/
 METHOD:  ClassName
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Retornar o Nome da Classe
 Sintaxe: TFINI():ClassName() -> cClassName
/*/
METHOD ClassName()  CLASS TFINI
Return( Self:cClassName )

/*/
 METHOD:  GetPropertyValue
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Obter o valor da Propriedade Passada por parametro e de acordo com a Secao
 Sintaxe: TFINI():GetPropertyValue( cSession , cPropertyName , cDefaultValue ) -> cPropertyValue
/*/
METHOD GetPropertyValue( cSession , cPropertyName , cDefaultValue ) CLASS TFINI

 Local cPropertyValue := "@__PROPERTY_NOT_FOUND__@"

 Local nSession
 Local nProperty

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF
  
  IF Empty( cPropertyName )
   BREAK
  EndIF

  cSession  := Lower( AllTrim( cSession ) )
  cPropertyName := Lower( AllTrim( cPropertyName ) )

  nSession  := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession == 0 )
   BREAK
  EndIF

  nProperty  := aScan( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , { |aValues| ( aValues[ PROPERTY_NAME ] == cPropertyName ) } )
  IF ( nProperty == 0 )
   BREAK
  EndIF

  cPropertyValue := Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ]

 END SEQUENCE

 IF ( cPropertyValue == "@__PROPERTY_NOT_FOUND__@" )
  IF !Empty( cDefaultValue )
   cPropertyValue := cDefaultValue
  Else
   cPropertyValue := ""
  EndIF 
 EndIF

Return( cPropertyValue )

/*/
 METHOD:  SetPropertyValue
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Setar o Valor em uma determinada Propriedade
 Sintaxe: TFINI():SetPropertyValue( cSession , cPropertyName , cValue ) -> cPropertyLastValue
/*/
METHOD SetPropertyValue( cSession , cPropertyName , cValue ) CLASS TFINI

 Local cPropertyLastValue

 Local nSession
 Local nProperty

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF
  
  IF Empty( cPropertyName )
   BREAK
  EndIF
  
  cSession   := Lower( AllTrim( cSession ) )
  cPropertyName  := Lower( AllTrim( cPropertyName ) )

  nSession   := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession == 0 )
   BREAK
  EndIF

  nProperty   := aScan( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , { |aValues| ( aValues[ PROPERTY_NAME ] == cPropertyName ) } )
  IF ( nProperty == 0 )
   BREAK
  EndIF

  cPropertyLastValue := Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ]   
  Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ] := cValue

 END SEQUENCE

Return( cPropertyLastValue )

/*/
 METHOD:  AddNewProperty
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Adicionar uma nova propriedade
 Sintaxe: TFINI():AddNewProperty( cSession , cPropertyName , cValue ) -> lSuccess
/*/
METHOD AddNewProperty( cSession , cPropertyName , cValue ) CLASS TFINI

 Local lSuccess   := .F.
 
 Local nSession
 Local nProperty

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF
  
  IF Empty( cPropertyName )
   BREAK
  EndIF

  cSession   := Lower( AllTrim( cSession ) )
  cPropertyName  := Lower( AllTrim( cPropertyName ) )

  nSession   := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession == 0 )
   BREAK
  EndIF

  aAdd( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , Array( PROPERTY_ELEMENTS ) )
  nProperty   := Len( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] )

  Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_NAME  ] := cPropertyName
  Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ] := cValue

  lSuccess   := .T.

 END SEQUENCE

Return( lSuccess )

/*/
 METHOD:  RemoveProperty
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Remover Determinada Propriedade
 Sintaxe: TFINI():RemoveProperty( cSession , cPropertyName ) -> lSuccess
/*/
METHOD RemoveProperty( cSession , cPropertyName ) CLASS TFINI

 Local lSuccess  := .F.
 
 Local nSession
 Local nProperty

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF
  
  IF Empty( cPropertyName )
   BREAK
  EndIF

  cSession  := Lower( AllTrim( cSession ) )
  cPropertyName := Lower( AllTrim( cPropertyName ) )

  nSession  := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession == 0 )
   BREAK
  EndIF

  nProperty  := aScan( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , { |aValues| ( aValues[ PROPERTY_NAME ] == cPropertyName ) } )
  IF ( nProperty == 0 )
   BREAK
  EndIF

  lSuccess  := .T.

  aDel( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , nProperty )
  aSize( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] , Len( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] ) - 1 )

 END SEQUENCE

Return( lSuccess )

/*/
 METHOD:  GetAllProperties
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Retornar todas as propriedades
 Sintaxe: TFINI():RemoveProperty( cSession ) -> aAllProperties
/*/
METHOD GetAllProperties( cSession) CLASS TFINI

 Local aAllProperties := {}

 Local nSession

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF

  cSession   := Lower( AllTrim( cSession ) )
  nSession   := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession == 0 )
   BREAK
  EndIF

  aAllProperties  := Self:aTFINI[ nSession ][ PROPERTY_POSITION ]

 END SEQUENCE

Return( aAllProperties )

/*/
 METHOD:  AddNewSession
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Adicionar nova Secao
 Sintaxe: TFINI():AddNewSession( cSession ) -> lSuccess
/*/
METHOD AddNewSession( cSession ) CLASS TFINI

 Local lSuccess  := .F.

 Local nSession

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF

  cSession  := Lower( AllTrim( cSession ) )

  nSession  := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession > 0 )
   BREAK
  EndIF

  aAdd( Self:aTFINI , { cSession , Array( 0 ) } )

  lSuccess  := .T.

 END SEQUENCE

Return( lSuccess )

/*/
 METHOD:  RemoveSession
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Remover Determinada Secao
 Sintaxe: TFINI():RemoveSession( cSession ) -> lSuccess
/*/
METHOD RemoveSession( cSession ) CLASS TFINI

 Local lSuccess  := .F.

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF

  cSession  := Lower( AllTrim( cSession ) )

  nSession  := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSession == 0 )
   BREAK
  EndIF

  aDel( Self:aTFINI , nSession )
  aSize( Self:aTFINI , Len( Self:aTFINI ) - 1 )

  lSuccess  := .T.

 END SEQUENCE

Return( lSuccess )

/*/
 METHOD:  GetAllSessions
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Obter Todas as Secoes do INI
 Sintaxe: TFINI():GetAllSessions() -> aSessionsName
/*/
METHOD GetAllSessions() CLASS TFINI

 Local aSessionsName := {}

 Local nSession
 Local nSessions

 BEGIN SEQUENCE

  IF Empty( Self:aTFINI )
   BREAK
  EndIF

  nSessions := Len( Self:aTFINI )
  For nSession := 1 To nSessions
   aAdd( aSessionsName , Self:aTFINI[ nSession ][ SESSION_POSITION ] )
  Next nSession

 END SEQUENCE

Return( aSessionsName )

/*/
 METHOD:  CopySession
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Copiar uma Secao 
 Sintaxe: TFINI():CopySession( cSession , cNewSession ) -> lSuccess
/*/
METHOD CopySession( cSession , cNewSession ) CLASS TFINI

 Local aProperties
 
 Local nSource
 Local nTarget
 
 Local lSuccess := .F.

 BEGIN SEQUENCE

  IF Empty( cSession )
   BREAK
  EndIF

  cSession := Lower( AllTrim( cSession ) )
  cNewSession := Lower( AllTrim( cNewSession ) )

  nSource  := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cSession ) } )
  IF ( nSource == 0 )
   BREAK
  EndIF

  IF !( Self:AddNewSession( cNewSession ) )
   BREAK
  EndIF

  aProperties := Self:GetAllProperties( cSession )
  nTarget  := aScan( Self:aTFINI , { |aFindSession| ( aFindSession[ SESSION_POSITION ] == cNewSession ) } )
  IF ( nTarget == 0 )
   BREAK
  EndIF
  
  Self:aTFINI[ nTarget ][ PROPERTY_POSITION ] := aClone( aProperties )
  
  lSuccess := ArrayCompare( Self:aTFINI[ nSource ][ PROPERTY_POSITION ] , Self:aTFINI[ nTarget ][ PROPERTY_POSITION ] )
 
 END SEQUENCE

Return( lSuccess )

/*/
 METHOD:  SaveAs
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Salvar Como
 Sintaxe: TFINI():SaveAs( cINIFile ) -> lSuccess
/*/
METHOD SaveAs( cINIFile ) CLASS TFINI

 Local cLine
 Local cCRLF

 Local nSession
 Local nSessions
 Local nProperty
 Local nProperties
 
 Local nfHandle
 
 Local lSuccess := .F.

 BEGIN SEQUENCE

  IF Empty( cINIFile )
   cINIFile := Self:cINIFile
   IF Empty( cINIFile )
    BREAK
   EndIF
  EndIF

  nfHandle := fCreate( cINIFile )
  IF ( nfHandle <= 0 )
   BREAK
  EndIF

  cCRLF  := CRLF

  nSessions := Len( Self:aTFINI )
  For nSession := 1 To nSessions

   cLine := "["
   cLine += Self:aTFINI[ nSession ][ SESSION_POSITION ]
   cLine += "]"
   cLine += cCRLF

   fWrite( nfHandle , cLine )

   nProperties := Len( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] )
   For nProperty := 1 To nProperties

     cLine := Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_NAME  ]
     cLine += "="
     cLine += Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ]
    cLine += cCRLF
    
    fWrite( nfHandle , cLine )

   Next nProperty

   cLine := cCRLF

   fWrite( nfHandle , cLine )

  Next nSession

  fClose( nfHandle )

  lSuccess := File( cINIFile )

 END SEQUENCE

Return( lSuccess )

/*/
 METHOD:  SaveAsXML
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Salvar como XML
 Sintaxe: TFINI():SaveAs( cINIFile ) -> lSuccess
/*/
METHOD SaveAsXML( cXMLFile ) CLASS TFINI

 Local cXML
 
 Local lSuccess := .F.
 
 Local nATExt

 BEGIN SEQUENCE
 
  IF Empty( cXMLFile )
   cXMLFile := Self:cINIFile
   IF Empty( cXMLFile )
    BREAK
   EndIF
   nATExt  := AT( "." , cXMLFile )
   IF ( nATExt > 0 )
    cXMLFile := SubStr( cXMLFile , 1 , nATExt - 1 )
   EndIF
   cXMLFile += ".xml"
  EndIF

  cXML  := Self:ToXML()
  cXMLFile := Lower( cXMLFile )

  lSuccess := MemoWrite( cXMLFile , cXML )

 END SEQUENCE 

Return( lSuccess )

/*/
 METHOD:  GetAllSessions
 Autor:  Marinaldo de Jesus
 Data:  27/05/2011
 Descricao: Converter para XML
 Sintaxe: TFINI():RemoveSession( cSession ) -> cXML
/*/
METHOD ToXML() CLASS TFINI

 Local cXML   := ""
 Local cCRLF   := CRLF
 Local cSpace4  := Space(4)
 Local cSpace8  := Space(8)
 Local cLClassName   := Lower( Self:cClassName )

 Local nSession
 Local nSessions
 Local nProperty
 Local nProperties

 cXML := ""
 cXML += cCRLF
 cXml += "<" + cLClassName  + ">"
 cXML += cCRLF

 nSessions := Len( Self:aTFINI )
 For nSession := 1 To nSessions

  cXML += cSpace4
  cXML += "<"
  cXML += Self:aTFINI[ nSession ][ SESSION_POSITION ]
  cXML += ">"
  cXML += cCRLF

  nProperties := Len( Self:aTFINI[ nSession ][ PROPERTY_POSITION ] )
  For nProperty := 1 To nProperties

   cXML += cSpace8

   cXML += "<"
   cXML += Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_NAME  ]
   cXML += ">"

    cXML += Self:aTFINI[ nSession ][ PROPERTY_POSITION ][ nProperty ][ PROPERTY_VALUE ]

   cXML += ""

   cXML += cCRLF

  Next nProperty

  cXML += cSpace4
  cXML += ""
  cXML += cCRLF

 Next nSession

 cXml += ""
 cXML += cCRLF

Return( cXML )


Um Exemplo de Uso:

#INCLUDE "PROTHEUS.CH"
User Function TSTTFINI()

 Local oTFINI := TFINI():New( "D:\TFINI\TINIGetPValue.INI" )

 ConOut( oTFINI:ClassName() )

 VarInfo( "oTFINI" , oTFINI ) //Saida no Console
 
 ConOut( "" , "" )

  cPVS1 := oTFINI:GetPropertyValue( "session1" , "PropertyName1" , "NO_FOUND" )
  ConOut( "cPVS1" , cPVS1 )
  ConOut( "" , "" )
  cPVS2 := oTFINI:GetPropertyValue( "session2" , "PropertyName2" , "NO_FOUND" )
  ConOut( "cPVS2" , cPVS2 )
  ConOut( "" , "" )
  cPVS3 := oTFINI:GetPropertyValue( "session3" , "PropertyName3" , "NO_FOUND" )
  ConOut( "cPVS3" , cPVS3 )
  ConOut( "" , "" )
  cPVS4 := oTFINI:GetPropertyValue( "session4" , "PropertyName3" , "NO_FOUND" )
  ConOut( "cPVS4" , cPVS4 )
  ConOut( "" , "" )

 cPVS2 := oTFINI:SetPropertyValue( "session2" , "PropertyName2" , "NewValuePropertyValue2" )
 ConOut( "cPVS2" , cPVS2 )
 ConOut( "" , "" )

 cPVS2 := oTFINI:GetPropertyValue( "session2" , "PropertyName2" , "NO_FOUND" )
 ConOut( "cPVS2" , cPVS2 )
 ConOut( "" , "" )

 oTFINI:AddNewSession( "session5" )
 oTFINI:AddNewProperty( "session5" , "PropertyName1" , "PropertyValue1" )
 oTFINI:AddNewProperty( "session5" , "PropertyName2" , "PropertyValue2" )
 oTFINI:AddNewProperty( "session5" , "PropertyName3" , "PropertyValue3" )
 oTFINI:AddNewProperty( "session5" , "PropertyName4" , "PropertyValue4" )
 oTFINI:AddNewProperty( "session5" , "PropertyName5" , "PropertyValue5" )

 cPVS5 := oTFINI:SetPropertyValue( "session5" , "PropertyName4" , "NewValuePropertyValue4" )
 ConOut( "cPVS5" , cPVS5 )
 ConOut( "" , "" )
 
 oTFINI:AddNewSession( "session6" )
 oTFINI:AddNewProperty( "session6" , "PropertyName1" , "PropertyValue1" )
 oTFINI:AddNewProperty( "session6" , "PropertyName2" , "PropertyValue2" )
 oTFINI:AddNewProperty( "session6" , "PropertyName3" , "PropertyValue3" )
 oTFINI:AddNewProperty( "session6" , "PropertyName4" , "PropertyValue4" )
 oTFINI:AddNewProperty( "session6" , "PropertyName5" , "PropertyValue5" )
 oTFINI:AddNewProperty( "session6" , "PropertyName6" , "PropertyValue6" )

 cPVS6 := oTFINI:GetPropertyValue( "session6" , "PropertyName2" , "NO_FOUND" )
 ConOut( "cPVS6" , cPVS6 )
 ConOut( "" , "" )

 oTFINI:AddNewSession( "session7" )
 oTFINI:AddNewProperty( "session7" , "PropertyName1" , "PropertyValue1" )
 oTFINI:AddNewProperty( "session7" , "PropertyName2" , "PropertyValue2" )
 oTFINI:AddNewProperty( "session7" , "PropertyName3" , "PropertyValue3" )
 oTFINI:AddNewProperty( "session7" , "PropertyName4" , "PropertyValue4" )
 oTFINI:AddNewProperty( "session7" , "PropertyName5" , "PropertyValue5" )
 oTFINI:AddNewProperty( "session7" , "PropertyName6" , "PropertyValue6" )
 oTFINI:AddNewProperty( "session7" , "PropertyName7" , "PropertyValue7" )

 VarInfo( "oTFINI" , oTFINI ) //Saida no Console
 ConOut( "" , "" )

 oTFINI:CopySession( "session7" , "session8"  )
 VarInfo( "oTFINI" , oTFINI ) //Saida no Console
 ConOut( "" , "" )


 oTFINI:RemoveSession( "session6" )
 oTFINI:RemoveProperty( "session7", "PropertyName7" )
 
 VarInfo( "AllProperties_Session7" , oTFINI:GetAllProperties( "session7" ) )
 ConOut( "" , "" )

 VarInfo( "AllSessions" , oTFINI:GetAllSessions() )
 ConOut( "" , "" )
 
 ConOut( "SaveAs " , oTFINI:SaveAs( "D:\TFINI\__TINIGetPValue.INI" ) )
 ConOut( "" , "" )

 ConOut( "SaveAsXML " , oTFINI:SaveAsXML() )
 ConOut( "" , "" )
 
Return( NIL )

Clique aqui para baixar os programas utilizados neste "post".
[]s
иαldσ dj

Comentários

Postar um comentário

Postagens mais visitadas deste blog

BlackTDN :: RLeg ~ Desvendando a Função ParamBox

Para quem precisar desenvolver uma interface de entrada de dados, coisa rápida, e não quer ter aquele trabalhão danado que todos já sabemos, o Protheus tem uma função que ajuda muito, é uma interface semelhante a função Pergunte, porém com muito mais opção de objeto de entrada de dados, alias até colocar o scrollbox desta interface com todos os objetos em outra MsDialog ou Wizard é simples. Vejam o exemplo abaixo, boa sorte! Rleg. //---------------------------------------------------------- // Função exemplo utilizando a função ParamBox() //---------------------------------------------------------- User Function xParamBox() Local aRet := {} Local aParamBox := {} Local aCombo := {"Janeiro","Fevereiro","Março","Abril","Maio","Junho","Julho","Agosto","Setembro","Outubro","Novembro","Dezembro"} Local i := 0 Private cCadastro := "xParambox" // ---------------

BlackTDN :: Customizando a interface de Login no Protheus e by You

A publicação “ BlackTDN :: By You e sua nova tela de login ”  de nosso amigo OBona deu o que falar e, em função disso, esse que a muito não vos escreve resolveu criar uma versão onde será possível personalizar, “por completo”, a tela de login no Protheus/by You. Considerando que OBona já havia “mapeado, identificado e customizado” as imagens peguei-as emprestadas para o exemplo que se segue: O primeiro passo para a customização “total” da interface de login do Protheus/by You será implementar o “Ponto de Entrada” ChgPrDir (Diretório de impressão) . Usaremos esse PE juntamente como programa U_FindMsObject.prg (apresentado pela primeira vez em: Protheus :: ADVPL : The Container : Presents Pandora's box ). Diferente do exemplo proposto por OBona, que substitui, durante o processo de compilação, as imagens padrões do sistema (excluindo-as) por imagens customizadas (com o mesmo nome) este novo exemplo mantém, no RPO, as imagens padrões adicionando novas imagens customizadas que serã

Protheus :: Chamando Funções do Menu Diretamente e sem a Necessidade de Login

Ferne$ perguntou: "...é possível abrir alguma rotina do sistema sem solicitar login ao usuário, como por exemplo a rotina MATA010..." Sim Ferne$, é possível sim. Abaixo um Exemplo para a Chamada à função MATA010 sem a necessidade de Login no sistema. #INCLUDE "PROTHEUS.CH" #INCLUDE "TBICONN.CH" /*/ Funcao: MATA010Ex Data: 30/04/2011 Autor: Marinaldo de Jesus Descricao: Executar a Funcao MATA010 diretamente sem a necessidade de LOGIN no Protheus Sintaxe: 1 ) U_MATA010Ex ( Chamada diretamente na Tela de Entrada do Sistema ) ; ou 2 ) totvsclient.exe -q -p=u_MATA010Ex -a=01;01 -c=rnp_local -e=rnp -m -l ( Chamada Via Linha de Comando ) /*/ User Function MATA010Ex( cEmpFil ) Local aEmpFil Local bWindowInit := { || __Execute( "MATA010()" , "xxxxxxxxxxxxxxxxxxxx" , "MATA010" , "SIGAFAT" , "SIGAFAT", 1 , .T. ) } Local cEmp Local cFil Local cMod Local cModName := "SIGAFAT" DEFA