da excel scrivere un file txt senza virgolette sulle stringhe

toni64

unread,

Mar 16, 2009, 10:54:55 AM3/16/09

to

salve a tutti !
da excel , tramite VBA, compilo un file txt esportando i dati di una stringa
(pippo):

Sub Esporta()
Dim Nome As String, I as long
Nome = "Mio file con i dati.txt"
Open Nome For Output As #1
Dim Stringa
Stringa = "pippo"

For I = 1 To 15
Write #1, Stringa
Next I
Close #1
end sub

tutto funziona correttamente solo che nel file txt i dati scritti vengono
anticipati e seguiti da una ", del tipo
"pippo"
"pippo"
ecc ecc

come si fa in modo che la stringa non abbia i " a inizio e fine e quindi il
file txt risulti contenere
pippo
pippo
pippo
...

grazie !
toni

r

unread,

Mar 16, 2009, 11:35:03 AM3/16/09

to

"toni64" ha scritto:

> salve a tutti !
> da excel , tramite VBA, compilo un file txt esportando i dati di una stringa
> (pippo):
>
> Sub Esporta()
> Dim Nome As String, I as long
> Nome = "Mio file con i dati.txt"
> Open Nome For Output As #1
> Dim Stringa
> Stringa = "pippo"
>
> For I = 1 To 15
> Write #1, Stringa
> Next I
> Close #1
> end sub
>
> tutto funziona correttamente solo che nel file txt i dati scritti vengono
> anticipati e seguiti da una ", del tipo
> "pippo"
> "pippo"

che è il funzionamento corretto
personalmente uso filesystemobject

Sub test_txt()
'con riferimenti a microsoft scripting runtime
Dim FSO As New FileSystemObject
Dim tsT As TextStream
Dim s As String, l As Long
s = FSO.BuildPath(Environ("userprofile"), "Documenti")
s = FSO.BuildPath(s, "prova.txt")

Set tsT = FSO.OpenTextFile(s, ForWriting, True)

With tsT
For l = 1 To 15
.Write "pippo"
.WriteBlankLines (1)
Next
.Close
End With
End Sub

Sub test_txt2()
'senza riferimenti
Dim FSO As Object
Dim tsT As Object
Dim s As String, l As Long

Set FSO = CreateObject("Scripting.filesystemobject")
s = FSO.BuildPath(Environ("userprofile"), "Documenti")
s = FSO.BuildPath(s, "prova.txt")
Set tsT = FSO.OpenTextFile(s, ForWriting, True)

With tsT
For l = 1 To 15
.Write "pippa"
.WriteBlankLines (1)
Next
.Close
End With
End Sub

saluti
r

--
----------------------------------------------------------------------------------------

http://excelvba.altervista.org/blog/index.php/Table/Excel-VBA/

r

unread,

Mar 16, 2009, 11:41:02 AM3/16/09

to

"r" ha scritto:

ops ...
correggo quella senza rif:

Sub test_txt2()
'senza riferimenti
Dim FSO As Object
Dim tsT As Object
Dim s As String, l As Long

Const ForWriting As Long = 2

toni64

unread,

Mar 16, 2009, 12:02:30 PM3/16/09

to

> ops ...
> correggo quella senza rif:
> Sub test_txt2()
> 'senza riferimenti
> Dim FSO As Object
> Dim tsT As Object
> Dim s As String, l As Long
> Const ForWriting As Long = 2
> Set FSO = CreateObject("Scripting.filesystemobject")
> s = FSO.BuildPath(Environ("userprofile"), "Documenti")
> s = FSO.BuildPath(s, "prova.txt")
> Set tsT = FSO.OpenTextFile(s, ForWriting, True)
>
> With tsT
> For l = 1 To 15
> .Write "pippa"
> .WriteBlankLines (1)
> Next
> .Close
> End With
> End Sub
>
>
> saluti
> r

sei gentilissimo oltreche velocissimo
non ci ho capito niente nel tuo codice, purtroppo le mie conoscenze solo
molto basic, tuttavia con le opportune modifiche lo integrerò sicuramente
nel mio codice.
ti ringrazio moltissimo per il tempo che mi hai fatto risparmiare e x
l'aiuto
toni

r

unread,

Mar 16, 2009, 7:44:09 PM3/16/09

to

"toni64" ha scritto:

se vuoi approfondire ...
Strumenti->Macro->Microfoft Script Editor
da lì Guida in linea-> VBScript ... un mondo e molti esempi
ti suggerisco se vuoi utilizzare il FileSystemObject di
aggiungere il rifermento alla libreria M. Scripting Runtime
e utilizzare la guida ...

cucchiaino

unread,

Mar 17, 2009, 1:42:04 AM3/17/09

to

toni64 scrive:

usa

Print #1, Stringa

()---cucchiaino
www.riolab.org

toni64

unread,

Mar 17, 2009, 5:51:10 AM3/17/09

to

> usa
>
>
> Print #1, Stringa
>

spettacolare questo suggerimento!
chirurgico direi.
"già fatto"
;)