POSIT: Como Encontrar o Início de uma Substring (Maintain)

A função POSIT localiza a posição inicial de uma substring dentro de uma string maior. Por exemplo, a posição inicial da sustring DUCT na string PRODUCTION é quatro. Se a substring não estiver na string pai, a função exibirá o valor 0.

Para utilizar esta função, você deve importar a biblioteca de funções MNTUWS. Para obter detalhes, consulte Como Acessar e Chamar uma Função.

Sintaxe: Como Localizar o começo de uma substring

POSIT(parent, substring)

onde:

parent

Alfanumérico

É a string pai.

substring

Alfanumérico

É a substring para a qual achar a posição.

Topo da página

Exemplo: Como Encontrar o Início de uma Substring

POSIT exibe todos os títulos de filmes contendo a palavra ROOF e a posição inicial da string ROOF:

MAINTAIN FILE movies
Module Import (mntuws);
Case Top
For all next Moviecode into stk1
  Where Title Contains 'ROOF';
Compute i/i2=1;
type "    Title       Start Position of word ROOF"
repeat stk1.Foccount
  Compute STK1(i).POS/I3 = POSIT(STK1(I).TITLE, 'ROOF');
  Type "  <STK1(i).Title  <<STK1(I).pos"
  Compute i=i+1;
endrepeat
EndCase
END

A seguir, você encontra valores de exemplo para MOVIECODE e os valores para o resultado da função POSIT:

Title                   Start Position of word ROOF
FIDDLER ON THE ROOF     16
CAT ON A HOT TIN ROOF   18