File txt

di Anonimizzato31621 il
4 risposte
/
Anonimizzato31621
Utente anonimizzato
Buon giorno. il mio quesito e' questo.
Vorrei modificare un file txt.
es: nel file txt: A B C
Vorrei aggiungere un trattino : -A -B -C
ho trovato questo codice ma mi aggiunge il trattino solo alla prima occorrenza. 

Dim fso As FileSystemObject
Dim tsReadFile As TextStream
Dim tsWriteFile As TextStream
Dim sRecord As String

    Set fso = New FileSystemObject
    
    Set tsReadFile = fso.OpenTextFile("C:\MioFile.txt", ForReading)
    Set tsWriteFile = fso.CreateTextFile("C:\NuovoFile.txt")
    
    Do Until tsReadFile.AtEndOfStream
    
        sRecord = tsReadFile.ReadLine
        sRecord = Trim$(sRecord)
        If sRecord = vbNullString Then
            ' if line is null, do nothing
        Else
            
       tsWriteFile.WriteLine "-" + sRecord  
       End If
        
    Loop

    Set fso = Nothing
    tsReadFile.Close
    tsWriteFile.Close
    
    Set tsReadFile = Nothing
    Set tsWriteFile = Nothing
Come posso fare?
Grazie

4 Risposte

  • /
    Anonimizzato31621
    Utente anonimizzato
    Ciao gian82. Ho visto il codice,ma l'aggiunta del trattino come la inserisco?. Scusa ma sono alle prime armi. 
    
Dim fs, a, retstring
Set fs = CreateObject("Scripting.FileSystemObject")
Set a = fs.OpenTextFile("c:\testfile.txt", ForReading, False)
Do While a.AtEndOfStream <> True
    retstring = a.ReadLine
    ...
Loop
a.Close
  • Super Famoso
    Iscritto da
    nov, 2011
    Messaggi
    21917
    Devi trattare la stringa con la Split per separare le varie parti, poi aggiungi il trattino ad ogni parte e le riscrivi nel file.

    Tieni presente che non puoi leggere e scrivere nello stesso file ma devi usarne uno per la lettura e uni per la scrittura.

    Studia le basi della gestione dei file di testo, è semplice e non puoi continuare a copiare codice senza comprenderlo.
Devi accedere o registrarti per scrivere nel forum
4 risposte