Ir para o conteúdo
Gramas

[Resolvido] Espaços

Mensagens Recomendadas

Gramas    0
Gramas

Boa Tarde

tenho uma string do tipo "aaa aaa,    aaa   , aaaa   ,  aaaaaa, aaaa aaaa".

Gostaria de saber se existe alguma forma de se tirar os espaços dessa string de modo a ela ficar do tipo "aaa aaa,aaa,aaaa,aaaaaa,aaaa aaaa".

Ou seja retirar so os espaços entre as virgulas e as letras. ja tentei assim:

Dim texto As String = TextBox1.Text.Trim

        texto = texto.Replace(" ", String.Empty)

        Dim matriz() As String

        matriz = texto.Split(",")

Mas ela retirame o espaço entre o aaa aaaa também.

Desde já obrigado

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites
anolsi    16
anolsi

Public Function Limpa(ByVal x As String) As String
        Dim r As String() = x.Split(","c)
        x = ""
        For Each aux As String In r 
               x &= aux.Trim() & "," 
        Next
        Return x.Substring(0, x.Length - 1)
End Function

Parece-me que isto faz o que queres.

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!

Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.

Entrar Agora


×

Aviso Sobre Cookies

Ao usar este site você aceita os nossos Termos de Uso e Política de Privacidade