#DEFINE CRLF Chr(13)+Chr(10)User Function Exemplo()Local aExemplo := {1, 2, 3, 4, 5, 6, 7, 8, 9, 10}Local cMensagem := ""//+----------------------------------------------------------------------------+//|Exemplifica o uso da função AScan |//+----------------------------------------------------------------------------+ cMensagem += "Elemento 5 " + CRLF cMensagem += "Em " + cValToChar(AScan(aExemplo, 5)) + CRLF cMensagem += "A partir da posição 6 em " + ; cValToChar(AScan(aExemplo, 5, 6)) + CRLF cMensagem += "A partir da posição 1 procurados em 3 em " + ; cValToChar(AScan(aExemplo, 5, 6, 3)) + CRLF//+----------------------------------------------------------------------------+//|Apresenta uma mensagem com os resultados obtidos |//+----------------------------------------------------------------------------+Return MsgInfo(cMensagem, "Exemplo do AScan")