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.
