4D Write v14

WR Direct find

Inicio

 
4D Write v14
WR Direct find

WR Direct find 


 

WR Direct find ( BLOB ; aBuscar ; palabraComp ; mayus ) -> Resultado 
Parámetro Tipo   Descripción
BLOB  BLOB in BLOB que contiene un área 4D Write
aBuscar  Alfa in Cadena a buscar
palabraComp  Entero in 0=parte de la palabra 1=toda la palabra
mayus  Entero in 0=ignorar mayúsculas 1=tener en cuenta mayúsculas
Resultado  Entero largo in Estado de la búsqueda

El comando WR Direct find permite buscar directamente una cadena de caracteres en un BLOB que contiene un área 4D Write sin necesitar abrir el área, aumentando la velocidad. 

Si se encuentra la cadena de caracteres, WR Direct find devuelve la posición de la cadena de caracteres en el texto.

Si la búsqueda no tuvo éxito, la función devuelve -1.

Si blob no representa el contenido de un área 4D Write, WR Direct find devuelve -2.

Los argumentos palabraComp y mayus permiten elegir algunas opciones para la búsqueda.

En el parámetro palabraComp, puede pasar una de las siguientes constantes, que se encuentran en el tema WR Parámetros:

Constante Tipo Valor
wr partial match Entero largo 0
wr whole word Entero largo 1

En el parámetro mayus, puede pasar una de las siguientes constantes, que se encuentran en el tema WR Parámetros:

Constante Tipo Valor
wr ignore uppercase Entero largo 0
wr case sensitive Entero largo 1

Ejemplo  

Este ejemplo ofrece un método de búsqueda por palabra clave que busca en una selección de registros. Su base contiene recetas de cocina. Las áreas 4D Write se guardan en campos BLOB. Usted quiere encontrar las recetas que utilizan un ingrediente específico. Este es el método correspondiente, el cual es muy rápido:

 ToFind:=Request("Introduzca el ingrediente a buscar:")
  `Creación de un conjunto vacío en el cual se ubican los registros encontrados
 CREATE EMPTY SET([MiRecetas];"RegistrosEncontrados")
 ALL RECORDS([MisRecetas]`Navegar toda la selección de la tabla
 While(Not(End selection([MisRecetas])))
    If(WR Direct find([MisRecetas]BlobRecipe_;ToFind;wr whole word;wr case sensitive)>0)
  `Si se encuentra el ingrediente, el registro se añade al conjunto
       ADD TO SET([MisRecetas];"RegistrosEncontrados")
    End if
    NEXT RECORD([MisRecetas])
 End while
 USE SET("RegistrosEncontrados")
 OUTPUT FORM([MisRecetas];"Salida")
 MODIFY SELECTION([MisRecetas];*)

 
PROPIEDADES 

Producto: 4D Write
Tema: WR Gestión de texto
Número 89494

 
HISTORIA 

Creado por: 4D Write 6.5

 
VER TAMBIÉN 

WR Find

 
ARTICLE USAGE

4D Write - Lenguaje ( 4D Write v11.6)
4D Write - Lenguaje ( 4D Write v12)
4D Write - Lenguaje ( 4D Write v14)
4D Write - Lenguaje ( 4D v13)
4D Write - Lenguaje ( 4D Write v14 R2)
4D Write - Lenguaje ( 4D Write v14 R3)
4D Write - Lenguaje ( 4D Write v14 R4)