Realmente Ricardo;
Eu estava procurando chifres na cabeça de cavalos, não deu certo mesmo..
o Eduardo me deu uma ideia com delimitadores, mas não deu certo tambem, pois
separava as palavras com espaços ...
--- Em delphi-br@yahoogrupos.com.br, Ricardo César Cardoso
<ricardo_engs...@...> escreveu
>
> Olá Alexsandro!
>
> Depois que vi sua mensagem ontem fiquei "burilando" a sua necessidade... E
> pesando, acho que abordar como um arquivo Ini é a PIOR alternativa, mesmo que
> seja possível. Tratar como um String é a melhor saída.
>
> O que eu fiz:
>
> * Carreguei o arquivo num TStringList;
> * Copiei o conteúdo da propriedade TStringList.Text para uma variável String
> e em seguida limpei o TStringList;
> * Nessa String chamei "StringReplace" e substitui todas as ocorrências de ";"
> para "; " (ponto e vírgula com um espaço em branco no final) pois havia
> problemas no resultado final
> * Nessa String substituida, apliquei "ExtractStrings" e apontei para colocar
> as strings extraidas no TStringList que usei no começo;
> * Para fazer a localização, usaria TStringList.IndexOf("DataSource=")
>
> A princípio é isso e exceto pelo último passo, fiz uma implementação de
> exemplo (mas que ficou no computador do meu trabalho) mas acho que com essa
> receitinha de bolo, dá pra tentar chegar à alguma coisa. Caso não dê, me
> avisa que na segunda feira eu passo o código.
>
> []'s
> Ricardo.
>
> 1) Evite escrever suas mensagens usando somente LETRAS MAIÚSCULAS.
>
> 2) Revise o texto de sua mensagem. Uma mensagem bem escrita é melhor
> compreendida.
>
> 3) Vamos ajudar o Grupo e o Yahoo! Apague o conteúdo irrelevante!
>
> --- Em sex, 11/9/09, alexsandro_qs <a...@...> escreveu:
>
> De: alexsandro_qs <a...@...>
> Assunto: [delphi-br] Re: Capturar valor em arquivo UDL
> Para: delphi-br@yahoogrupos.com.br
> Data: Sexta-feira, 11 de Setembro de 2009, 17:41
>
>
>
>
>
>
>
>
>
>
>
>
> Obrigado Ricardo;
>
> Eu estou tentando como aquivo ini
>
>
>
> E fiz assim:
>
>
>
> procedure LeIni(var aTexto: string);
>
>
>
> var
>
>
>
> ArqIni: TIniFile;
>
>
>
> begin
>
>
>
> ArqIni := TIniFile.Create( 'c:\arqu1. udl');
>
>
>
> try
>
>
>
> aTexto := ArqIni.ReadString( 'oledb', 'Data source', aTexto);
>
>
>
> finally
>
>
>
> ArqIni.Free;
>
>
>
> end;
>
>
>
> procedure TForm1.Button1Click (Sender: TObject);
>
> var
>
> //cria arquivo ini
>
> ArqIni: TIniFile;
>
> begin
>
> ArqIni := TIniFile.Create( 'c:\arqu1. udl');
>
> try
>
> ArqIni.WriteString( 'oledb', 'Data source', 'aTexto');
>
> finally
>
> ArqIni.Free;
>
> end;
>
>
>
> 2 Problemas:
>
>
>
> 1º Como eu declaro a palavra Data Source ? ( pois tem espaços)
>
> 2º como poderia tratar nesse código o separadar de linhas ";" pois ele esta
> tratando o arquivo todo como se fosse uma linha só. Ele só encontra se eu
> colocar uma linha abaixo da outra
>
>
>
> Ex.:
>
> InitialCatalog= ERP;
>
> Data_Source= www.servidor. com.br
>
>
>
> Se alguem poder me ajudar com isso eu agradeço muito
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
>
> ____________________________________________________________________________________
> Veja quais são os assuntos do momento no Yahoo! +Buscados
> http://br.maisbuscados.yahoo.com
>
> [As partes desta mensagem que não continham texto foram removidas]
>
