BlackTDN Search

sábado, 7 de janeiro de 2012

BlackTDN :: Harbour :: Entendendo o Uso de Hash

   1: Function main()
   2:  
   3:    LOCAL hPessoa  := hb_hash()
   4:    LOCAL hPessoas := hb_hash()
   5:    LOCAL nPessoa  := 0 
   6:    LOCAL nPessoas := 1000
   7:  
   8:    SET CENTURY ON
   9:    SET DATE TO BRITISH 
  10:    SET DATE FORMAT "mm/dd/yyyy"
  11:  
  12:    hPessoa["PESSOA"] := hb_hash()
  13:    hb_HSetCaseMatch( hPessoa["PESSOA"] , .F. )
  14:  
  15:    hPessoa["PESSOA"]["NOME"]        := "BlackTDN"
  16:    hPessoa["PESSOA"]["NASCIMENTO"]  := Ctod("01/01/2012")
  17:    hPessoa["PESSOA"]["SEXO"]        := "M"
  18:    hPessoa["PESSOA"]["PAIS"]        := "Brasil"
  19:    hPessoa["PESSOA"]["ENDEREÇO"]    := "http://blacktdn.com.br"
  20:    hPessoa["PESSOA"]["CEP"]         := "00000-000"
  21:  
  22:    ? 'hPessoa["PESSOA"]["NOME"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "NOME" ) ))
  23:    ? 'hPessoa["PESSOA"]["NOME"] :' + hb_hGet( hPessoa["PESSOA"] , "NOME" )
  24:    ? hb_OsNewLine()
  25:    
  26:    ? 'hPessoa["PESSOA"]["NASCIMENTO"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "NASCIMENTO" ) ))
  27:    ? 'hPessoa["PESSOA"]["NASCIMENTO"] :' + dtoc( hb_hGet( hPessoa["PESSOA"] , "NASCIMENTO" ) )
  28:    ? hb_OsNewLine()
  29:  
  30:    ? 'hPessoa["PESSOA"]["SEXO"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "SEXO" )))
  31:    ? 'hPessoa["PESSOA"]["SEXO"] :' + hb_hGet( hPessoa["PESSOA"] , "SEXO" )
  32:    ? hb_OsNewLine()
  33:    
  34:    ? 'hPessoa["PESSOA"]["PAIS"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "PAIS" )))
  35:    ? 'hPessoa["PESSOA"]["PAIS"] :' + hb_hGet( hPessoa["PESSOA"] , "PAIS" )
  36:    ? hb_OsNewLine()
  37:    
  38:    ? hb_AnsiToOem('hPessoa["PESSOA"]["ENDEREÇO"] :') + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "ENDEREÇO" ) ))
  39:    ? hb_AnsiToOem('hPessoa["PESSOA"]["ENDEREÇO"] :') + hb_hGet( hPessoa["PESSOA"] , "ENDEREÇO" )
  40:    ? hb_OsNewLine()
  41:    
  42:    ? 'hPessoa["PESSOA"]["CEP"] :' + LTrim(str( hb_hPos( hPessoa["PESSOA"] , "CEP" ) ))
  43:    ? 'hPessoa["PESSOA"]["CEP"] :' + hb_hGet( hPessoa["PESSOA"] , "CEP" )
  44:    ? hb_OsNewLine()
  45:    
  46:    For nPessoa := 1 To nPessoas
  47:       hPessoas[nPessoa]                         := hb_hClone(hPessoa)
  48:       hPessoas[nPessoa]["PESSOA"]["NOME"]       += ' ' + StrZero(nPessoa,4)
  49:       IF ( ( nPessoa % 2 ) == 0 )
  50:          hPessoas[nPessoa]["PESSOA"]["NASCIMENTO"] := YearSum( hPessoas[nPessoa]["PESSOA"]["NASCIMENTO"] , nPessoa )
  51:       Else
  52:          hPessoas[nPessoa]["PESSOA"]["NASCIMENTO"] := YearSub( hPessoas[nPessoa]["PESSOA"]["NASCIMENTO"] , nPessoa )
  53:       EndIF
  54:    Next nPessoa
  55:    
  56:    FOR EACH hPessoa in hPessoas
  57:    
  58:       ? 'hPessoa["PESSOA"]["NOME"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "NOME" ) ))
  59:       ? 'hPessoa["PESSOA"]["NOME"] :' + hb_hGet( hPessoa["PESSOA"] , "NOME" )
  60:       ? hb_OsNewLine()
  61:       
  62:       ? 'hPessoa["PESSOA"]["NASCIMENTO"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "NASCIMENTO" ) ))
  63:       ? 'hPessoa["PESSOA"]["NASCIMENTO"] :' + dtoc( hb_hGet( hPessoa["PESSOA"] , "NASCIMENTO" ) )
  64:       ? hb_OsNewLine()
  65:  
  66:       ? 'hPessoa["PESSOA"]["SEXO"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "SEXO" )))
  67:       ? 'hPessoa["PESSOA"]["SEXO"] :' + hb_hGet( hPessoa["PESSOA"] , "SEXO" )
  68:       ? hb_OsNewLine()
  69:       
  70:       ? 'hPessoa["PESSOA"]["PAIS"] :' + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "PAIS" )))
  71:       ? 'hPessoa["PESSOA"]["PAIS"] :' + hb_hGet( hPessoa["PESSOA"] , "PAIS" )
  72:       ? hb_OsNewLine()
  73:       
  74:       ? hb_AnsiToOem('hPessoa["PESSOA"]["ENDEREÇO"] :') + LTrim(str(hb_hPos( hPessoa["PESSOA"] , "ENDEREÇO" ) ))
  75:       ? hb_AnsiToOem('hPessoa["PESSOA"]["ENDEREÇO"] :') + hb_hGet( hPessoa["PESSOA"] , "ENDEREÇO" )
  76:       ? hb_OsNewLine()
  77:       
  78:       ? 'hPessoa["PESSOA"]["CEP"] :' + LTrim(str( hb_hPos( hPessoa["PESSOA"] , "CEP" ) ))
  79:       ? 'hPessoa["PESSOA"]["CEP"] :' + hb_hGet( hPessoa["PESSOA"] , "CEP" )
  80:       ? hb_OsNewLine()
  81:  
  82:    NEXT EACH \\hPessoa
  83:    
  84:    inkey(0)
  85:  
  86: Return( .T. )
  87:  
  88: Function Day2Str( uData )
  89:    Local cType := ValType( uData )
  90: IF ( cType == "D" )
  91:    Return( StrZero( Day( uData ) , 2 ) )
  92: ElseIF ( cType == "N" )
  93:    Return( StrZero( uData , 2 ) )
  94: ElseIF ( cType == "C" )
  95:    Return( StrZero( Val( uData ) , 2 ) )
  96: EndIF
  97:  
  98: Function Month2Str( uData )
  99:    Local cType := ValType( uData )
 100: IF ( cType == "D" )
 101:    Return( StrZero( Month( uData ) , 2 ) )
 102: ElseIF ( cType == "N" )
 103:    Return( StrZero( uData , 2 ) )
 104: ElseIF ( cType == "C" )
 105:    Return( StrZero( Val( uData ) , 2 ) )
 106: EndIF
 107:  
 108: Function Year2Str( uData )
 109:    Local cType := ValType( uData )
 110: IF ( cType == "D" )
 111:    Return( StrZero( Year( uData ) , 4 ) )
 112: ElseIF ( cType == "N" )
 113:    Return( StrZero( uData , 4 ) )
 114: ElseIF ( cType == "C" )
 115:    Return( StrZero( Val( uData ) , 4 ) )
 116: EndIF
 117:  
 118: Function Last_Day( dDate )
 119:  
 120:    Local nMonth
 121:    Local nYear
 122:  
 123:    IF ( ValType( dDate ) == "C" )
 124:       dDate := CToD( dDate )   
 125:    EndIF
 126:  
 127:    nMonth := ( Month( dDate ) + 1 )
 128:    nYear  := Year( dDate )
 129:    IF ( nMonth > 12 )
 130:       nMonth := 1
 131:       ++nYear
 132:    EndIF
 133:  
 134:    dDate := CToD( "01/" + Month2Str( nMonth ) + "/" + Year2Str( nYear ) )
 135:    dDate -= 1
 136:  
 137: Return( Day( dDate ) )
 138:  
 139: Function YearSum( dDate , nYear )
 140:  
 141:    Local nMonthAux := Month( dDate )
 142:    Local nDayAux   := Day( dDate )
 143:    Local nYearAux  := Year( dDate )
 144:  
 145:    nYearAux += nYear
 146:    dDate := Ctod( Day2Str( nDayAux ) + "/" + Month2Str( nMonthAux ) + "/" + Year2Str( nYearAux ) )
 147:    IF Empty( dDate )
 148:       dDate   := Ctod( Day2Str( 1 ) + "/" + Month2Str( nMonthAux ) + "/" + Year2Str( nYearAux ) )
 149:       nDayAux := Last_Day( dDate )
 150:       dDate   := Ctod( Day2Str( nDayAux ) + "/" + Month2Str( nMonthAux ) + "/" + Year2Str( nYearAux ) )
 151:    EndIF
 152:  
 153: Return( dDate )
 154:  
 155: Function YearSub( dDate , nYear )
 156:  
 157:    Local nMonthAux := Month( dDate )
 158:    Local nDayAux   := Day( dDate )
 159:    Local nYearAux  := Year( dDate )
 160:  
 161:    nYearAux -= nYear
 162:    dDate := Ctod( Day2Str( nDayAux ) + "/" + Month2Str( nMonthAux ) + "/" + Year2Str( nYearAux ) )
 163:    IF Empty( dDate )
 164:       dDate   := Ctod( Day2Str( 1 ) + "/" + Month2Str( nMonthAux ) + "/" + Year2Str( nYearAux ) )
 165:       nDayAux := Last_Day( dDate )
 166:       dDate   := Ctod( Day2Str( nDayAux ) + "/" + Month2Str( nMonthAux ) + "/" + Year2Str( nYearAux ) )
 167:    EndIF
 168:  
 169: Return( dDate )


Para testar, baixe a última versão do Harbour Nightly binary: exe 7z (win), obtenha o exemplo acima a partir de totvs-advpl-naldodj\harbour\samples\main.prg e compile


image


e execute, verás a saida diretamente no “console”


image


Funções de Manipulação de Hash:  xHarbour e sua equivalência no Harbour



   1: #xtranslate HASH([<x,...>])             => hb_HASH(<x>)
   2: #xtranslate HHASKEY([<x,...>])          => hb_HHASKEY(<x>)
   3: #xtranslate HGETPOS([<x,...>])          => hb_HPOS(<x>)
   4: #xtranslate HGET([<x,...>])             => hb_HGET(<x>)
   5: #xtranslate HSET([<x,...>])             => hb_HSET(<x>)
   6: #xtranslate HDEL([<x,...>])             => hb_HDEL(<x>)
   7: #xtranslate HGETKEYAT([<x,...>])        => hb_HKEYAT(<x>)
   8: #xtranslate HGETVALUEAT([<x,...>])      => hb_HVALUEAT(<x>)
   9: #xtranslate HSETVALUEAT([<x,...>])      => hb_HVALUEAT(<x>)
  10: #xtranslate HGETPAIRAT([<x,...>])       => hb_HPAIRAT(<x>)
  11: #xtranslate HDELAT([<x,...>])           => hb_HDELAT(<x>)
  12: #xtranslate HGETKEYS([<x,...>])         => hb_HKEYS(<x>)
  13: #xtranslate HGETVALUES([<x,...>])       => hb_HVALUES(<x>)
  14: #xtranslate HFILL([<x,...>])            => hb_HFILL(<x>)
  15: #xtranslate HCLONE([<x,...>])           => hb_HCLONE(<x>)
  16: #xtranslate HCOPY([<x,...>])            => hb_HCOPY(<x>)
  17: #xtranslate HMERGE([<x,...>])           => hb_HMERGE(<x>)
  18: #xtranslate HEVAL([<x,...>])            => hb_HEVAL(<x>)
  19: #xtranslate HSCAN([<x,...>])            => hb_HSCAN(<x>)
  20: #xtranslate HSETCASEMATCH([<x,...>])    => hb_HSETCASEMATCH(<x>)
  21: #xtranslate HGETCASEMATCH([<x,...>])    => hb_HCASEMATCH(<x>)
  22: #xtranslate HSETAUTOADD([<x,...>])      => hb_HSETAUTOADD(<x>)
  23: #xtranslate HGETAUTOADD([<x,...>])      => hb_HAUTOADD(<x>)
  24: #xtranslate HALLOCATE([<x,...>])        => hb_HALLOCATE(<x>)
  25: #xtranslate HDEFAULT([<x,...>])         => hb_HDEFAULT(<x>)

[]s
иαldσ dj

Nenhum comentário:

Postar um comentário