Entre para seguir isso  
Seguidores 0

Copiar Parte De Uma String

3 posts neste tópico

Postado

olá, pretendo copiar a parte antes e após uma '\' em uma string, não importando o tamanho da string.

ex: string curta : C:\SC2005\SC2005.dbf

atring longa : C:\Documents and Settings\ANDREI\Meus documentos\Delphi\DBIII\TESTE.DBF

(em negrito está a " \ " a qual me referia)

desde já agradeço a ajuda de todos que postarem

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

Como ler uma string de tras pra diante... e como obter o nome do diretório e o nome de um arquivo em uma string (acho que é isso que você quer, não é?)

Procedure TForm1.Button1Click(Sender: TObject);
Var
  cr, lf, sString, sLeft, sRight: String;
  iPos: Integer;
Begin
  cr := chr(13);
  lf := chr(10);
  sString := 'c:\arquivos de programas\delphi6\lib\zeos\readme.txt';
  iPos := Length(sString);
  While (iPos>0) do Begin
    If Copy(sString,iPos,1)='\' then
      Begin
        sLeft  := Copy(sString,1,iPos-1);
        sRight := Copy(sString,iPos+1,Length(sString)-iPos);
        Break;
      End;
    {EndIf If Copy(sString,iPos,1)='\'}
    iPos := iPos-1;
  End;{While (iPos>0)}
  ShowMessage('Original='+sString+cr+
              'Parte esquerda='+sLeft+cr+
          'Parte direita='+sRight);

  // Mas, você bem que podia usar isso:

  sLeft  := ExtractFileDir(sString);
  sRight := ExtractFileName(sString);
  ShowMessage('Agora, veja: '+cr+
              'Parte Esquerda = '+sLeft+cr+
              'Parte direita = '+sRight+cr+
              'Ok?');
End;

Ok?

Olha... uma boa coisa a fazer, independente da linguagem e do ambiente que você está usando, é procurar, no próprio help do software, palavras que correspondam ao que você está querendo...

No caso do Delphi, filedir, filename, getcurrentdir, etc... levariam você a identificar a função...

No caso, como estas funções estão na unit Sysutils (que, diga-se de passagem, tem realmente um montão de funções úteis), uma olhada na guia "see also" de qualquer coisa que você pesquise na ajuda, irá levá-lo a descobrir recursos que você nem imaginava descobrir...

Ok?

Compartilhar este post


Link para o post
Compartilhar em outros sites

Postado

aí vlw, dúvida resolvida :D

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!


Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.


Entrar Agora
Entre para seguir isso  
Seguidores 0