none
Classificar Dados - VBS RRS feed

  • Pergunta

  • Gurus da Info

    Ajudai este pobre aprendiz

    Estou desenvolvendo em vbscript uma customização de relarório para software chamado E3SERIS. A situação é a seguinte:

    Preciso recuperar algumas informações do software que eu vou chamar de "DADOSTEC1" e "DADOSTEC2" - ETAPA CONCLUIDA

    Criar uma tabela em excel com essa informações - ETAPA CONCLUIDA

    Ordenar essas informações de acordo com os criterios do cliente, ou seja, determinar qual valores devem ser mostrados primeiro

    EXEMPLO:  I0.0, I0.1, I0.2, I1.0, .........,In.n, Q0.0, Q0.1, Qn.n, PIW526, PIW528, ETC

    Observe que o padrao da informção pode mudar e a ordem não é alfabetica. Preciso de algo do tipo "valor começa com"

    Abaixo coloquei o trecho para melhor compreensão:

    For iDev = 1 To nDevices
     dev.SetId DevIds(iDev)
     If dev.IsTerminal = 1 Or dev.IsConnector = 1 Or dev.IsDevice = 1 Then  
      nPins = dev.GetPinCount
      If nPins > 0 Then
       dev.GetPinIds PinIds
       For iPin = 1 To 1
        Pin.SetId PinIds(iPin)
        If dev.HasAttribute(AttCopem) then
         If dev.GetAttributeValue(Comment1Attr) =        then 'PRECISO DE ALGO DO TIPO COMEÇA COM TAL LETRA
          nline = nline + 1
          objExcel.Cells(nline, "A").Value = dev.GetAttributeValue(Comment1Attr)
          objExcel.Cells(nline, "B").Value = dev.GetAttributeValue(Comment2Attr)
         END IF
        End if
       Next
      End if
     End if
    Next

    Espero que tenha conseguido ser claro......eu sei que parece facil, mas aprendo programar nas cabeçadas (os detalhes ficam de pra depois.rsrsrs)

    Valew ....Até +

    quarta-feira, 24 de agosto de 2011 12:41

Respostas

  • Conteudo duplicado!!!
    Edson Matias Fagundes Junior - (Nioks)
    MCP, MCTS: 2008, MCTS:MBS
    Se a resposta for valida por favor vote como útil.
    • Marcado como Resposta jovir quinta-feira, 25 de agosto de 2011 11:57
    • Não Marcado como Resposta jovir quinta-feira, 25 de agosto de 2011 11:58
    • Marcado como Resposta jovir quinta-feira, 25 de agosto de 2011 12:02
    quinta-feira, 25 de agosto de 2011 01:35