Ir para conteúdo


Foto

Copiar Parte De Uma String


2 respostas neste tópico

#1 deio

deio
  • Membros
  • 54 posts

Postado 30 April 2007 - 16:33 PM

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

#2 paulobergo

paulobergo
  • Membros
  • 305 posts
  • Gender:Male
  • Location:MG,Juiz de Fora
  • Interests:Tudo!<br>Profissionalmente, automação comercial, levantamento rodoviário (gps, mapas).

Postado 30 April 2007 - 16:53 PM

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 é?)

CODE
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?

Não se vê bem com insolação... é essencial cobrir os olhos...

#3 deio

deio
  • Membros
  • 54 posts

Postado 30 April 2007 - 17:37 PM

aí vlw, dúvida resolvida biggrin.gif



Responder



  


0 usuário(s) está(ão) lendo este tópico

0 membros, 0 visitantes, 0 membros anônimos