+ Rispondi al messaggio
Visualizzazione dei risultati da 1 a 10 su 10

Estrarre dati da file di testo

  1. #1
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    avrei la neccessità di pescare un dato da un file txt pero' invece di recuperarlo in base alla riga avrei la neccessità di recuperarlo in base a un identificatore nel file stesso es: un file.txt del genere :

    HOSTNAME: 10.XXX.XXX.XXX
    NOMEUTENTE: root
    DATABASE: pippo
    PASSWORD: Prova

    ecco io non avrei neccessita di tutta la riga es: NOMEUTENTE: root , ma solo di root .


    qualche consiglio ?
    ℹ️ Leggi di più su queen_live78 ...

  2. Se puoi fare il file in questo modo:
    HOSTNAME=10.XXX.XXX.XXX
    NOMEUTENTE=root
    DATABASE=pippo
    PASSWORD=Prova
    puoi caricare il file in una stringlist e accedere al dato per nome:

    var
      sl: TStrings;
    begin
      sl := TStringList.Create;
      try
        sl.LoadFromFile(AfileName);
        ShowMessage(sl.Values['NOMEUTENTE']);
      finally
        sl.Free;
      end;
    end;
    
    Altrimenti devi leggerti il file riga per riga, prendere quello che sta prima del ":", vedere cos'é ecc. ecc. Puoi sempre usare una StringList e navigare con l'indice in tutti gli elementi.
    ℹ️ Leggi di più su cyberlaundry ...

  3. #3
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Grazie gentilissimo come sempre !!!
    ℹ️ Leggi di più su queen_live78 ...

  4. #4
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Ciao non so dove sto sbagliando allora , io ho una combobox in cui posso selezionare diversi file pescati da una sottocartella in cui e' installato il programma

    es: visualizzo questi file :

    Italiano.txt
    Inglese.txt
    Francese.txtx etc etc

    fin qui nessun problema ora devo fare il modo di passare il nome selszionato nella combobox che poi infine sarebbe il nome del file da cui voglio prelevare i parametri come sopra io ho fatto cosi' :


    procedure TForm1.ComboBox1Select(Sender: TObject);


    var
    sl: TStrings;
    selectedFileName:string;
    begin



    selectedFileName:=ComboBox1.Text;
    sl := TStringList.Create;
    try
    sl.LoadFromFile(selectedFileName);
    ShowMessage(sl.Values['NOMEUTENTE']);
    finally
    sl.Free;
    end;


    non mi esce nessun errore ma non mi esce neanche il valore assegnato a NOMEUTENTE
    ℹ️ Leggi di più su queen_live78 ...

  5. Bisognerebbe vedere il contenuto del file "selectedFileName".
    Non è che nella stringa manca la path completa?
    Vai in debug, verifica che la variabile sia inizializzata al valore giusto.
    Poi posta qui il contenuto del file (o almeno la parte che contiene NOMEUTENTE).
    ℹ️ Leggi di più su cyberlaundry ...

  6. #6
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    no no , tanto e' vero che per fare una prova per vedere se pescava il file corretto ho fatto cosi'
    :


    ti posto tutto cosi' capisci meglio :


    procedure TForm1.FormCreate(Sender: TObject);


    var
    sr: TSearchRec;
    vFileName:string;

    begin

    //Ora cerco nella cartella di root qualsiasi file ha estenzione " lng " (il nostro file lingua)

    if FindFirst(ExtractFilePath(Application.ExeName)+'la nguage\*.lng',faDirectory, sr) = 0 then begin

    repeat
    vFileName:=sr.Name;
    if (sr.Attr and faArchive) = sr.Attr then begin
    // ora inserisco il risultato della ricerca dei file in un oggetto Tcombobox




    combobox1.Items.Add(vFileName)



    end;
    until FindNext(sr) <> 0;
    end;
    FindClose(sr);
    end;

    procedure TForm1.ComboBox1Select(Sender: TObject);


    var
    sl: TStringlist;
    languagedata : String;

    /// definisco selectedfilename di tipo stringa
    selectedFileName:string;
    begin


    // dischiaro selectedfilename come risultato del valore selezionato dalla combobox
    selectedFileName:=ComboBox1.Text;
    sl := TStringList.Create;
    try


    /// carico il file specificando il percorso della sottocartella ed il nome del file dichiarato prima con selectedname
    sl.LoadFromFile('language\'+ selectedFileName);









    ///mostro a video il risultato del parametro interrogato dal file

    languagedata := sl.Values['NOMEUTENTE'];

    ShowMessage(languagedata);
    finally
    sl.Free;
    end;


    /////////////////////////////////////////////////

    ok se ora al posto di ShowMessage(languagedata); inserisco
    ShowMessage(selectedFileName);


    nello showmessage visualizzo correttamente il nome del file selezionato dalla combobox che a sua volta era stato prelevato dalla cartella







    end;
    ℹ️ Leggi di più su queen_live78 ...

  7. #7
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    il contenuto del file italian.lng ( che e' un file di testo ) è questo :

    NOMEUTENTE: PIPPO
    NOMEDATABASE: MARIO
    ℹ️ Leggi di più su queen_live78 ...

  8. #8
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    non mi sembra ci siano errori
    eppure lo showbox lo restituisce vuoto invece di restituirmi il valore PIPPO
    ℹ️ Leggi di più su queen_live78 ...

  9. Quote Originariamente inviato da queen_live78 Visualizza il messaggio
    NOMEUTENTE: PIPPO
    NOMEDATABASE: MARIO
    Ti avevo scritto che il file doveva essere nel formato
    NOMEUTENTE=PIPPO
    NOMEDATABASE=MARIO
    Altrimenti NON PUOI USARE StringList.Value
    ℹ️ Leggi di più su cyberlaundry ...

  10. #10
    L'avatar di queen_live78
    queen_live78 non è in linea Scribacchino
    Che errore non me ne sono proprio accorto , ero preso dalla procedura ed alla fine ho tralasciato il file . Grazie mille
    ℹ️ Leggi di più su queen_live78 ...

+ Rispondi al messaggio

Potrebbero interessarti anche ...

  1. Estrarre testo tra parentesi tonde in file TXT
    Da B9matteo nel forum Microsoft Access
    Risposte: 2
    Ultimo Post: 29-08-2016, 18:43
  2. Estrarre dati da un set di file di testo con VBA
    Da matto666 nel forum Microsoft Excel
    Risposte: 3
    Ultimo Post: 21-04-2015, 15:46
  3. Convertire o estrarre da un file PDF il testo contenuto
    Da CarloFocarelli nel forum Microsoft Word
    Risposte: 18
    Ultimo Post: 18-09-2014, 13:45
  4. Estrarre righe ListBox e scrivere su un file di testo
    Da Headphone nel forum Visual Basic .Net
    Risposte: 3
    Ultimo Post: 30-11-2008, 10:20
  5. [VBA] Estrarre 2 numeri da file di testo
    Da JPetrucci nel forum Microsoft Word
    Risposte: 8
    Ultimo Post: 07-11-2008, 20:10