Separando os caracteres de um texto utilizando um separador.

Descrição:

Uma aplicação comunica com uma lista ou arquivo onde existem valores separados por um caractere. Exemplo: “valor1, valor2, valor3, valor4, …”. Como acessar estes valores independentemente?

Solução:

No evento desejado, utilizar o script abaixo:

Dim charPos, inicio, opcao, separador, textoOriginal

Screen.Item(“ComboBox1”).Clear()

textoOriginal = Screen.Item(“TextBox1”).Value
separador = Screen.Item(“Texto2”).Value

charPos = 1
inicio = charPos

Do While charPos < Len(textoOriginal)

opcao = “”

if Mid(textoOriginal, charPos, 1) = separador Then
opcao = Mid(textoOriginal, inicio, charpos – inicio)
opcao = Trim(opcao)
inicio = charPos + 1
End If

charPos = charPos + 1

if charPos = Len(textoOriginal) Then
opcao = Mid(textoOriginal, inicio, charpos – inicio + 1)
opcao = Trim(opcao)
End If

if opcao <> “” Then
Screen.Item(“ComboBox1”).AddItem opcao
End if
Loop

Para ver o código comentado e funcionando, baixe a aplicação exemplo anexa a este artigo.

Anexos:

SeparaVirgula.zip

Anexos:

Leave a Reply Cancel reply