• 0
Sign in to follow this  
deio

Copiar Parte De Uma String

Question

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

Share this post


Link to post
Share on other sites

2 answers to this question

Recommended Posts

  • 0

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?

Share this post


Link to post
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

Sign in to follow this