Jump to content
iD@nny !

Remover dados de uma String

Recommended Posts

iD@nny !

Bom dia a todos os programadores,

Recebo do output da linha de comandos, algo genero:

Carro: 124
Satélite: e323f
Rádio: 324wq

Eu gostava, de pegar nesse resultado (depois de já passado para uma string) e recolher apenas o resultado do Satélite ou seja, de toda a string eu apenas quero ficar com o e323f.

Alguém tem alguma dica de como posso fazer isso ?

Edit: O resultado da string é sempre diferente, mas as palavras (carro, satélite e rádio) são sempre as mesmas.

Obrigado,

Daniel Cardoso

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Tenta assim

Dim frase As String
frase = "Carro: 124" + vbNewLine + "Satélite: e323f" + vbNewLine + "Rádio: 324wq"

Dim obj() As String

obj = Split(frase, "Satélite: ")
obj = Split(obj(1), "Rádio:")
MsgBox obj(0)


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
iD@nny !

Boas, muito obrigado pela tua rápida resposta, mas ainda estou aqui com um problema.

Eu não tenho controlo como os dados são apresentados, mas o output já vem divido em diferentes linhas.

Mas o problema não está aí, o problema está no erro que me dá:  "Value of type '1-dimensional array of String' cannot be converted to 'String'."

Terei de converter a string para outro formato ?

Obrigado,

Daniel

Share this post


Link to post
Share on other sites
Andrepereira9

Boas

Mostra como é que tens o código, e como é que recebes o output


A informática chegou para resolver problemas que antes não existiam

Quem ri por último é porque está conectado a 52 Kbs.

Share this post


Link to post
Share on other sites
iD@nny !

Problema resolvido, já consegui resolver:

RoProductDevice = Split(Android, Environment.NewLine)
        Debug.WriteLine("For Each...")
        For Each Me.productdevice In RoProductDevice
            If productdevice.Contains("[satélite]") Then
                Dim ns() As String = productdevice.Split(":")
                productdevice = ns(1).Replace("[", "").Replace("]", "").Replace(" ", "")
                MsgBox(productdevice)
            End If
        

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now

×
×
  • Create New...

Important Information

By using this site you accept our Terms of Use and Privacy Policy. We have placed cookies on your device to help make this website better. You can adjust your cookie settings, otherwise we'll assume you're okay to continue.