4D Doc Center : Substring

4D v13.4

Substring


Substring ( fuente ; aPartirDe {; numCaracteres} ) -> Resultado

Parámetro	Tipo	Descripción
fuente	Cadena	Cadena de la cual obtener una subcadena
aPartirDe	Entero largo	Posición del primer carácter
numCaracteres	Entero largo	Número de caracteres a obtener
Resultado	Cadena	Subcadena de fuente

Descripción

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

El parámetro aPartirDe 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 ("").

Ejemplo 1

Este ejemplo ilustra la utilización de Substring. Los resultados se asignan 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

Ejemplo 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="")