Newsgroup: it.comp.lang.visual-basic
Titolo: come leggere un file .doc e piazzarlo in una textbox ?

text1.text = "copntenuto di file1.doc"
:D
come faccio ?


Se il file in questione è realmente un "doc" e tu devi realmente piazzarlo
in una TEXTbox, la faccenda non è immediata.
Ma, per tornare ad una mia precedente affermazione, non stai "saltando" un
po troppo qua e la?
Segui una logica più lineare, visto che ti dichiari pincipiante di Vb, senza
continuare a spulciare solo in superficie argomenti che meritano un minimo
di approfondimento.
Se invece questa è una tua reale necessità, ri-postami che ne parliamo sul
serio.
ciao
ugo

 wrote in message
9eqpoh$dno$2...@lacerta.tiscalinet.it...

Giovanni Br1
Allora, se vuoi visualizzare il contenuto di un file .DOC o .TXT all'interno
di una TextBox la procedura non è molto complicata, ma non è nemmeno
semplice.
- Innanzi tutto devi dichiarare una variabile, ad esempio F, e dirgli che
questa corrisponda ad un canale libero:
    PrivateSub CommandButton1_Clik( )
        F = FreeFile
    End Sub
- In secondo luogo devi trascrivere il percorso del file, e specificare che
cosa ne vuoi fare: se lo vuoi aprire o salvare, ed infine scrivere il numero
del canale. Ricordati che non puoi mai aprire più di 1 file sullo stesso
canale, e per questo VB ti fornisce l' utile comando FreeFile che
corrisponde al numero di un canale libero.
    PrivateSub CommandButton1_Clik( )
        F = FreeFile
        Open "C:\Nome del file.Txt o .Doc" for Input as F
    End Sub
- Dopo devi dirgli di iniziare un ciclo DoWhile, nel quale scrive tutti i
caratteri fine del file.
    PrivateSub CommandButton1_Clik( )
        F = FreeFile
        Open "C:\Nome del file.Txt o .Doc" for Input as F
        DoWhile not Eof (F)
            Text1.Text = Text1.Text & Cstr (F)
        Loop
    End Sub
- L' ultimo passaggio che ti rimane da fare è quello di chiudere il file.
       PrivateSub CommandButton1_Clik( )
        F = FreeFile
        Open "C:\Nome del file.Txt o .Doc" for Input as F
        DoWhile not Eof (F)
            Text1.Text = Text1.Text & Cstr (F)
        Loop
        Close F
    End Sub
Se dovessi avere problemi riscrivimi e dimmi dove si blocca il programma.
Ciao da Giovanni Br1.

 Se dovessi avere problemi riscrivimi e dimmi dove si blocca il
programma.
aspettati posta. ne avra' sicuramente.
1. ben che vada, in questo modo nel textbox si ritrova il cstr del
numero di file libero F. cioe' se il file e' il 253, nel txtbox lui
avra' "253". ti consiglierei di guardare nell'help l'uso di "line input"
inserito dentro al ciclo do while.
2. il medesimo ciclo, cosi' come l'hai scritto, gli pianta il prg in
loop perpetuo. non avanza.
2. quanto sopra va bene con un file di testo semplice. ma normalmente i
.doc sono i file di word. se li leggi col metodo qui sopra, ti trovi un
sacco di schifezze e basta. i .doc li legge, peraltro malaccio, il
controllo webbrowser. gli .rtf il richtextbox. per i .doc io conosco
solo un controllo abbastanza costoso.
ciao, a.


Proprio questo intendevo.
In realtà il metodo migliiore sarebbe quello di richiamare Word come Ole
Server.
Ma, visto che Akuma ci sta seppellendo di domande di una varietà rara, mi
vien da pensare che più che una reale esigenza sia uno dei "salti di palo in
frasca" che mi pare stia facendo a più non posso...
Per questo non ho dato una risposta esaustiva... attendo che mi dica che gli
serve davvero.
ciao
ugo

 loop perpetuo. non avanza.
No, non preoccuparti... si blocca quando la textbox è piena di 253253253253253253253253253253253253253253253253
253253253253253253253253253253253253253253253253
253253253253253253253253.....
;-)))
Bye, G.

 ;-)))
e si ci ha messo un rtb ?

 "Paperino" ha scritto

Ci metterà di più... ma la memoria finirà prima o poi.
Bye, un Paperino che IRC non va proprio, neanche su azzurranet
(comunque avevo già provato) :-((
OCCAZZ, mi sa che è il FW ! cambio IP, rimetto il vecchio e ci riprovo.
Bye, G.