PC Toledo

Bom dia colegas.

Na pasta xHarbour\lib encontra-se a HBSIX.LIB.

Porém, compilando acusa erro por falta da Função HB_FUN_SX_WILDMATCH, que é a Função que eu uso.

Pesquisando no Help XML do xHarbour nada encontrei.
O quê está faltando ?
A sintaxe é diferente ?

Alguém pode me ajudar ?

Hase, Bom dia
Dei uma olhada aqui no Help e achei a seguinte Sintase:

WildMatch( <cPattern>, <cString>, [<lFullMatch>] )

Código: Selecionar todos

PROCEDURE Main
      LOCAL cStr := "The xHarbour compiler"

      ? WildMatch( "bo?"  , cStr, .F. )  // result: .F.
      ? WildMatch( "bo?"  , cStr, .T. )  // result: .F.

      ? WildMatch( "*bo"  , cStr, .F. )  // result: .T.
      ? WildMatch( "*bo"  , cStr, .T. )  // result: .F.

      ? WildMatch( "The"  , cStr, .F. )  // result: .T.
      ? WildMatch( "The"  , cStr, .T. )  // result: .F.

      ? WildMatch( "The*r", cStr, .F. )  // result: .T.
      ? WildMatch( "The*r", cStr, .T. )  // result: .T.

      ? WildMatch( "The?x", cStr, .F. )  // result: .T.
      ? WildMatch( "The?x", cStr, .T. )  // result: .F.

      USE Customer
      SET FILTER TO WildMatch( "W*s", FIELD->LastName )

      GO TOP
      DbEval( {|| QOut( FIELD->LastName ) } )
      // Output: Names starting with "W" and ending with "s"
      // Walters
      // Waters

      CLOSE Customer
   RETURN

Abraços
Leonardo Machado

Valeu Leonardo.

Funcionou. A sintaxe é diferente do SIX do Clipper.

Obrigado.

Só curiosidade: para que serve esse WildMatch??

Antonio Carlos

Para filtrar dados de um Banco de Dados, como no exemplo acima.

SET FILTER TO WildMatch("Hasse",CAMPO) deixa passar somente campos que iniciem com "Hasse";

SET FILTER TO WildMatch("*Hasse",CAMPO) deixa passar somente campos que possuam a palavra "Hasse" em qualquer posição;

SET FILTER TO WildMatch("???Hasse",CAMPO) deixa passar somente campos que contenham 3 caracteres quaisquer seguidos da palvra "Hasse".

A criatividade é o limite...

só por curiosidade pra que serve esse hbsix?

Tem diversas funções que era usada na SIX do clipper...como encriptação e descripitação de dados, busca incrementada ...e etc...de uma olhada na Fonte dela na CVS que vc tera a lista completa !!!

sygecom escreveu:Tem diversas funções que era usada na SIX do clipper...como encriptação e descripitação de dados, busca incrementada ...e etc...de uma olhada na Fonte dela na CVS que vc tera a lista completa !!!

Virei todas as Pastas do xHarbour do avêsso e nada encontrei de fontes do SIX

Onde se encontram ?

Lembrando que baixei o último xHarbour do teu Site.

Baixe o help que tem no meu site: http://pub.buzinello.com/index.php?d=./ ... tutorials/
Nele constam, acredito eu, os auxílios de todas essas funções. E muito mais.

Hasse, vc pode baixar o xharbour pelo TortoiseCVS e dar uma olhada na pasta \xharbour\source\rdd\hbsix onde tem tres arquivos em .C contendo as funções da HBSIX.

Abraços
Leonardo Machado

Valeu amigos, Sygecom e Maligno.

Obrigado.

Boa noite colegas.

Fiz os testes com o WildMatch, e ele não possui AINDA os recursos do equivalente do SIX. Vejam:

Código: Selecionar todos

Para:
c_filtro := "HASSE"
c_campo  := "NOME"

SET FILTER TO WildMatch(c_filtro,NOME)                && OK - FUNCIONA
SET FILTER TO WildMatch(c_filtro,c_campo)             && Não deixa passar
SET FILTER TO WildMatch(c_filtro,c_campo,.t.)         && Não deixa passar
SET FILTER TO WildMatch(c_filtro,c_campo,.f.)         && Não deixa passar
SET FILTER TO WildMatch(c_filtro,&c_campo)            && ERRO DE RUNTIME
SET FILTER TO WildMatch(c_filtro,"&c_campo")          && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"&c_campo",.t.)      && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"&c_campo",.f.)      && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(c_campo))           && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(c_campo),.t.)       && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(c_campo),.f.)       && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(&c_campo))          && ERRO DE RUNTIME
SET FILTER TO WildMatch(c_filtro,("&c_campo"))        && Não deixa passar
SET FILTER TO WildMatch(c_filtro,("&c_campo"),.t.)    && Não deixa passar
SET FILTER TO WildMatch(c_filtro,("&c_campo"),.f.)    && Não deixa passar
SET FILTER TO WildMatch(c_filtro,FIELD->&c_campo)     && ERRO DE RUNTIME
SET FILTER TO WildMatch(c_filtro,FIELD->"&c_campo")   && ERRO DE COMPILAÇÃO




Para:
c_filtro := "HASSE"
c_campo  := "FIELD->NOME"

SET FILTER TO WildMatch(c_filtro,FIELD->NOME)         && OK - FUNCIONA
SET FILTER TO WildMatch(c_filtro,&c_campo)            && ERRO DE RUNTIME
SET FILTER TO WildMatch(c_filtro,"&c_campo")          && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"&c_campo",.t.)      && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"&c_campo",.f.)      && Não deixa passar
SET FILTER TO WildMatch(c_filtro,c_campo)             && Não deixa passar
SET FILTER TO WildMatch(c_filtro,c_campo,.t.)         && Não deixa passar
SET FILTER TO WildMatch(c_filtro,c_campo,.f.)         && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(c_campo))           && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(c_campo),.t.)       && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(c_campo),.f.)       && Não deixa passar
SET FILTER TO WildMatch(c_filtro,(&c_campo))          && ERRO DE RUNTIME
SET FILTER TO WildMatch(c_filtro,("&c_campo"))        && Não deixa passar
SET FILTER TO WildMatch(c_filtro,("&c_campo"),.t.)    && Não deixa passar
SET FILTER TO WildMatch(c_filtro,("&c_campo"),.f.)    && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"(c_campo)")         && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"(c_campo)",.t.)     && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"(c_campo)",.f.)     && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"(&c_campo)")        && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"(&c_campo)",.t.)    && Não deixa passar
SET FILTER TO WildMatch(c_filtro,"(&c_campo)",.f.)    && Não deixa passar

Ou seja:

O WildMatch do xHarbour necessita declarar especicamente o nome do CAMPO. Não aceita declaração por variável como o SIX aceita.

É possível que não estou acertando a sintaxe, mas pelos testes acima que fiz, não tive êxito.

A observação "Não deixa passar" quer dizer que o SET FILTER recusou todos os registros, mesmo aqueles que atendem aos requisitos de filtragem.

Alguém tem alguma sugestão ou informação ?

Hasse, o xharbour ainda não é totalmente compativel com a SIX...me parece que em 100% só a versão comercial.

Abraços
Leonardo Machado

Obrigado, Leonardo.

PC Toledo

HBSix

HBSix