ARQUIVO

USUARIO.EXCLUIDOS 11/12/2006 15:21:16
#189325
Caros,

Estou em um loop e a variavel x é carregada com os seguintes conteudos

x = "C:\TESTE\VARIAVEIS\INTEIRAS\ARQUIVO AA.TXT 12:50"
x = "C:\TESTE\VARIAVEIS\GLOBAIS\ARQUIVO BBB.TXT 15:40"
x = "C:\TESTE\VARIAVEIS\GLOBAIS\CICLICAS\ARQUIVO CCDDDD.TXT 22:10"

como faço que a variavel y seja carregada dessa forma: eliminando o prefixo e os arquivos
(os tamanhos e nomes dos arquivos sao variados)

y = VARIAVEIS\INTEIRAS\
y = VARIAVEIS\GLOBAIS\
y = VARIAVEIS\GLOBAIS\CICLICAS\
USUARIO.EXCLUIDOS 11/12/2006 15:38:41
#189329
Olha a rotina ai:


  

Dim x as string, pos as integer, y as String


x = "C:\TESTE\VARIAVEIS\INTEIRAS\ARQUIVO AA.TXT 12:50"
x = "C:\TESTE\VARIAVEIS\GLOBAIS\ARQUIVO BBB.TXT 15:40"
x = "C:\TESTE\VARIAVEIS\GLOBAIS\CICLICAS\ARQUIVO CCDDDD.TXT 22:10"

pos = InStrRev(x, "\")

y =  Mid(x, 1, pos)
HUGOSSOUZA 11/12/2006 15:40:10
#189330
vc tem o nome dos arquivos separados ou ta tudo junto na string mesmo?
HARRY.POTTER 12/12/2006 02:17:58
#189433 Resposta escolhida
Tente assim, amigo:

dim x as string
dim inic as long
dim fim as long

x = "C:\TESTE\VARIAVEIS\GLOBAIS\CICLICAS\ARQUIVO CCDDDD.TXT 22:10"
inic = InStr(1, x, "\variaveis", vbTextCompare) + 1
fim = InStrRev(x, "\")
y = Mid(x, inic, fim - inic)
HARRY.POTTER 16/12/2006 00:38:07
#190330
Deu certo?
Tópico encerrado , respostas não são mais permitidas
Voltar