4D View Pro: Encontrar e substituir por código

Por vezes, quando se inicializa um documento 4D View Pro, é necessário encontrar alguns valores ou etiquetas no mesmo e substituí-los por dados emitidos a partir de 4D. Agora é uma brisa com a VP Find comando. Graças a este comando, é possível encontrar dados, uma fórmula, ou uma etiqueta e substituí-los na folha inteira ou apenas numa parte específica da mesma!

Vamos descobrir como.

HDI VP Find

O VP Find permite pesquisar um valor de texto dentro de um intervalo designado num texto, fórmulas ou tags de um documento 4D View Pro.

Por exemplo, se quiser efectuar uma pesquisa sensível ao caso para a primeira ocorrência da palavra “Total” no texto das células:

$range:=VP All("ViewProArea")
// find the first cell that contains the word 'Total' in the current sheet
$result :=VP Find($range; "Total")
// Make the cell background yellow for the found cells
VP SET CELL STYLE ($result; New object("backColor"; "yellow"))

Agora pode refinar a sua pesquisa para encontrar todas as células que contenham “Total”, utilizando o comando all propriedade:

$range:=VP All("ViewProArea")
$condition :=New object
// Search in all values in the range
$condition .all:=True
// Find all cells containing the word 'Total' in the current sheet
$result :=VP Find($range; "Total"; $condition)
// Make the cell background yellow for the found cells
VP SET CELL STYLE ($result; New object("backColor"; "yellow"))

• Se quiser efectuar uma pesquisa por “Total” sem ter em conta o caso, basta modificar o flags propriedade:

$range:=VP All("ViewProArea")
$condition :=New object
// Search the entire sheet
$condition .all:= Verdade
// Search cells containing the word "Total" without considering the case
$condition .flags:=vk find flag ignore case
VP Find // Find all cells containing only the word 'Total' in the current sheet
$result := ($range; "Total"; $condition)
// Make the cell background yellow for the found cells
VP SET CELL STYLE ($result; New object("backColor"; "yellow"))


• Se quiser substituir todas as palavras “Total” por “4D”, adicione um parâmetro com o texto de substituição:

$range:=VP All("ViewProArea")
$condition :=New object
// Search the entire sheet
$condition .all:= Verdade
// Search cells containing the word "Total" without considering the case
$condition .flags:=vk find flag ignore case
VP Find // Replace text in all cells containing only 'Total' with "4D"
$result := ($range; "Total"; $condition; "4D")
// Make the cell background yellow for the found cells
VP SET CELL STYLE ($result; New object("backColor"; "yellow"))

Evidentemente, estas são apenas algumas das possibilidades permitidas pelo VP Find comando.

Saiba mais no centro doc para saber mais, como encontrar valores com cartões selvagens, pesquisar em fórmulas, e muito mais.