Exemplos de script

Parent Previous Next

EXEMPLOS DE SCRIPT


Aqui temos alguns exemplos de script que podem ser utilizados:

Calcular a média de diversas variáveis

Calcular uma média ponderada

Criar uma escala não linear

Qualificar um indivíduo pelo número de não respostas

Contar o número de caracteres em um texto

Combinar as respostas de uma questão Outro

Substituir não respostas pela média

Substituir uma não resposta pela categoria mais citada

Calcular o número de ocorrências de uma letra ou palavra

Criar um valor aleatório

Apagar texto que estiver entre parênteses

Acrescentar um número ao telefone

Modificar a data/hora com fuso horário

Encontrar as combinações de uma fechada múltipla




Calcular a média de diversas variáveis

Mean("V1;V3;V5-V7")


Calcular uma média ponderada

Este script permite calcular a média ponderada de 5 notas, gerenciando o fato de haver alguma não-resposta

tot = 0

nb = 0

If Not V1.IsNull Then

   tot = tot + 2 * V1

   nb = nb + 2

EndIf

If Not V2.IsNull Then

   tot = tot + 5 * V2

   nb = nb + 5

EndIf

If Not V3.IsNull Then

   tot = tot + 3 * V3

   nb = nb + 3

EndIf

If Not V4.IsNull Then

   tot = tot + 3 * V4

   nb = nb + 3

EndIf

If Not V5.IsNull Then

   tot = tot + 3 * V5

   nb = nb + 3

EndIf

If nb <> 0 Then

   V = tot / nb

EndIf


Criar uma escala não linear

If V1 = 1 Then

  V = 0

ElseIf V1 = 2 Then

  V = 5

ElseIf V1 = 3 Then

  V = 10

ElseIf V1 = 4 Then

  V = 20

EndIf


Qualificar um indivíduo pelo número de não respostas

n = 0

If V1.IsNull Then

  n = n + 1

EndIf

If V2.IsNull Then

  n = n + 1

EndIf

If V3.IsNull Then

  n = n + 1

EndIf

If V4.IsNull Then

  n = n + 1

EndIf

If V5.IsNull Then

  n = n + 1

EndIf

V = n


Contar o número de caracteres em um texto

Len(V22)


Combinar as respostas de uma questão Outro

If V5 Like "Outro" Then

  V = V6

Else

  V = V5

EndIf


Substituir não respostas pela média

If V1.IsNull Then

  V1 = V1.Mean

EndIf


Substituir uma não resposta pela categoria mais citada

If V1.IsNull Then

  V1 = V1.Mode

EndIf


Calcular o número de ocorrências de uma letra ou palavra

Para utilizar este script, substitua o caractere desejado na linha Caractere. Também pode ser utilizado em conjunto com a função Chr(n).


TextoAntes = V1

Caractere = "p"

NodeVezes = 0

indice = 1

ResultadoDesejado = 3


Do While indice <> 0

   indice = InStr(TextoAntes,Caractere)

    If indice > 0 Then

       NodeVezes = NodeVezes + 1

       TextoAntes = SousChaîne(TextoAntes,indice)

   EndIf

Loop

Select Case ResultadoDesejado

Case 1

   V = NodeVezes

Case 2

   V = TextoAntes

Case 3

   V = Str(NodeVezes) & ":" & TextoAntes

EndSelect


Criar um valor aleatório

Rnd(0,50)


Apagar texto que estiver entre parênteses

entreparenteses = Replace(v1,"\([^\)]*\)","¤")

v = entreparenteses

A baliza pode ser configurada, veja o exemplo abaixo para substituir tudo que estiver entre hifens.

entrehifen = Replace(v1,"\-[^\)]*\-","¤")

v = entrehifen


Acrescentar um número ao telefone

If Len(V1) = 8 Then

   V ="9" & V1

Else

  V = V1

EndIf


Modificar a data/hora com fuso horário

A data de entrada, para pesquisas via internet, será a do servidor. Em alguns casos será necessário modificar para que todos tenham a data e hora local, desta forma, uma "parte" da data será subtraída. No exemplo abaixo, -5 horas do fuso do servidor.

ch=V1 - 5/24


Encontrar as combinações de uma fechada múltipla

ch = Replace(V1," ; ","_")

V = ch





Created with the Personal Edition of HelpNDoc: Produce Kindle eBooks easily