Histórico da Página

#---------------------------------------#
 FUNCTION strToDynArrayBySize_test()
#---------------------------------------#
  DEFINE l_text    CHAR(100)
  DEFINE la_values ARRAY[] OF CHARVARCHAR(7)
  DEFINE l_idx     SMALLINT

  #Separar os valores encontrados num conteúdo texto, usando o delimitador como "|"
  LET l_text = "123456 8901234567 9012345678 0"
  CALL _ADVPL_strToDynArrayByTokenstrToDynArrayBySize(l_text,la_values,7)

  CALL conout("TOTAL DE VALORESBLOCOS ENCONTRADOS = "||arrayLength(la_values)||" LINHAS")

  FOR l_idx = 1 TO arrayLength(la_values)
      CALL conout("Valor "||LOG_alltrim(l_idx)||" = ["||la_values[l_idx] CLIPPED]||"]")
  END FOR 
END FUNCTION