Newsgroup: it.comp.lang.visual-basic
Titolo: File di Testo

Ciao a tutto il NG il mio problema è il seguente:
Devo collegarmi a un file di testo su un Server http,
ma quando cerco di aprirlo mi dice:
errore run-time 52 numero o nome di file non valido,
non capisco dove sia l'errore vi posto la stringa di connessione in modo che
possiate aiutarmi
    Open Inet1.OpenURL(Sito, icByteArray) For Input As #1
Grazie e ciao a tutti

 wrote in message
NXR67.42$Cj....@nreader1.kpnqwest.net...

prova cosi':
  Bidone$ = Inet1.OpenURL(tuopercorsohttp$, icString)
CIAO!

 > Ciao a tutto il NG il mio problema č il seguente:


 se invece metto il $ mi restituisce tag html...
x non e' un file, ma una variabile (in questo caso variant) che contiene
tutto il codice (html o txt) della pagina richiesta.
Se stai richiedento una pagina di testo o html, non usare
"icByteArray" ma "icString".
Per salvare il contenuto di "x" su un file puoi fare cosi':
  open filename for output as #1
  print #1, x;
  close #1
Ti consiglio inoltre di dimensionare "x" come string, cosi':
  dim x as string
oppure
  dim x$
CIAO!

Il problema č che mi si ferma prima che io salvi il contenuto della string
su file
dicendomi, nonostante il percorso sia corretto,  Impossibile trovare il
file, ti posto il codice corrente
Dim x As String
x = Inet1.OpenURL(Sito, icString)
Open x For Output As #1
e dopo c'č
    print #1, x;
       close #1
ma il codice si ferma ad open
"buc" <df...@XXXhotmail.com> ha scritto nel messaggio
news:9jj839$mo0pg$1...@ID-91934.news.dfncis.de...


 ma il codice si ferma ad open
devi aspettare che il comando OpenURL finisca, controllando
pa proprieta' StillExecuting (se e' = false ha finito), cosi':
    Dim x As String
    Dim Tempo as Single
'apre la pagina
    x = Inet1.OpenURL(Sito, icString)
'aspetta al massimo 20 secondi
    For n = 1 To 20
        If Inet1.StillExecuting = False Then
            Exit For
        End If
        Tempo = Timer + 1
        While Timer < tempo: DoEvents: Wend
    Next n
poi scrivi il contenuto di "x" su un file.
Inoltre...
************** NON USARE X COME NOME DI FILE *****************
Se devi scrivere il contenuto di "x" in "c:\pippo.txt" fai cosi':
  Open "c:\pippo.txt" For Output As #1
e non
  Open x For Output As #1
CIAO!

 > e dopo c'è


 Open x For Output As #1
Ma leggi quello che ti scrivo?
Ti ho detto di non usare x come nome di file.

come faccio a dirgli di leggere il file da web se non gli metto x, non sò in
che altro modo farlo
"buc" <df...@XXXhotmail.com> ha scritto nel messaggio
news:9jjhfs$oe8d2$1...@ID-91934.news.dfncis.de...


 che altro modo farlo
allora:
--------------------------------cut-----------------------------------
  Dim x As String
  x = Inet1.OpenURL(Sito, icString)
  For n = 1 To 20
    If Inet1.StillExecuting = False Then
       Exit For
    End If
    Tempo = Timer + 1
    While Timer < tempo: DoEvents: Wend
  Next n
  Open QUICIVAILNOMEDELFILE For Output As #1
  print #1, x;
  close #1
--------------------------------cut-----------------------------------
il QUICIVAILNOMEDELFILE non deve essere x.
puoi usare: "pippo.txt", "finalmente.txt",
"unnomequalunquebastachenonsiax.txt", ecc...
Se copi e incolli il tutto, funzia.
ciao

 "unnomequalunquebastachenonsiax.txt", ecc...
anzi, puoi fare anche cosi, se proprio vuoi usare x:
  open "x" for output as #1
ma non
  open x for output as #1
CIAO!