[vb6] Prelevare lettere da un txt

[Adrix]

Ciao a tutti. Volevo chiedervi qual è il codice in visual basic per prelevare delle parole da un txt...nel mio caso non delle parole specifiche, bensì le ultime 8 del testo..

spero mi rispondiate
grazie e ciao

[junx]

Ciao.

funzione:

Private Function Parola(NomeFile As String, UltimeLettere As Integer) As String
    Dim s As String
    Dim f As Integer
    
    f = FreeFile
    Open NomeFile For Input As f
        s = Right(Input(LOF(f), f), UltimeLettere)
    Close f
    
    Parola = s
End Function

esempio:

Private Sub Command1_Click()
    Text1 = Parola("C:\prova.txt", 8)
End Sub

Ciao.

[Adrix]

ciao
grazie per l'esempio solo che non ho capito come funziona, cioè io devo sostituire Parola e UltimeLettere inserendo quelle della mia parola....non ho specificato che la mia parola è variabile, non è mai la stessa, x questo ho bisogno delle ultime 8 lettere sempre.

grazie se mi risponderai ancora

[Adrix]

ciao,
mi scuso per l'altro post, ora ho capito come funziona, comunque resta un problema, io non devo prendere lettere da un vero file.txt...ma da un file di un altro formato che ha 8 lettere che mi interessano alla fine..quando provo ad aprirlo però col tuo esempio mi dà questo errore:

Run-Time Error '62
Imput past end of file

aiuto pleaze

[junx]

com'è questo file?
l'estensione?
puoi postarne il contenuto?

[Adrix]

si posso postare l'inizio e la fine perchè è troppo lungo...

izio
SHPIô

G357tp00 Buy ERTS`    k‡

fine
TXLY,tp00,1,1,256,512,0x82011331 (spazi)


ti faccio notare prima della parentesi tutti quegli spazi...a me servirebbe solo il numero 82011331
grazie ancora
ciao

[junx]

per gli spazi basta che aggiungi un Trim:

s = Right(Input(LOF(f), f), UltimeLettere)

diventa:

s = Right(Trim(Input(LOF(f), f)), UltimeLettere)

il problema è che a me il file lo legge senza indugi...

boh..prova così, ma dovrebbe essere uguale...

Private Function Parola(NomeFile As String, UltimeLettere As Integer) As String
    Dim s As String
    Dim s2 As String
    Dim f As Integer
    
    f = FreeFile
    Open NomeFile For Input As f
        Do While Not EOF(f)
            Line Input #1, s
            s2 = s2 & s
        Loop
    Close f
    
    Parola = Right(Trim(s2), 8)
End Function

[Adrix]

con la prima funzione anche cambiando quel rigo continua a dare quell'errore...mentre usando l'ultima che mi hai dato non dà errore ma invece di darmi le ultime 8 lettere mi dà questo:

¹Õ—˜ˆ þ_


?? mi sa che è dovuto ai famosi spazi...boh dimmi tu
grazie

[junx]

inviami il file, così pubblico la soluzione.

melisvb@yahoo.it

[Adrix]

ok sei mitico