Histórico da Página

#---------------------------------------#
 FUNCTION strToDynArrayByToken_test()
#---------------------------------------#
  DEFINE l_text    CHAR(1000100)
  DEFINE la_values ARRAY[] OF CHAR(5)
  DEFINE l_idx     SMALLINT

  #Separar os valores encontrados num conteúdo texto, usando o delimitador como "|"
  LET l_text = "AAA|BBB|CCCC|DDDDD|EE|"
  CALL _ADVPL_strToDynArrayByToken(l_text,la_values,'|')

  CALL conout("TOTAL DE VALORES 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