Substring

4D - Documentation   Français   English   German   4th Dimension 2004, Command Theme List   4th Dimension 2004, Command Alphabetical List   4th Dimension 2004, Constant Theme List   Back   Previous   Next

version 3


Substring (source; firstChar{; numChars}) String

ParameterTypeDescription
sourceStringString from which to get substring
firstCharNumberPosition of first character
numCharsNumberNumber of characters to get
Function resultStringSubstring of source

Description

The Substring command returns the portion of source defined by firstChar and numChars.

The firstChar parameter points to the first character in the string to return, and numChars specifies how many characters to return.

If firstChar plus numChars is greater than the number of characters in the string, or if numChars is not specified, Substring returns the last character(s) in the string, starting with the character specified by firstChar. If firstChar is greater than the number of characters in the string, Substring returns an empty string ("").

Examples

1. This example illustrates the use of Substring. The results, described in the comments, are assigned to the variable vsResult.

   vsResult := Substring ("08/04/62"; 4; 2)  ` vsResult gets "04" 
   vsResult := Substring ("Emergency"; 1; 6)  ` vsResult gets "Emerge" 
   vsResult := Substring (var; 2)  ` vsResult gets all characters except ` the first

2. The following project method appends the paragraphs found in the text (passed as first parameter) to a string or text array (the pointer of which is passed as second parameter):

      ` EXTRACT PARAGRAPHS
      ` EXTRACT PARAGRAPHS ( text ; Pointer )
      ` EXTRACT PARAGRAPHS ( Text to parse ; -> Array of ¶s )

   C_TEXT ($1)
   C_POINTER ($2)

   $vlElem:=Size of array($2->)
   Repeat
      $vlElem:=$vlElem+1
      INSERT ELEMENT($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="")

See Also

Position.


4D - Documentation   Français   English   German   4th Dimension 2004, Command Theme List   4th Dimension 2004, Command Alphabetical List   4th Dimension 2004, Constant Theme List   Back   Previous   Next