Substring

4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente

versión 3


Substring (fuente; aPartirDe{; numCars}) Alfa

ParámetroTipoDescripción
fuenteAlfaCadena de la cual obtener una subcadena
aPartirDeNuméricoPosición del primer carácter
numCarsNuméricoNúmero de caracteres a obtener
ResultadoAlfaSubcadena de fuente

Descripción

El comando Substring devuelve la parte de fuente definida por aPartirDe y numCars.

El parámetro aPartir de indica el primer carácter de la cadena a devolver, y numCars define el número de caracteres a devolver.

Si aPartirDe más numCars es mayor que el número de caracteres en la cadena o si numCars no está especificado, Substring devuelve todos los caracteres de la cadena a partir del carácter especificado por aPartirDe. Si aPartirDe es superior al número de caracteres en la cadena, Substring devuelve una cadena vacía ("").

Ejemplos

1. Este ejemplo ilustra la utilización de Substring. Los resultados son asignados a la variable vsResult.

   vsResult := Substring ("08/04/62"; 4; 2)  ` vsResult toma el valor "04" 
   vsResult := Substring ("Emergencia"; 1; 6)  ` vsResult toma el valor "Emerge" 
   vsResult := Substring (var; 2)  ` vsResult toma el valor de todos los caracteres excepto el primero

2. El siguiente método de proyecto añade los párrafos que se encuentran en el texto (pasado como primer parámetro) a una array de tipo texto o alfa (cuyo puntero se pasa como segundo parámetro):

      ` EXTRACT PARAGRAPHS
      ` EXTRACT PARAGRAPHS ( texto ; Puntero )
      ` EXTRACT PARAGRAPHS ( Texto a analizar ; -> Array de párrafos )

   C_TEXT ($1)
   C_POINTER ($2)

   $vlElem:=Size of array($2->)
   Repeat
      $vlElem:=$vlElem+1
      INSERT IN ARRAY($2->;$vlElem)
      $vlPos:=Position(Char(Carriage return);$1)
      If ($vlPos>0)
         $2->{$vlElem}:=Substring($1;1;$vlPos-1)
         $1:=Substring($1;$vlPos+1)
      Else
         $2->{$vlElem}:=$1
      End if
   Until ($1="")

Ver también

Position.


4D - Documentation   Français   English   German   Español   English   4D v11 SQL, Comandos por temas   4D v11 SQL, Lista alfabética de comandos   4D v11 SQL, Constantes por temas   Regresar   Anterior   Siguiente