Visualizzazione dei risultati da 1 a 7 su 7
  1. #1
    Utente di HTML.it
    Registrato dal
    Feb 2002
    Messaggi
    43

    Estrarre riga da file testo VB.NET

    Ciao a tutti...
    vi vorrei porre un problema...

    Dovrei estrarre una riga particolare da un file di testo.

    esempio pratico:
    Sotto vi posto il file di testo che vorrei leggere
    -----------------------------------

    [InfoVersione]
    Versione=01.001.832
    DataVersione=08/08/2007
    DataAttivazione=08/08/2007-16:14:23
    TipoVersione=Current
    OperazioneCompleta=YES
    IPL=NO
    IPLClient=NO
    CopiaDifferita=NO
    ClientSetup=?
    ServerSetup=?
    StandardSetup=?

    ------------------------------------
    Io dovrei estrarre la riga " Versione=01.001.832 "
    Ho caricato tutto il file tramite la funzione " My.Computer.FileSystem.ReadAllText(strFileName) " in una variabile....

    Faccio presente però che la riga da leggere poò cambiare la prpria posizione nel file di testo......


    HELP!!!!!!!

    Grazie a tutti

  2. #2
    estrarra con una RegularExpression del tipo

    codice:
    string pattern="(Versione=[0-9\\.]+)"
    ?
    IP-PBX management: http://www.easypbx.it

    Old account: 2126 messages
    Oldest account: 3559 messages

  3. #3
    Utente di HTML.it
    Registrato dal
    Feb 2002
    Messaggi
    43
    ..... :master: Non sono proprio un veterano......mi potresti spiegare un attimo???

    Grazie....

  4. #4
    posso spiegartelo in C#

    codice:
    string pattern="(Versione=[0-9\\.]+)";
    
    Regex _regex = new Regex(
                    pattern,
                    RegexOptions.IgnoreCase & RegexOptions.IgnorePatternWhitespace);
    
    Match result=_regex.Match(testo_da_file);
    
    MessageBox.Show("found: "+ result.Groups[1].Value);
    IP-PBX management: http://www.easypbx.it

    Old account: 2126 messages
    Oldest account: 3559 messages

  5. #5
    .... oppure prova così:


    Dim myStreamReader As StreamReader
    myStreamReader = File.OpenText("NomeFile")

    While Not myStreamReader.EndOfStream
    If myStreamReader.ReadLine()= "Versione=01.001.832 " then
    .............................
    .............................
    End if
    End While


    senza dimenticare:

    Imports System.IO

  6. #6
    Originariamente inviato da gardenal
    .... oppure prova così:


    Dim myStreamReader As StreamReader
    myStreamReader = File.OpenText("NomeFile")

    While Not myStreamReader.EndOfStream
    If myStreamReader.ReadLine()= "Versione=01.001.832 " then
    .............................
    .............................
    End if
    End While


    senza dimenticare:

    Imports System.IO

    eh ma immagino che il numero di versione sia variabile
    IP-PBX management: http://www.easypbx.it

    Old account: 2126 messages
    Oldest account: 3559 messages

  7. #7

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi
  •  
Powered by vBulletin® Version 4.2.1
Copyright © 2025 vBulletin Solutions, Inc. All rights reserved.