PEGAR VALORES DELIMITADOS POR VIRGULA

TRTNCG 15/11/2016 16:25:58
#468940
Olá pessoal tenho o seguinte valor:

[txt-color=#0000f0]-7.8887727, -37.1171012[/txt-color]

e preciso pegar os valores, até a vírgula, quero pegar assim

[txt-color=#0000f0]Var1 = -7.8887727[/txt-color]
[txt-color=#8A2BE2]Var2 = -37.1171012[/txt-color]

Tentei alguma forma só que dá type mysmatch

Alguém poderia me ajudar
NICKOSOFT 15/11/2016 17:07:33
#468942
google primeiro resultado, basta saber o q busca
http://www.macoratti.net/10/11/vb_split.htm
JABA 15/11/2016 17:15:33
#468944 
Dim valor As String = [Ô]-7.8887727, -37.1171012[Ô]
        Dim vetor = valor.Split(New Char() {[Ô],[Ô]})
        Dim var1 As Decimal = Convert.ToDecimal(vetor(0).Trim)
        Dim var2 As Decimal = Convert.ToDecimal(vetor(1).Trim)
JCM0867 15/11/2016 23:19:25
#468950 Resposta escolhida
Eu criei uma vez essa rotina para qualquer tipo de delimitador
Ele coloca os valores num array, aí é só fazer como achar melhor com os valores
No exemplo usei o delimitador [Ô]|[Ô], mas pode ser qualquer coisa, no teu caso a virgula
Vê se consegue entender

[txt-color=#0000f0]Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
TextBox1.Text = [Ô]JÚLIO|CRIS|ANA|LÚCIO|SéRGIO|PAULO|PAI|MÃE[Ô]

Dim PosicaoCaracter, ProximaPosicaoCaracter, Tamanho, NumeroCampos As Byte
Dim CaracterSeparador As String = [Ô]|[Ô]

NumeroCampos = 1

For i = 1 To Len(TextBox1.Text)
If Mid(TextBox1.Text, i, 1) = CaracterSeparador Then
NumeroCampos += 1
End If
Next i

Dim Campos(NumeroCampos - 1) As String
ProximaPosicaoCaracter = 0

For i = 1 To NumeroCampos
PosicaoCaracter = ProximaPosicaoCaracter

If i = 1 Then
Tamanho = InStr(PosicaoCaracter + 1, TextBox1.Text, CaracterSeparador) - 1
Else
If i = NumeroCampos Then
Tamanho = Len(TextBox1.Text) - PosicaoCaracter
Else
Tamanho = InStr(PosicaoCaracter + 1, TextBox1.Text, CaracterSeparador) - InStr(PosicaoCaracter, TextBox1.Text, CaracterSeparador) - 1
End If
End If

Campos(i - 1) = Mid(TextBox1.Text, PosicaoCaracter + 1, Tamanho)
ProximaPosicaoCaracter = InStr(PosicaoCaracter + 1, TextBox1.Text, CaracterSeparador)
Next

For i = 0 To NumeroCampos - 1
MsgBox(Campos(i))
Next
End Sub
[/txt-color]




[txt-color=#0000f0]Precisando de um Sistema de Gestão Educacional?[/txt-color]
Desenvolvido em VB.NET + SQL Server + Crystal Reports
Conheça nossa Solução: www.cjsystem.com.br
Tópico encerrado , respostas não são mais permitidas
Voltar