Newsgroup: it.comp.lang.visual-basic
Titolo: Leggere un file di testo

Domanda semplice semplice, scusate ma dev'essere l'ora ed ho un vuoto di
memoria (oltre ad un odio viscerale per le funzioni di VB per i file)
Come diavolo faccio a leggere in una botta sola un intero file di testo in
una variabile di string?
(Siccome ormai e' un po' che lavoro in C sui file, mentre in VB era un pezzo
che non lo facevo...ed in C gli dico semplicemente quanto leggere dal
file...e poi e' piu' semplice...insomma, non mi ricordo in VB se si puo'
fare in maniera rapida e veloce...) (rapida a scriversi e veloce ad
eseguirsi :-D )
Grazie :-)

vedi Input e Output.
Oppure leggilo in modalità binaria.
bye
-- 
Esistono 10 tipi di persone: chi conosce il binario e chi no.
www.nicolaottomano.it

 testo in una variabile di string?
    canale = FreeFile
    Open file For Input Shared As #canale
    Text1.Text = Input$(LOF(canale), #canale)
    Close canale

"Drizzt"
(rapida a scriversi e veloce ad eseguirsi :-D )
File system object
'*.vbs
Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Dim fso, f
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile =   f.ReadAll
End Function
Msgbox ReadAllTextFile
--
Fosco

 e veloce ad eseguirsi :-D )
e con un controllo in più da distribuire...

 e con un controllo in più da distribuire...
Concordo ... ma io questo lo posso adoperare in
qualsiasi PC con IE installato (il 99 % del totale ???)
e con 4 righe di testo senza dover compilare niente
--
Fosco

[Fosco = circa...@fake.invalid in u6l2c.6015$
z23.2...@news3.tin.it
] ha
scritto:

Senza compilare niente? E il testo dove va a finire? E come lo tratti?
In IE? Non conosco la tecnica, ma, se è così, allora c'è NotePad sempre
presente ...

 presente ...
Forse non ho capito io ma ... :
WSH >> Windows Script Host (.vbs)
Arriva con qualsiasi installazione di IE  penso da IE4 in poi
'C:\WINDOWS\WSCRIPT.EXE
' l'ultima disponibile e' 5.6.6914
ws = ScriptEngine & " Version " _
 & ScriptEngineMajorVersion & "." _
 & ScriptEngineMinorVersion _
 & "." & ScriptEngineBuildVersion
wscript.echo ws
'Copia incolla su notepad e salva con estensione .vbs
'tutti i file (*.*)  poi ci clicchi sopra. (per esempio Spegni.vbs)
'se ti da' errore disattiva l'antivirus
Questo sotto e' l'help del WSH con numerosi esempi ( sopra il mega)
http://www.microsoft.com/downloads/details.aspx?FamilyId=01592C48-207D-4BE1-8A76-1C4099D7BBB9&displaylang=en
--
Fosco

 Forse non ho capito io ma ... :
... va bene tutto, ma dove va a finire il testo letto dal file?

 ... va bene tutto, ma dove va a finire il testo letto dal file?
Dove va' a finire ?
PS:
cosa e' un quiz :-)
o mi sono rinco io o non capisco
--
Fosco

[Fosco = circa...@fake.invalid in XV_2c.17084$
O31.7...@news4.tin.it
] ha
scritto:

Porca pupattola, non è un quiz, è una domanda: dimmi, per favore e per
l'ultima volta, dove vedi quel testo che leggi (in qualunque modo) e come lo
gestisci. Per favore.

 e come lo gestisci.
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.createtextfile("c:\testfile.txt")
f.WriteLine "questo e' il testo da gestire"
f.Close
filename = "log.log"
Set newf = fso.createtextfile(filename)
newf.WriteLine ReadAllTextFile
newf.Close
Function ReadAllTextFile
   Const ForReading = 1, ForWriting = 2
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
   ReadAllTextFile =   f.ReadAll
End Function
Msgbox ReadAllTextFile
set oShell = CreateObject("WScript.Shell")
oShell.run"log.log"
'oppure senza la Function
On Error Resume Next
Set fso = CreateObject("Scripting.FileSystemObject")
set oShell = CreateObject("WScript.Shell")
Set oFile = fso.OpenTextFile("C:\WINDOWS\SYSTEM.INI", 1)
'      sText = oFile.ReadLine()
sText = oFile.ReadAll
oShell.Popup (sText) ,3,"System.ini",vbInformation+vbSystemModal
filename = "COPIASystemini.log"
Set f = fso.createtextfile(filename)
f.WriteLine  (sText)
f.Close
oShell.run filename
PS:
Const ForReading = 1, ForWriting = 2, ForAppending = 8
--
Fosco

> e come lo gestisci.
...
Ok, grazie.