🚀 go-pugleaf

"Giovanni" <giovabr1@hotmail.com> ha scritto nel messaggio
news:mkcx8.14997$8D3.422267@news1.tin.it...
> Ciao a tutti e grazie in anticipo.
> Volevo sapere se � possibile aprire INTERAMENTE un file, cio�:
> Io voglio poter aprire vari tipi di file (Jpg, Word....) in modalit�
> testuale, ovvero vorrei visualizzare il contenuto del file in una text box.
> Apparentemente non ci sono problemi, io uso questo spezzone di programma
> (correggetemi se ne conoscete uno migliore):
>
> Private Sub Form_Load()
>     F = FreeFile
>     Open "C:\Immagine.Jpg" For Input As F
>         Do While Not EOF(F)
>             Text1.Text = Text1.Text & Input(F,#F)
>         Loop
>     Close F
> End Sub
>
> Fino qui tutto Ok. Se dopo per� risalvo l'immagine senza aver toccato il
> testo con il seguente spezzone lui non me la vede pi� come un' immagine Jpg:
>
>
> Private Sub Salca_Clik()
>     F = FreeFile
>     Open "C:\ImmagineNuova.Jpg" For Output As F
>         Print #F, Text1.Text
>     Close F
> End Sub

1) Se vuoi aprire un file binario (quale � il formato jpg), devi aprirlo in
modalit� Binary o Random e quindi usare le istruzioni Get e Put per
leggere/scrivere il file.
2) La propriet� Text del TextBox supporta al massimo 65535 caratteri. E' chiaro
che se il file jpg � pi� grande ti viene troncato a 65535 Byte.
3) L'esecuzione del programma sar� pi� veloce se carichi il file in una
variabile, anzich� direttamente nella propriet� Text del TextBox.

Ciao!
--
Esteban
Hosted by www.seber.it
(Remove nonspammare for reply)