Automação na geração de códigos: Lição 3 – Transformando uma string em um vetor.

Para este artigo, consideraremos foi utilizada a opção 1 da Lição 2.

Após a leitura do arquivo .csv, temos uma string que equivale a todo conteúdo da tabela. As linhas são separadas por quebras de linha, e as colunas por um ponto-e-vírgula (;) ou uma vírgula (,), dependendo das configurações de região e idioma do Windows.

Exemplo:

SE1;5201;Driver1;Tag1
SE1;5202;Driver1;Tag2
SE1;5203;Driver1;Tag3
SE2;5204;Driver2;Tag1
SE2;5205;Driver2;Tag2
SE2;5206;Driver2;Tag3
SE3;5207;Driver3;Tag1
SE3;5208;Driver3;Tag2
SE3;5209;Driver3;Tag3

Para separar as informações individualmente (célula por célula), deve-se transformar a string em um vetor. Isto pode ser feito graças ao método Split, do vbScript. Este método possui um parâmetro obrigatório e três opcionais:

Split(expression[, delimiter[, count[, compare]]])

O parâmetro expression deve ser substituído pela string desejada. O parâmetro delimiter indica qual o separador utilizado. Os outros dois parâmetros não são importantes neste caso, e podem ser deixados em branco.

Exemplo de uso:

auxVetor = Split(auxString, vbNewLine)

Neste exemplo, considera-se que a variável auxString está armazenando a string que equivale ao conteúdo da planilha. A constante vbNewLine equivale ao caractere de quebra de linha.

Agora, a variável auxVetor contém um vetor, com tantas posições quantas linhas existiam na tabela:

auxVetor(0) contém a string "SE1;5201;Driver1;Tag1"
auxVetor(1) contém a string "SE1;5202;Driver1;Tag2"
auxVetor(2) contém a string "SE1;5203;Driver1;Tag3"

e assim por diante.

O próximo passo é  separar cada coluna de cada linha. Para isto, deve-se varrer todas as posições do vetor, e executar novamente o método Split, desta vez passando o ponto-e-vírgula (;)  como parâmetro.

Exemplo:

'separo a string em um vetor de linhas
auxVetor = split(auxString, vbNewline)

'para cada linha
for i=0 to Ubound(auxVetor)

'separo a linha em um vetor de células
vetorColunas = split(auxVetor(i), ";")

'salvo as células em variáveis de script
auxSE = vetorColunas(0)
auxEquip = vetorColunas(1)
auxDriver = vetorColunas(2)
auxTag = vetorColunas(3)

   'aqui vai o resto do script automatizado, que utilizará as informações
'organizadas acima para criar/configurar os objetos desejados
'...
'...
'... 

next

NOTA: O padrão de planilha a ser utilizado (quais informações serão salvas, e em qual ordem) fica a critério do usuário. Portanto, o exemplo de script acima irá variar conforme o padrão definido.