Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

Caricare in una textbox un file di testo .txt o di word

116 views
Skip to first unread message

Paolo Sanvito

unread,
Mar 25, 2000, 3:00:00 AM3/25/00
to
Vorrei caricare in una textbox il testo contenuto in un file:
questo è il mio codice:

If tempotrascorso = 0 Then
cmdFine.Visible = True
imgLogo.Visible = True
lblDescrIngr.Visible = True
lblTitBil1.Visible = True
lblTitBil2.Visible = True
Open "f:\Testi\m3.txt" For Output As 1
Do Until EOF(1)
Line Input #1, LineOfText$
Text$ = Text$ & LineOfText$ & Wrap
Loop
txt_m3.Text = Text$
FormattDescrizione txt_m3, desc_m3
tempotrascorso = tempotrascorso + 1
End If


Dove sbaglio?

Con questa procedura il file diventa completamente bianco!
E' la riga
Line Input #1, LineOfText$
che dà problemi?
Forse questa inserisce dei dati nel file invece di estrarli?
Purtroppo non ho un manuale d'aiuto!
Grazie per l'assistenza
Paolo

p.s E' molto complicato pensare di inserire un file di word mantenendo la
sua impaginazione (formattazione)?

Faber

unread,
Mar 25, 2000, 3:00:00 AM3/25/00
to
> Open "f:\Testi\m3.txt" For Output As 1
> Do Until EOF(1)
> Line Input #1, LineOfText$
> Text$ = Text$ & LineOfText$ & Wrap
> Loop

dovresti fare

Open "f:\Testi\m3.txt" For Input As #1

altrimenti te lo apre in scrittura cancellandone il contenuto

Ciao

Faber

Elisa Vesentini

unread,
Mar 25, 2000, 3:00:00 AM3/25/00
to
Scusate se mi intrometto ma volevo sapere se quando apro un file word mi
rimane la formattazione del testo (inteso come a capo e/o grassetti,
sottolineature...) e anche qual'è il miglior modo per assegnare un file word
ad una textbox o ad altro controllo simile
Grazie
Elisa

Jimi

unread,
Mar 25, 2000, 3:00:00 AM3/25/00
to

> Vorrei caricare in una textbox il testo contenuto in un file:
> questo è il mio codice:
>
> If tempotrascorso = 0 Then
> cmdFine.Visible = True
> imgLogo.Visible = True
> lblDescrIngr.Visible = True
> lblTitBil1.Visible = True
> lblTitBil2.Visible = True
> Open "f:\Testi\m3.txt" For Output As 1
^^^^^^

Cambia in "For Input"

Faber

unread,
Mar 25, 2000, 3:00:00 AM3/25/00
to

se usi una TextBox sicuramente non puoi mantenere la formattazione. penso
che dovresti usare il controllo Rich Text Box ma non ho mai provato...

Faber

pal

unread,
Mar 25, 2000, 3:00:00 AM3/25/00
to

"Faber" <zann...@libero.it> ha scritto

"Elisa Vesentini" <elis...@tiscalinet.it> ha scritto

non ho provato, ma dubito che un file word come .doc riesci ad aprirlo.

dato che il richtextbox usa l'rtf puoi:
-- salvare il .doc come .rtf
-- selezionare e copiare in word, incollare nel rtb, mi sembra di averlo
fatto e che tenga quasi tutte le formattazioni (possibili casini col
giustificato, che direi l'rtf non consideri, e con tabelle ecc.).

0 new messages