Newsgroup: it.comp.lang.visual-basic
Titolo: passare informazioni ad applicazione tramite command

 Ho un exe che tramite commondialog permette di selezionare un file di testo
e copiaren il contenuto in una text box.
Per fare tutto questo utilizzo il seguente codice, funzionante:
Open cd.filename For Input As #1
txtFile.Text = Input(LOF(1), 1)
Close #1
Se provo a fare nel load del form (main):
dim path as string
path = commad()
Open path For Input As #1
txtFile.Text = Input(LOF(1), 1)
Close #1
mi dà errore 52, nome o numero file non valido.
path lo riceve correttamente, ho debuggato.
ho provato con msdn ma non aiuta molto, veramente neanche su ggl ho trovato
soluzioni (vi prego di confutare questa cosa) :-)
Grazie mille, SK
--
La pasienzia non è mai troppo (Totò).
<><><>
Esistono 10 tipi di persone: chi conosce il binario e chi no.

Io ho provato nel Form_Load a inserire il seguente codice e mi funziona
(eseguendo ad esempio: Project1.exe c:\miofile.txt):
dim path as string
path = command()
Open path For Input As #1
txtFile.Text = Input(LOF(1), 1)
Close #1
Se ti va in errore anche in debug, prova a verificare che sia
effettivamente #1 il primo puntatore disponibile (?FreeFile).
Ciao,
*Roby*
-- 
questo articolo e` stato inviato via web dal servizio gratuito 
http://www.newsland.it/news
 segnala gli abusi ad 
ab...@newsland.it

Scusate, scusate, scusate.
ho postato codice corretto mentre quello scritto nel progetto era sbagliato.
imbrogliato numeri file.
Era la fame...
I beg your pardon.
Ciao, SK


 Ciao, SK
ciaociao

 ciaociao
Ciao, SKiatto, tra un pò.


 Ciao, SKiatto, tra un pò.
resisti suvvia!
ciaociao

 ciaociao
che ciao, adesso mi aiuti! :-P
Ciao, SK


 Ciao, SK

> Ciao, SK

 hai provato a sostituire  #1 con il numero restituito da Freefile?
mille e più volte, anche se apro solo un file, questa è *tutta*
l'applicazione, un editro di testo da mettere nel sendto di windows.
Grazie mille per la collaborazione


 e poi non ho capito se quando esegui il debug passo-passo funge o no?
di default l'applicazione parte dall'ide (debug, quindi) con lo stesso path
(indicato in proprietà progetto, tab crea) del txt sul desktop e tutto
funziona. lo stesso file passatogli con command non vuole andare.
e che cacchio!


[cuttone]
ora sta diventando una questione di principio, se ti č possibile puoi
mandarmi l'exe?
ciaociao

 mandarmi l'exe?
Schiaffa una textbox su un form, butta il codice seguente nel form_load:
dim path as string
path = commad()
Open path For Input As #1
Text1.Text = Input(LOF(1), 1)
Close #1
Crea l'eseguibile e passagli un file di testo dal desktop o da un path
contenente spazi e vedi che fa...
Ho fatto esattamente questi passaggi 42 secondi fa e non funonzia, ovvero
command() funziona solo con path senza spazi.
Roba da matti.
Grazie, Marco
--
La pasienzia non č mai troppo (Totņ).


 Close #1
et voilà!
ciaociao

 ciaociao
Ciao, Marco
--
La pasienzia non è mai troppo (Totò).


 Ciao, Marco
ciaociao

 euri! 8-O eheheheh
Cosa vuol dire fatturare? roba vudů?
Non credo a queste cose, al massimo te ne mando 80 insieme al dvd
("origginale", come diciamo noi) di matrix 3...
:-)
Ciao e ancora grazie, Marco
--
La pasienzia non č mai troppo (Totň).
