[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

[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...

...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

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

[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 ho inserito il codice scritto in VB.Net che però mi serve tradotto in VB6...

spero di essere stato un cin + chiaro...

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!!