Re: [delphi-br] Desmembrar string
Tem também o TStringList com DelimitedText... - Original Message - From: Eduardo To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 24, 2007 8:02 PM Subject: Re: [delphi-br] Desmembrar string Ta na mão. function SeparaTexto(pTexto : String; pSeparador : Char) : TStringList; var i : Integer; s : String; begin s := ''; for i := 1 to Length(pTexto) do begin if pTexto[i] pSeparador then s := s + pTexto[i] else begin Result.Add(Trim(s)); s := ''; end; end; end; Eduardo Lucas escreveu: Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas. ___ Yahoo! Mail - Sempre a melhor opção para você! Experimente já e veja as novidades. http://br.yahoo.com/mailbeta/tudonovo/ [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desmembrar string
Jeito mais fácil ainda (não esqueça de declarar a unidade StrUtils em uses):
var
Strings : TStringList;
i : integer;
begin
Strings := TStringList.Create;
try
ExtractStrings(['\'],[' '],Pchar(sua_string),Strings);
//manipula a StringList aqui
finally
Strings.Free;
end;
end;
O procedimento ExtractStrings recebe como parâmetros os seguintes valores:
1º - Caractere separador ('\')
2º - Caractere de espaço em branco (' ')
3º - Sua string (usando PChar(sua_string))
4º - Uma StringList que receberá as strings separadas.
Espero ter ajudado.
Abraço.
Atenciosamente:
Eduardo Cláudio Nicácio
Analista Programador JR.
Fábrica 02 - CTIS
Tel.: (11) 3150-6834
[EMAIL PROTECTED]
- Original Message -
From: Eduardo
To: delphi-br@yahoogrupos.com.br
Sent: Wednesday, January 24, 2007 7:02 PM
Subject: Re: [delphi-br] Desmembrar string
Ta na mão.
function SeparaTexto(pTexto : String; pSeparador : Char) : TStringList;
var
i : Integer;
s : String;
begin
s := '';
for i := 1 to Length(pTexto) do
begin
if pTexto[i] pSeparador then
s := s + pTexto[i]
else
begin
Result.Add(Trim(s));
s := '';
end;
end;
end;
Eduardo
Lucas escreveu:
Preciso desmembrar o caminho de pastas de arquivos, exemplo:
tenho uma string com \pasta1\arquivos\dados
preciso separar isto em 3 strings:
pasta1
arquivos
dados
lembrando que não da pra usar o copy porque os nomes das pastas podem
ser de varios tamanhos. Alguém tem uma dica?
Desde ja agradeço.
Lucas.
___
Yahoo! Mail - Sempre a melhor opção para você!
Experimente já e veja as novidades.
http://br.yahoo.com/mailbeta/tudonovo/
[As partes desta mensagem que não continham texto foram removidas]
[delphi-br] Desmembrar string
Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas.
Re: [delphi-br] Desmembrar string
Monte uma função utilizando copy e pos. Veja no help do Delphi a utilização dessas duas funções. [] Andrei Em 24/01/07, Lucas[EMAIL PROTECTED] escreveu: Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas.
Re: [delphi-br] Desmembrar string
Usa assim: ExtractStrings(['\'], [' '], PChar(String_Caminho), TStrings_Pastas); Onde String_Caminho é a string completa do caminho e TStrings_Pastas é um stringlist, onde vai ficar armazenado as strings. Eduardo. - Original Message - From: Lucas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 24, 2007 4:35 PM Subject: [delphi-br] Desmembrar string Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas. [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desmembrar string
Tem um exemplo de como fazer isso na edição 30 da ActiveDelphi. Mas se vc não assina, basta entrar no google (pai dos que procuram hehehe) e digitar: implode explode delphi Essa procura faz uma alusão as funções do PHP. Irá aparecer bastante links. Abraços, Alessandro. - Original Message - From: Lucas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 24, 2007 3:35 PM Subject: [delphi-br] Desmembrar string Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas. -- E-mail Seguro Vetorial.net Mensagem classificada como NÃO-SPAM. Para classificar como SPAM, encaminhe para [EMAIL PROTECTED] Chave de Identificação: 54568,45b7a8bb881232024311233 [As partes desta mensagem que não continham texto foram removidas]
Re: [delphi-br] Desmembrar string
Olá Amigo, segue o código que você pediu: Você só tem que atribuir à variável Texto o caminho que você quer que desmembre... Nesse caso ele vai jogando os nomes desmembrados para um Memo, mas você pode alterar do jeito que quiser. Mas da pra usar o copy sim... var I, Idx: Integer; Texto: string; begin Texto := '\pasta1\arquivos\dados'; Idx := 1; for I := 2 to Length(Texto) do begin if Texto[I] = '\' then begin Memo1.Lines.Add(Copy(Texto, Idx + 1, I - Idx - 1)); Idx := I; end; if I = Length(Texto) then Memo1.Lines.Add(Copy(Texto, Idx + 1, I)); end; end; P.S.: Não coloquei comentário em linha nenhuma pq não deu tempo, então se surgir dúvida, poste na lista!!! Bom Código Ricardo Berti - Original Message - From: Lucas To: delphi-br@yahoogrupos.com.br Sent: Wednesday, January 24, 2007 4:35 PM Subject: [delphi-br] Desmembrar string Preciso desmembrar o caminho de pastas de arquivos, exemplo: tenho uma string com \pasta1\arquivos\dados preciso separar isto em 3 strings: pasta1 arquivos dados lembrando que não da pra usar o copy porque os nomes das pastas podem ser de varios tamanhos. Alguém tem uma dica? Desde ja agradeço. Lucas. [As partes desta mensagem que não continham texto foram removidas]
