AJUDA COM CAMINHO DE PASTA

CARINHENA 08/06/2005 12:01:49
#87675
Bom... é uma duvida pelo jeito simples, mas, ainda não tenho muita "liberdade" com manipulação sw numeros.
Portanto vou pedir um dica.. mas.. gostaria por gentileza, de que explicassem como fazer, ou seja, qual foi a metodologia pra que caso tenha alguma duvida do tipo, possa resolver sózinho.

Tenho esse nome:

c:\NovaPasta\PastaDoPrograma\

Como faço pra retirar o ultimo "\" e que fique assim:
"c:\NovaPasta\PastaDoPrograma"

Ou seja, com é a metodologia pra "voltar" até aonde desejar e retirar da palavra aquilo que não quer?

Obrigado pela Ajuda
ALEXANDRE.SANTO 08/06/2005 12:25:33
#87679
vPalavra = "c:\NovaPasta\PastaDoPrograma\"

vTam = Len ( vPalavra )

vPalavra = Left (vPalavra, vTam - 1)


Olha a funcao LEN server para pegar o numero de caracter existente numa string......e a funcao Left.........pega o texto comecando pela esquerda da string..........entao o que eu fiz .....peguei o texto da esquerda ate o numero de caracter e subtrai por 1 para eliminar a " / "

espero ter ajudado !!!
JEAN.JEDSON 08/06/2005 13:23:36
#87693
Resposta escolhida
ou simplificando em apenas uma linha e sem a variável vTam:

vPalavra=Left(vPalavra,Len(vPalavra)-1)
USUARIO.EXCLUIDOS 08/06/2005 14:27:02
#87712
Para retirar da esquerda ou da direita do texto, você pode usar LEFT e RIGHT

Para verificar um valor específico no MEIO do texto, use a função MID

Para trocar caracteres em qualquer parte do texto, use a função REPLACE...
CARINHENA 08/06/2005 17:15:49
#87817
Entendi... bacana essas dicas.

Valeu pela ajuda.
CARINHENA 08/06/2005 21:28:47
#87887
Pessoal.. entendi.. como se faz... porem.. isso é de maneira fixa.. e se for alguma string que varie?

exemplo

\\Servidor\Pasta1\Pasta2

como então.. descobrir o terceiro "\"?

e que retorne:
\\Servidor\


Sabendo que pode ser esse caminho pode mudar, porem, ha uma lógica que sempre sera o terceiro "\" ?



WHELLNET 09/06/2005 07:10:17
#87904
Resposta escolhida
Ae é só vc verificar primeiro
If Right(Caminho, 1) = "\" Then Caminho = Mid(Caminho, 1, Len(Caminho) - 1)



USUARIO.EXCLUIDOS 09/06/2005 14:33:59
#88023
tá ae cara

texto = "c:\NovaPasta\PastaDoPrograma\"
tamanho = Len(texto)
palavra = Left(texto, tamanho - 1)
SERGIO.CARDOSO 09/06/2005 15:28:23
#88046
Uma ajuda que pode ser boa é a seguinte:

barras=0
for a=1 to len(Texto)
if meio(texto,1,a)='\' then
barras = barras + 1
if barras = 3 then
texto = meio(texto,1,a)
exit for
end if
end if
next a

Assim, desta maneira, voce podera achar qualquer string dentro dos textos, e manipula-los a vontade.
Tópico encerrado , respostas não são mais permitidas