ARRAY INIFNITO

ALANKOBA 03/07/2010 21:58:02
#346465
eu gostaria de um aplicativo que funcionasse desta maneira:

Uma variavel() le dados de um txt linha a linha.
cada linha é um array na variavel e que isso não fosse algo predefinido e sim uma leitura infinita, quantas linhas tiver é quantas arrays serao formadas e preenchidas.

e com o resultado dessa variavel eu fazer o inet baixar linha a linha
que no caso cada linha vai conter um link

alguem me ajuda?
ASHKATCHUP 04/07/2010 12:07:43
#346471
Você pode redimencionar um array usando a funçãp UBound.



Private Sub Form_Load()
    Dim lCont                           As Long
    Dim vVetor()                        As String
    [ô]
    ReDim vVetor(0)
    [ô]
    For lCont = 0 To 40000
        vVetor(lCont) = [Ô]Numero[Ô] & lCont
        ReDim Preserve vVetor(lCont + 1)
    Next
    [ô]
    Stop
End Sub
ALANKOBA 04/07/2010 12:32:42
#346474
sim mais e a gora como eu faria o inet baixar cada array?
ASHKATCHUP 04/07/2010 13:48:02
#346476
Eu nem sei o que é iNET...

Só postei o código do array infinito. Acho que você consegue adpatar pro teu caso.
ALANKOBA 04/07/2010 15:00:51
#346478
inet o componente de download ué
TECLA 04/07/2010 15:52:24
#346481 
Public Function Download(ArqURL As String, Arqtemp As String) As Boolean
Dim arquivo() As Byte

Open Arqtemp For Binary Access Write As #1
arquivo() = Inet1.OpenURL(ArqURL, icByteArray)
Put #1, , arquivo()
Close #1

MsgBox [Ô]O arquivo foi recebido com sucesso![Ô]
Download = True 
Exit Function
	Trata_erro:
	MsgBox [Ô]Ocorreu um erro durante a transferência ! [Ô], vbCritical
	Download = False
End Function


lretorno = Download(Text1.Text, Text2.Text)


Internet Transfer Control (Inet) – Transferindo arquivos com o VB
ALANKOBA 04/07/2010 21:59:44
#346493
e com oque eu preencheria text1 e text2?
Tópico encerrado , respostas não são mais permitidas
Voltar