Ayuda con archivo txt

[eennzzoo]

Hola, tengo un problema. Lo que quiero hacer es que cuando ingrese en un edit el numero de documento, lo busque en un
archivo.txt y me traiga toda informacion que hay hay el primer punto que encuentre.

el archivo contiene esto
55555555 Carlos Sanchez Argentina. 888888888 Pedro Vazques Chile. 6666666 Julian Cacho Uruguay.

En el boton tengo esto

void __fastcall TForm2::Button2Click(TObject *Sender)
{
        char linea[128];
        char linea3[123]="";
        AnsiString linea2;
        ifstream archi("datos.txt");
        string documento;
        documento=Edit4->Text.c_str();
        int docu;
        while(!archi.eof())
        {
                archi.getline(linea,sizeof(linea));
                for (int i=0;i<strlen(linea);i++){
                        if (linea[i]==documento[i]){
                        docu=i;
                        }
                }
                for (int i=docu;i<strlen(linea);i++){
                        if (linea[i]!='.'){
                        linea3[i]=linea3[i]+linea[i];
                        }
                }
        }
        Edit3->Text=linea3;
        archi.close();
}

Si pueden ayudarme se los agradezco.

[ecfisa]

Hola eennzzoo y bienvenido a Club Delphi

Como a todos los que se inician te invitamos a que leas nuestra guía de estilo.

Un modo de hacerlo es:

bool SearchByDoc(String aText, String Searched, String &Found)
{
  TStrings *Split = new TStringList;
  String s;

  Split->Text = aText;
  ExtractStrings(TSysCharSet() << '.', TSysCharSet() << '\0', aText.c_str(), Split);
  Split->Delete(0);
  for(int i = 0; i < Split->Count; i++) {
    s = Split->Strings[i];
    if (s.SubString(0, s.Pos(" ")-1) == Trim(Searched)) {
      Found = Split->Strings[i];
      return true;
    }
  }
  delete Split;

  return false;
}

Ejemplo de llamada:

void __fastcall TForm1::Button1Click(TObject *Sender)
{
  TStrings *Arch = new TStringList;
  String Datos;

  Arch->LoadFromFile("Archivo.txt");
  if (SearchByDoc(Arch->Text, Edit1->Text, Datos))
    ShowMessage(Datos);
  else
    ShowMessage("No encontrado");  

  delete Arch;
}

Saludos

[eennzzoo]

Gracias lo voy a probar.

[eennzzoo]

Que raro me devuelve la ventana diciendo no encontrado.
SearchByDoc(Arch->Text, Edit4->Text, Datos)
En ese edit le paso el documento que ingreso.

[ecfisa]

Hola.

Seguramente sea por que en tu archivo existe un espacio antes del número de documento (o después del punto), se soluciona quitándolo antes de la comparación:

bool SearchByDoc(String aText, String Searched, String &Found)
{
  TStrings *Split = new TStringList;
  String s;

  Split->Text = aText;
  ExtractStrings(TSysCharSet() << '.', TSysCharSet() << '\0', aText.c_str(), Split);
  Split->Delete(0);
  for(int i = 0; i < Split->Count; i++) {
    s = Trim(Split->Strings[i]);
    if (s.SubString(0, s.Pos(" ")-1) == Trim(Searched)) {
      Found = Split->Strings[i];
      return true;
    }
  }
  delete Split;

  return false;
}

Saludos