Oppure

Loading
04/01/10 21:31
visualrenzo
salve a tutti ho un problema.
sto cercando di usare l' inet e a quanto pare ci sono riuscito.
ho scritto il seguente codice che estrae dal sito estrazionidellotto.com/…
il file enaltxt.exe e me lo salva su c:
Il problema è che il file è un punto exe io vorrei che una volta scaricato, in automatico me lo estrae e lo trasforma in un .xls di excel infatti quando lo estraggo è un .csv ma a me serve .xml
Io lo trasformo in xls aprendo il file .csv e salvandolo come cartella di lavoro di microsoft excel 97-2002.

Questo è il codice

Public Sub Command1_Click()
Dim strSourceFile As String, strDestinationFile As String

strSourceFile = "estrazionidellotto.com/…;
strDestinationFile = ("C:\Enascaricato.exe";)
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub

.... e poi come faccio a sapere quando ha finito di salvarlo in c: ?
Grazie
aaa
04/01/10 23:12
nessuno
Che vuol dire? Dopo la Close ha finito ...
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
05/01/10 8:03
visualrenzo
quindi dopo che arriva alla close siamo sicuri che l' ha prelevato dal sito e l' ha salvato su c:

e per quanto riguarda lo scompattamento e la trasformazione?
aaa
05/01/10 9:51
nessuno
Ovviamente, a meno di errori che si possono presentare prima della Close.
Ma dovrai inserire del codice per trapparli.

Per la scompattazione, usa un programma appropriato (zip, rar?) lanciandolo da Shell con appositi parametri.

Per la trasformazione, se vuoi usare Excel, dovrai farlo tramite Automation, creando un'istanza del server Excel con CreateObject o simili.
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
05/01/10 15:12
visualrenzo
non so cos' è shell
aaa
05/01/10 15:19
nessuno
Postato originariamente da visualrenzo:

non so cos' è shell


Ottimo motivo per documentarsi

msdn.microsoft.com/en-us/library/…(VS.60).aspx
Ricorda che nessuno è obbligato a risponderti e che nessuno è perfetto ...
---
Il grande studioso italiano Bruno de Finetti ( uno dei padri fondatori del moderno Calcolo delle probabilità ) chiamava il gioco del Lotto Tassa sulla stupidità.
05/01/10 19:10
lorenzo
Postato originariamente da nessuno:

Ottimo motivo per documentarsi



:rotfl::rotfl::rotfl:
aaa
05/01/10 19:20
mitor
Postato originariamente da visualrenzo:

salve a tutti ho un problema.
sto cercando di usare l' inet e a quanto pare ci sono riuscito.
ho scritto il seguente codice che estrae dal sito estrazionidellotto.com/…
il file enaltxt.exe e me lo salva su c:
Il problema è che il file è un punto exe io vorrei che una volta scaricato, in automatico me lo estrae e lo trasforma in un .xls di excel infatti quando lo estraggo è un .csv ma a me serve .xml
Io lo trasformo in xls aprendo il file .csv e salvandolo come cartella di lavoro di microsoft excel 97-2002.

Questo è il codice

Public Sub Command1_Click()
Dim strSourceFile As String, strDestinationFile As String

strSourceFile = "estrazionidellotto.com/…;
strDestinationFile = ("C:\Enascaricato.exe";)
Dim bytInputData() As Byte
Dim IntNumberFile As Integer
bytInputData() = Inet1.OpenURL(strSourceFile, icByteArray)
IntNumberFile = FreeFile
Open strDestinationFile For Binary As #IntNumberFile
Put #IntNumberFile, , bytInputData()
Close #IntNumberFile
End Sub

.... e poi come faccio a sapere quando ha finito di salvarlo in c: ?
Grazie


basta che richiami l'eseguibile di win rar che si occupa dell'estrazione dei file e gli fai eseguire l'operazione tramite shell per quel che riguarda l'estrazione.
Ultima modifica effettuata da mitor 05/01/10 19:21
aaa