Pegar uma determinada linha do TXT

Question

Tenho um TXT nesta forma:[b:6790d10370][IP DA REDE]192.168.0.50[LOGIN]sysdba[SENHA]masterkey[/b:6790d10370]Gostaria de pegar os valores que est�o abaixo de cada [b:6790d10370][][/b:6790d10370]. no for...

Aldus · Answer

Fala Vagner,

vc quer guardar as configura��es de conex�o, creio eu.

Por n�o utiliza arquivos ini?

Pra gravar um ini:

procedure DBGravaIni(vrChave,vrCam: string);
var
   ArqConfINI: TIniFile;
begin
   try
      ArqConfINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+�Config.Ini�);
      ArqConfINI.WriteString(�CONFIG�, vrChave, vrCam);
   finally
      ArqConfINI.Free;
   end;
end;

Para ler:

function DBLerIni(vrChave: string): string;
var
   ArqConfINI: TIniFile;
begin
   try
      ArqConfINI := TIniFile.Create(ExtractFilePath(Application.ExeName)+�Config.Ini�);
      Result := ArqConfIni.ReadString(�CONFIG�, vrChave, ��);
   finally
      ArqConfINI.Free;
   end;
end;

Quando inicia vc verifica se existe, se existir, para ler o par�metro SENHA por exemplo vc usar� DBLerIni(�SENHA�) e para gravar da mesma forma DBGravaIni(�SENHA�,�MINHASENHA�).

Mas se quizer usar um txt me avise que te indico como l�-lo.

att

Vagner.oliveira · Answer

Pode ser um arquivo .INI sem problemas, s� quero saber como fa�o pra ler o que aparece depois dos [] ou como os outros arquivos que quando come�am com [b:0bc1049f49];[/b:0bc1049f49] n�o s�o lidos pelo programa

Vagner.oliveira · Answer

Pelas tuas dicas cheguei em como fazer um arquivo .INI:

Muito obrigado pela luz

Criando o arquivo:

procedure TForm1.Button1Click(Sender: TObject);
var
ArqINI :TiniFile;
begin
ArqINI:=TiniFile.Create(ExtractFilePath(Application.ExeName)+�\Config.Ini�);
ArqINI.WriteString(�LOGIN�, �login�, Edit1.text);

// o arq.ini ficar� 
//[SENHA] 
//senha= o valor que esta no Edit2.text
ArqINI.WriteString(�SENHA�, �senha�, Edit2.Text);

ArqINI.Free;
end;

Lendo o arquivo .INI

procedure TForm1.Button2Click(Sender: TObject);
var
ArqINI :TiniFile;
begin
ArqINI:=TIniFile.Create(ExtractFilePath(Application.ExeName)+�\Config.Ini�);

//Caso o arquivo .INI n�o exista ele ser� criado assim:
// [LOGIN] 
//login=digite login
Label1.Caption:= ArqINI.ReadString(�LOGIN�, �login�, �digite login�);
Label2.Caption:=ArqINI.ReadString(�SENHA�, �senha�, �digite senha�);
ArqINI.Free;
end;

F�rum Pegar uma determinada linha do TXT #351166