Discussione chiusa
Visualizzazione dei risultati da 1 a 9 su 9

Discussione: leggere riga specifica da file .txt

  1. #1
    marty90 non è in linea Novello
    Post
    31

    leggere riga specifica da file .txt

    ciao, io dovrei salvere in un file una specifica riga, laciando intatte le altre... come posso fare?
    Ultima modifica di marty90; 14-06-2006 13:35 

  2. #2
    ZEUSsat non è in linea Scolaretto
    Luogo
    Varese
    Post
    476
    Provenienza della riga?
    Devi leggere o scrivere?
    Che file è?
    La riga che leggi la vuoi salvare "appesa" al file o in una posizione specifica?
    Se hai del codice che usi, postalo....



    Ciao

  3. #3
    L'avatar di daniele-puma
    daniele-puma non è in linea Scolaretto
    Luogo
    Milano
    Post
    262
    Puoi optare con un file .ini anziche' .txt e potresti utilizzare

    in un modulo
    codice:
    Declare Function WritePrivateProfileStringA Lib "Kernel32" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
    Declare Function GetPrivateProfileStringA Lib "Kernel32" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    in code
    codice:
    Sub PutVar(ByVal section As String, ByVal variable As String, ByVal value As String)
    A = WritePrivateProfileStringA(section & Chr$(0), variable & Chr$(0), value & Chr$(0), App.Path & "\file.ini" & Chr$(0))
    End Sub
    
    Function GetVar(ByVal section As String, ByVal variable As String) As String
    buf$ = "                                                          "
    A = GetPrivateProfileStringA(section & Chr$(0), variable & Chr$(0), Chr$(0), buf$, Len(buf$), App.Path & "\file.ini" & Chr$(0))
    GetVar = Left$(buf$, A)
    End Function
    Daniele Puma
    http://www.danielepuma.com

    Se l'intervento ti è stato utile, clicca su .

  4. #4
    marty90 non è in linea Novello
    Post
    31
    la riga viene da una textbox, la devo scrivere nel file, più precisamente la devo sostituire a una altra:

    as esempio il file di txt è:

    "cane
    gatto cane
    gallo"

    io voglio sostituire la terza riga (ad esempio, o la seconda) con una che viene da una textbox...

  5. #5
    L'avatar di daniele-puma
    daniele-puma non è in linea Scolaretto
    Luogo
    Milano
    Post
    262
    Potresti utilizzare il comando
    Replace(campo, "stringa_da_sostituire", "stringa_nuova")
    Daniele Puma
    http://www.danielepuma.com

    Se l'intervento ti è stato utile, clicca su .

  6. #6
    gblf non è in linea Novello
    Post
    2

    Exclamation Aaaaaaargh

    Quote Originariamente inviato da daniele-puma Visualizza il messaggio
    codice:
    Declare Function WritePrivateProfileStringA Lib "Kernel32" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
    Declare Function GetPrivateProfileStringA Lib "Kernel32" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer

    Aaargh queste dichiarazioni sono sbagliate!!

    E qualcuno le ha copiate nei nostri programmi e usate per anni!!!



    Probabilmente non è successo niente (forse!) solo perchè per fortuna sono state usate solo con valori piccoli



    Vanno dei Long al posto di tutti gli Integer:
    codice:
    Declare Function WritePrivateProfileStringA Lib "Kernel32" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpString As String, ByVal lplFileName As String) As Long
    Declare Function GetPrivateProfileStringA Lib "Kernel32" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Long, ByVal lpFileName As String) As Long



    oppure "Kernel" al posto di "Kernel32", e allora diventano delle dichiarazioni valide per Win 3.1
    codice:
    Declare Function WritePrivateProfileStringA Lib "Kernel" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpString As String, ByVal lplFileName As String) As Integer
    Declare Function GetPrivateProfileStringA Lib "Kernel" (ByVal lpSection As String, ByVal lpEntry As String, ByVal lpDefault As String, ByVal lpReturnedString As String, ByVal nSize As Integer, ByVal lpFileName As String) As Integer
    ma dubito che qualcuno voglia usare queste
    Ultima modifica di gblf; 04-09-2014 21:27  Motivo: ortografia

  7. #7
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,397
    Blogs
    5
    Moderazione ... gblf ... questo thread è del 2006 .. 8 anni fa ! Non ha senso rispondere anche se è ancora aperto.

    Chiudo il thread.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

  8. #8
    gblf non è in linea Novello
    Post
    2
    Antonio, ho scritto per evitare che qualcun altro prenda questo codice sbagliato, come è capitato dove lavoro.

    Magari non è tanto probabile che succeda, nel 2014, per del codice VB6, ma se si può prevenire mi pare che sia meglio farlo.
    Non ha senso correggere informazioni sbagliate?
    Naturalmente non mi aspetto di avere repliche da chi aveva scritto originariamente, ma non ne ho nessun interesse.

    Chiudi pure il thread se vuoi, ovviamente, ma se lo lasci aperto dai la possibilità ad altri di fare altre precisazioni, nel caso ad esempio alla fine fossi io a sbagliarmi.



    Quote Originariamente inviato da AntonioG Visualizza il messaggio
    Moderazione ... gblf ... questo thread è del 2006 .. 8 anni fa ! Non ha senso rispondere anche se è ancora aperto.

    Chiudo il thread.

  9. #9
    L'avatar di AntonioG
    AntonioG non è in linea Moderatore Globale Ultimo blog: Commodore 64 e Codemotion
    Luogo
    Roma
    Post
    16,397
    Blogs
    5
    Non importa se il codice è giusto o sbagliato, se qualcuno ha interesse chiede delucidazioni. Il thread è vecchio e non si continua più, così come per le migliaia di thread in cui possono esistere problemi vari.

    Pensavo di avere chiuso già il thread, lo faccio adesso.
    Avvisi generali e importanti, a pena CHIUSURA thread e/o BAN
    Il crossposting è vietato.
    Le richieste di "pappa pronta" sono vietate.
    Utilizzate i tag CODE per il codice.
    Leggere il Regolamento per chiarimenti PRIMA di creare nuovi thread.
    Utilizzare sempre i PM per comunicare con i moderatori.
    Non mi contattate in PM per problemi di software, usate il forum

Discussione chiusa

Discussioni simili

  1. Articolo: [VBA] Lettura e scrittura File Di Testo
    Da dragone bianco nel forum Microsoft Office, Access, VBA
    Risposte: 0
    Ultimo Post: 27-09-2006, 18:00
  2. leggere file .txt
    Da Rosario80 nel forum Visual Basic 6
    Risposte: 12
    Ultimo Post: 01-04-2006, 15:42
  3. Articolo: Interagire con i file - 1° parte
    Da freezer nel forum Visual Basic 6
    Risposte: 0
    Ultimo Post: 18-11-2005, 10:51
  4. Articolo: Gestione dei file: tipi di file
    Da freezer nel forum Visual Basic 6
    Risposte: 0
    Ultimo Post: 18-11-2005, 10:50

Permessi di invio

  • Non puoi inserire discussioni
  • Non puoi inserire repliche
  • Non puoi inserire allegati
  • Non puoi modificare i tuoi messaggi