Newsgroup: it.comp.lang.visual-basic
Titolo: Visualizare file *.txt

Chiedo scusa se dovesse essere già stato trattato il problema, ma nei miei
3368 msg. (sigh!) scaricati dal gruppo non ho trovato nulla di attinente.
Avrei la necessità di fare in modo che alla presione di un pulsante venisse
aperto un file di testo con il blocco note (tipo: "Visualizza Readme.txt!).
Non riesco a saltarci fuori (lo ammetto, sono molto "BASIC" come livello
!!!).
Qualcuno può aiutarmi???
Grazie mille
Paolo
--
=====================================
For replay:
Pro...@lycosmail.com
Pro...@hotmail.com
=====================================

Personalmente farei un bel
---------------------------------------
Shell "notepad " & nomefile,vbNormal
---------------------------------------
dove con nomefile si intende una string con tutto il percorso del file in
questione.
|{33p3® - Keeper
---------------------------
Moe to you, On Earth and Sea,
for the Devil sends the beast with wrath,
because he knows the time is short...
Let him who hath understanding reckon
the number of the beast for it is a human
number, its number is 666
Profex <Pro...@FUCKlycosmail.com> wrote in message
7rjrk7$rgb$1...@fe1.cs.interbusiness.it...


In un modulo bas aggiungi la seguente dichiarazione api
Public Declare Function ShellExecute _
Lib "shell32.dll" Alias "ShellExecuteA" ( _
    ByVal hWnd As Long, _
    ByVal lpOperation As String, _
    ByVal lpFile As String, _
    ByVal lpParameters As String, _
    ByVal lpDirectory As String, _
    ByVal nShowCmd As Long _
) As Long
Nella procedura click di un command button il codice seguente:
On Local Error Resume Next
Dim retvalue
file$ =Nome del file completo di percorso
retvalue = ShellExecute(Me.hWnd, _
vbNullString, _
file$, _
vbNullString, _
App.Path, _
1)
In questo modo apri il file con il programma predefinito


 aperto un file di testo con il blocco note (tipo: "Visualizza Readme.txt!).
In un form inserisci una TextBox e un CommandButton, la text deve avere
le proprietà MultiLine = True e ScrollBars = 2.
Nel Command1_Click inserisci questo:
______________________________
    Dim NomeDelFile As String
    Dim FileLibero As Integer
    Dim TestoDelFile As String
    Dim RigaDiTesto As String
    NomeDelFile = "C:\autoexec.bat" ' qui ci metti quello che ti pare
    FileLibero = FreeFile
    Open NomeDelFile For Input As #FileLibero
    Do While Not EOF(FileLibero)
        Line Input #FileLibero, RigaDiTesto
        TestoDelFile = TestoDelFile & RigaDiTesto & vbCrLf
    Loop
    Close FileLibero
    Text1 = TestoDelFile
______________________________
Se hai dubbi, su qualcosa, prova anche il tasto F1 !  ;-))
Bye, G.
--
---------------------------------------------
    Le risposte alle tue domande le trovi
    sul Sito Comune di questo NewsGroup:
 
http://www.murialdo.it/it_lang_vb
       ... e nell'help in linea !
---------------------------------------------
Real E-address: 
gaet...@hotmail.com

e se fa una associazione con la RTB?

 e se fa una associazione con la RTB?
Cerrrrrrrto che può, ma la domanda che ha fatto lui era un'altra  ;-))
Comunque, IMHO, usare un RTB solo per visualizzare un file di testo
è uno spreco di risorse. Ci sono 250 K compressi e quasi 400 K espansi
in più, nel pacchetto di installazione, solo perchè aggiungi una RTB...
