Questo sito utilizza cookies solo per scopi di autenticazione sul sito e nient'altro. Nessuna informazione personale viene tracciata. Leggi l'informativa sui cookies.
Username: Password: oppure
Visual Basic 6 - aprire dll come file di testo
Forum - Visual Basic 6 - aprire dll come file di testo

Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 19:17
Venerdì, 19/10/2007
ho un problema.
quando apro una dll come file di testo:

open xcorso for input as 1
do while eof(1)=false
  input #1,riga
  text1.seltext=riga & vbcrlf
loop
close
[\code]
mi visualizza solo poche delle innumerevoli righe di cui è composta la dll
se invece la apro utilizzando la modalità random devo definire il numero di caratteri da prelevare a ogni battuta del ciclo:

open xcorso for random as 1 len=1024
do while eof(1)=false
  get 1,,riga
  text1.seltext=riga
loop

in questo modo riesco a visualizzare tutto il file xo nn mi va bene xk ho proprio bisgno che mi prelevi riga per riga

spero di essere stato abbastanza chiaro...

PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 21:53
Venerdì, 19/10/2007
Prova a levare il while e mettere
Dim testo as string
Open dll for input as #1
testo = Input(LOF(1),#1)
close #1

ORa non ricordo bene,se ti da errore sostituisci
testo = Input(LOF(1),#1)
con
testo = Input(LOF(#1),1)
:k:Fammi sapere;);)

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 13:55
Sabato, 20/10/2007
però ho bisogno di prelevare riga per riga nn  tutto insieme

PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 14:22
Sabato, 20/10/2007
Ah,beh non saprei,potresti fare anziche lof(#1) un tot di numero di righe...Ma non credo si possa8-|

PM Quote
Avatar
P4p3r0g4 (Member)
Guru


Messaggi: 1319
Iscritto: 29/12/2006

Segnala al moderatore
Postato alle 14:43
Sabato, 20/10/2007
Non dovrebbe essere


open xcorso for input as 1
do while eof(1)=false
line input #1,riga
text1.seltext=riga & vbcrlf
loop
close

Ultima modifica effettuata da P4p3r0g4 il 20/10/2007 alle 14:44
PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 16:17
Sabato, 20/10/2007
si però anche in questo modo vedo solo poche righe nn tutte

PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 16:48
Sabato, 20/10/2007
Scusa ma tu usi solo Seltext,dovresti fare text1.text = text1.text & riga all'interno del ciclo...prova

PM Quote
Avatar
antometal (Member)
Guru


Messaggi: 691
Iscritto: 12/09/2007

Segnala al moderatore
Postato alle 17:13
Sabato, 20/10/2007
ho gia provato
niente da fare

PM Quote
Avatar
BytE-FucK (Normal User)
Pro


Messaggi: 171
Iscritto: 09/10/2007

Segnala al moderatore
Postato alle 9:53
Domenica, 21/10/2007
Mmh...Allora il problema dev'essere sicuramente che la dll non viene letta bene...

PM Quote