Newsgroup: it.comp.lang.visual-basic
Titolo: File txt

Ciao, dovrei leggere un file txt e inserire il suo contenuto in una label.
Qualcuno può consigliarmi il codice?
Il file si trova nella directory: C:\Programmi\AG4EVER\leggimi.txt
Se potete aiutarmi vi ringrazio ancora...
Emix_8

 ha scritto

sono un po' di corsa, quindi...
il codice qui sotto scrive e legge in vari modi.
mi serviva per provare il passaggio di un handle di file.
2 label, un command, un text, i nomi li vedi.
incolla il codice e prova f5.
quello che ti interessa e' nelle ultimissime righe.
se devi leggere linea per linea, guarda l'help su
"line input"
ciao, j.
ps- evita i crosspost, per favore.
Option Explicit
Private Sub ScriviLinea(ByVal fN As Long)
    Static z As Long
    lblSub = "z - dalla sub: " & CStr(z)
    Print #fN, "z - dalla sub: " & CStr(z)
    z = z + 1
End Sub
Private Sub Command1_Click()
    Dim j As Long
    Dim fNameOut As String, fNumOut As Long
    fNameOut = App.Path & "\risultato.txt"
    fNumOut = FreeFile
    Open fNameOut For Output As #fNumOut
    For j = 0 To 99
        Print #fNumOut, "j - dal cmd: " & CStr(j)
        lblCmd = "j - dal cmd: " & CStr(j)
        ScriviLinea fNumOut
    Next
    Close #fNumOut
    Open fNameOut For Input As #fNumOut
    txtRisult = fNameOut & vbCrLf & vbCrLf & _
        Input(LOF(fNumOut), fNumOut)
    Close #fNumOut
End Sub

 ha scritto nel messaggio
news:aet2qm$9p7g3$1...@ID-51318.news.dfncis.de...


 >     fNumOut = FreeFile


 ha scritto nel messaggio
news:afhhl9$e8jjl$1...@ID-51318.news.dfncis.de...


 
anakt...@libero.it
ok, allora si tratta solo di fare un po' di timing.
a naso, un'inghiottita in botta unica dovrebbe essere piu' veloce di un
ciclo. ram ce ne vuole comunque.
io cmq ho codificato abbastanza test ieri per il timing sul # linee, a te la
palla :)
il punto fondamentale imho resta che un txt o consiste di una linea sola (ce
n'e') o lo si butta dentro un textbox multilinea (locked se non dev'essere
editabile), non un label. anche se il label lo metti in autoresize, se il
testo e' un semplice autoexec hai buone chances quantomeno di sovrapporti ad
altri controlli o di non starci proprio nel form. inoltre col label non puoi
nemmeno fare ^C.
--
ciao, j.
www.sundaysw.com

 nemmeno fare ^C.
Inoltre, le labels (Caption) non hanno un limite nel numero max di
caratteri?

 ha scritto

se c'e', non e' infimo. qui sotto non da' errore.
pero' la b non si vede, quindi mostra l'inizio.
ciao, a.
Private Sub Command1_Click()
    Dim j As Long, s As String
    For j = 0 To 99999
        s = s & "a"
    Next
    s = s & "b"
    Label1 = s
End Sub

 nemmeno fare ^C.
Hai sicuramente ragione sul txt che o è di una sola linea oppure usi il
metodo autoresize con la proprietà a true. Il punto è che Emix chiedeva come
farlo con una label ;) Sicuramente una textbox è piu indicata per caricare
un file testo.
Volendo cmq, si potrebbe caricare direttamente il file testo in una
richtextbox :). Che ne pensi?
           Anak
anakt...@libero.it

 richtextbox :). Che ne pensi?
si', e il loadfile e' anche piu' comodo. pero' e' un ocx in piu'.
se si tratta di testi normali, non formattati strani, e entro i 64k,
preferisco il txt normale.
ciao, j.