COPIAR PARTE DE UMA SRING

GDNO 10/05/2014 20:32:58
#438067
Boa noite pessoal,

Seguinte, estou precisando de um comando que copie apenas um pedaço de um texto.

Eu tenho uma textbox, e nela há um caminho, ex: C:\Windows\System32

Qual comando coloco no botão para copiar para outro textbox apenas o que vem depois da ultima barra, no caso [Ô]System32[Ô]?

Obrigado!!!
NILSONTRES 10/05/2014 21:33:27
#438069
Busque por Split.
exemplo: digite no google. [Ô]VB.NET SPLIT[Ô]
Vai encontrar varios exemplos.
PROFESSOR 10/05/2014 23:54:28
#438073
Até onde entendi, no caso específico trata-se de poder manter pasta e nome de arquivo separados, após o usuário ter selecionado, por exemplo. Como você está usando .Net Framework, no namespace IO você encontra o FileInfo, que facilita sua vida nesse aspecto.
Mesmo que o arquivo não exista, um FileInfo te fornece propriedades como DirectoryName, Name, Extension e várias outras, que fazem esse trabalho de separar os componentes do texto com o nome completo do arquivo. Um exemplo:

        Dim ofd As New OpenFileDialog With {.CheckFileExists = False, .Filter = [Ô]Todos os Arquivos (*.*)|*.*;[Ô], .Title = [Ô]Selecione ou digite o nome de um arquivo.[Ô]}
        If ofd.ShowDialog = Windows.Forms.DialogResult.OK Then
            Dim msg As String = [Ô][Ô]
            Dim fi As New IO.FileInfo(ofd.FileName)
            With fi
                msg &= String.Format([Ô]Pasta: {0}{1}[Ô], .DirectoryName, vbNewLine)
                msg &= String.Format([Ô]Nome completo: {0}{1}[Ô], .FullName, vbNewLine)
                msg &= String.Format([Ô]Arquivo: {0}{1}[Ô], .Name, vbNewLine)
                msg &= String.Format([Ô]Extensão: {0}{1}[Ô], .Extension, vbNewLine)
                msg &= String.Format([Ô]Existe? {0}{1}[Ô], IIf(.Exists, [Ô]Sim[Ô], [Ô]Não[Ô]), vbNewLine)
            End With
            MsgBox(msg)
        End If
JCM0867 11/05/2014 01:42:36
#438077 Resposta escolhida
para um numero variável de barras

TextBox1.Text = [Ô]C:\Windows\System32[Ô]
[txt-color=#0000f0]TextBox2.Text = Strings.Right(TextBox1.Text, Len(TextBox1.Text) - InStrRev(TextBox1.Text, [Ô]/[Ô], -1, 1))[/txt-color]

TextBox2.Text será = [Ô]System32[Ô]

- a função InStrRev() informa a ultima posição de um determinado caracater, no caso a Barra

Beleza?


O mundo é um lugar perigoso de se viver, não por causa daqueles que fazem o mal, mas sim por causa daqueles que observam e deixam o mal acontecer.
Albert Einstein
GDNO 11/05/2014 11:53:33
#438082
Exatamente o que eu estava precisando JCM0867 obrigado mesmo cara!!!
Tópico encerrado , respostas não são mais permitidas
Voltar