[VB6.0]Come leggere e scrivere da file

[wicasa]

Avrei bisogno di due righe di comando sucome leggere e scrivere da file di testo...
:)

Grazie mille a tutti :D

[matpez]

Leggere:


Dim nFreeFile As Integer

nFreeFile = FreeFile
Open "C:\ciao.txt"For Append As #nFreeFile
Print #nFreeFile, "Ciao"
Close #nFreeFile

si utilizza append se vuoi aggiungere righe al file, se invece lo vuoi scrivere da zero basta che metti output


Per legere:


Dim nFreeFile As Integer
dim sAux As String
dim sFile As String

nFreeFile = FreeFile
Open "C:\ciao.txt" For Inpuet As #nFreeFile
While Not (EOF(nFreeFile))
Line Input #nFreeFile, sAux
sFile=sFile & sAux & vbcrlf
Wend
Close #nFreeFile

[wicasa]

grazie mille...mi hai dato una gran mano...:mano:

...dunque dotNet..il mio ambiente di lavoro usuale...ha ereditato quasi totalmente?!...ottimo
Grassie ancora!!!

[wicasa]

Originariamente inviato da matpez
Per legere:


Dim nFreeFile As Integer
dim sAux As String
dim sFile As String

nFreeFile = FreeFile
Open "C:\ciao.txt" For Inpuet As #nFreeFile
While Not (EOF(nFreeFile))
Line Input #nFreeFile, sAux
sFile=sFile & sAux & vbcrlf
Wend
Close #nFreeFile

scusa...
ma a cosa serve il vbcrlf?

esistono altri modi di lettura di stringhe!...tipo

in Vb.Net io perleggere un file formattato con separatore la virgola
e composto da un testo seguito da dei numeri scrivo il seguente codice:

Dim myString As String
Dim myValue As Double
'apro il file
FileOpen(1, "Output.txt", OpenMode.Input, OpenAccess.Read)
Do
Input(1, myString)
Input(1, myValue)
myElemento.CSArea = myValue
Loop While Not EOF(1)
'chiudo il file 1
FileClose(1)


qui uso input...mapotrei usare inputString...x leggere tutta la stringa
fino al chr(13)...oppure c'è la possibilità di leggere carattere per carattere...e altro...ma ora nn ricordo!!!

[matpez]

Bhe ma se tu specifichi nella domanda VB io ti aiuto su VB, nn hai detto che ti serviva il codice per VB.NET :p

Ad ogni modo VBCRLF è l'acornino di Visaul Basic Caret Return Line Feed, cioè nient'altro che i caratteri 10 e 13 del codice ascii :cool:

[wicasa]

MI sono spiegato male ed ho scritto peggio...
...io programmo in VB.Net...ma sono costretto a fare un appl. in vb6
...quindi mi servivano delle dritte che tu molto cortesemente e molto chiaramente mi hai dato!!! tutto qui

Poi io per farmi capire meglio :rolleyes: ho inserito il codice scritto in VB.Net che però mi serve tradotto in VB6...

spero di essere stato un cin + chiaro...:p

cmq ora mi sono dotato di Manuale ...vecchio ma buono!!!

spero di poter contare ancora sulle tue dritte!!!
Grassie mille ancora...

NB: per il comando vbCrlF...dunque è l'analogo del writeline...ottimo!!