EXCLUIR CERTO TIPO DE CARACTER DE UMA VARIAVEL

USUARIO.EXCLUIDOS 17/08/2007 17:14:48
#231444
Estou querendo exluir esse caracater que parece uma barra de dentro de uma variável. A Screen tá anexada.

Tem como?
USUARIO.EXCLUIDOS 17/08/2007 17:24:31
#231447

Cara, se n me falhe a memória, esse caracter é o Enter

tem como vc postar o código q preenche essa variavel?
USUARIO.EXCLUIDOS 17/08/2007 17:37:38
#231450
é que tipo assim:

eu to pegando a tag de um arquivo mp3.
Os campos Nome da musica, artista e album tem 30 caracteres. aí eu fiz uma estrutura assim:

Public Type IdTag
id As String * 3
titulo As String * 30
artista As String * 30
album As String * 30
ano As String * 4
comentario As String * 30
genero As Byte
caminho As String
End Type

O que acontece é que se eu nao definir o tamanho das variáveis dentro da estrutura, o programa nao consegue pegar as informacoes, porque elas ficam vazias.

Quando eu mando o programa adicionar o conteudo da variavel no banco de dados, se o nome do artista ou musica tiver menos de 30 caracteres, parece que completa com um espaco em branco. tava querendo ver se tem jeito de tirar esse caracter, que deve ser um espaco em branco ou coisa assim.
USUARIO.EXCLUIDOS 17/08/2007 17:47:07
#231451
complicado hein

vou fazer um teste aki...ja coloco
USUARIO.EXCLUIDOS 17/08/2007 17:51:42
#231452

Olha...se vc declarar a variavel normalmente sem o Type

Dim Título as String * 30..desta forma...vai preencher o restante com espaço..sim

daí vc faz assim

Variavel..seil la = Trim(Título)..o trim retira os espaços das extremidades dos dois lados..entendeu?

boa sorte..tenta ae
USUARIO.EXCLUIDOS 17/08/2007 20:27:07
#231474
Tenta colocar o nome da variavel e LTrim() ou RTrim

Concerteza ira funcionar

Att,

Marcelo Bressan
GERMANO 17/08/2007 22:27:42
#231478
Cara tenta essa função que vai tirar os caracteres...

Private Function TiraCar(Text As String) As String
Dim Pos As Long
    Pos = InStr(Text, Chr$(0))
    If Pos > 0 Then
        TiraCar = Left(Text, Pos - 1)
    Else
        TiraCar = Text
    End If
End Function
USUARIO.EXCLUIDOS 18/08/2007 07:24:30
#231487 Resposta escolhida
replace(trim(variavel),chr(0),"")

'ou

dim v as variant,s as string
if instr(1,variavel,chr(0)) then
v =split(variavel,chr(0))
s = v(lbound(v))
else
s = variavel
endif
s = trim(s)
USUARIO.EXCLUIDOS 18/08/2007 11:55:51
#231499
Vlw Galera, muito obrigado, eu consegui fazer aki!
Tópico encerrado , respostas não são mais permitidas
Voltar