[Question]Reading in ftp by line

I wanna read a site/ftp by line, for example, in the ftp, its

1
2
3
4

So each line, will go to another Label.
So if I have 4 labels, label one would be "1", label 2 would be "2" and so on..

I already know how to read from a site/ftp using Blubbs code
But I dont know how to read by line

So can you guys help

Originally Posted by .Celtics

I wanna read a site/ftp by line, for example, in the ftp, its

So each line, will go to another Label.
So if I have 4 labels, label one would be "1", label 2 would be "2" and so on..

I already know how to read from a site/ftp using Blubbs code
But I dont know how to read by line

So can you guys help

Code:

Dim DownloadedData as string = DataDownloadedUsingBlubb'sCode...
DownloadedData=DownloadedData.Trim
Dim param() as string=DownloadedData.Split(chrw(10))
If param.length>0 Then
For i as integer =1 to param.length
Dim lbl as object = Me.controls("Label" & i)
lbl.text=param(i)
Next
End If

Just replace DownloadedData variable's value with the value you retrieved from FTP, and you're good to go !!

Thanks for the fast reply

What will I replace in "DataDownloadedUsingBlubb'sCode..."?
I dont know what to replace it with

And what would i add to continue to the next line after label 1?

/

Originally Posted by .Celtics

Thanks for the fast reply

What will I replace in "DataDownloadedUsingBlubb'sCode..."?
I dont know what to replace it with

And what would i add to continue to the next line after label 1?

/

Dude, you said in your original post that:

I already know how to read from a site/ftp using Blubbs code.

Just store that value in the variable "DownloadedData".

And it will continue the loop automatically. If you want to add code each time a label is assigned a value, add between:

[php]For i as integer =1 to param.length

Next
[/php]

Originally Posted by Xscapism

Code:

Dim DownloadedData as string = DataDownloadedUsingBlubb'sCode...
DownloadedData=DownloadedData.Trim
Dim param() as string=DownloadedData.Split(chrw(10))
If param.length>0 Then
For i as integer =1 to param.length
Dim lbl as object = Me.controls("Label" & i)
lbl.text=param(i)
Next
End If

Just replace DownloadedData variable's value with the value you retrieved from FTP, and you're good to go !!

That will work only if the file is saved as unicode O:

If it's ASCII, then you'll need to split it with chr(10), not chrw(10).

Originally Posted by freedompeace

That will work only if the file is saved as unicode O:

If it's ASCII, then you'll need to split it with chr(10), not chrw(10).

Nope. It will work in any case.

The valid range for Chr is 0 through 255, and the valid range for ChrW is -32768 through 65535. So, ChrW supports Unicode as well as non-Unicode characters.

Theres an error:

Object variable or With block variable not set.

Do you know why?

Originally Posted by .Celtics

Theres an error:

Object variable or With block variable not set.

Do you know why?

Some code will help !!

Edit: This is a know bug. Have a look here:

http://support.microsof*****m/kb/316478

But do post your code here too !!

Im using this code of Blubb:
[php]Private Const _test As String = "http:ftp/test.txt"

Private Function loadPage(ByVal page As String)
Dim req As WebRequest = WebRequest.Create(page)
Dim resp As WebResponse = req.GetResponse()

Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd()
Return doc[/php]

Then I just did this with your code
[php] Dim DownloadedData As String = loadPage(_activator)
DownloadedData = DownloadedData.Trim
Dim param() As String = DownloadedData.Split(ChrW(10))
If param.Length > 0 Then
For i As Integer = 1 To param.Length
Dim lbl As Object = Me.Controls("Label" & i)
lbl.text = param(i)
Next
End If

End Sub[/php]

So did I do something wrong?

I'd stream the downloaded text and use a IO.Streamreader...easier IMO

Originally Posted by .Celtics

Im using this code of Blubb:
So did I do something wrong?

Try this:

[php]Private Const _test As String = "http:ftp/test.txt"

Private Function loadPage(ByVal page As String)
Dim req As WebRequest = WebRequest.Create(page)
Dim resp As WebResponse = req.GetResponse()

Dim s As Stream = resp.GetResponseStream()
Dim sr As StreamReader = New StreamReader(s, Encoding.ASCII)
Dim doc As String = sr.ReadToEnd()
Return doc

Dim DownloadedData As String = loadPage(_activator)
DownloadedData = DownloadedData.Trim
Dim param() As String = DownloadedData.Split(ChrW(10))
If param.Length > 0 Then
For i As Integer = 1 To param.Length
Dim lbl As Object = Me.Controls("Label" & i)
lbl.text = param(i)
Next
End If

End Function[/php]

You must close Function with "End Function"

@Blubb How?

@Xscapism

Sorry for the mistake in c/p pasting the code, there is already an End Function in the 1st code, and the 2nd code is in form load

It has another erorr if i merge them

To get the stream as blubb suggested, try something like this:

[php]
Private function GetPageStream(ByVal pageURL as string) as io.stream
Dim webReq as Net.httpWebRequest = Directcast(net.webrequest.create(pageURL),net.http webrequest)
Dim webResp as net.httpwebresponse = DirectCast(webReq.getresponse, net.httpwebresponse)
Return webResp.getresponsestream
End function
[/php]

Whew that took a long time to type. Noon iPhone typer = me

Edit, I think this would be an easier method:
[php]
Using wc as new net.webclient
Dim textArray() as string = wc.Downloadstring("yoursite here").split(VbNewLine)
For I as integer = 0 to textArray.count -1
DirectCast(Me.controls("Label" & (I+1).tostring, label).Text = textArray(I)
Next [/php]

Originally Posted by Imported

To get the stream as blubb suggested, try something like this:

[php]
Private function GetPageStream(ByVal pageURL as string) as io.stream
Dim webReq as Net.httpWebRequest = Directcast(net.webrequest.create(pageURL),net.http webrequest)
Dim webResp as net.httpwebresponse = DirectCast(webReq.getresponse, net.httpwebresponse)
Return webResp.getresponsestream
End function
[/php]Whew that took a long time to type. Noon iPhone typer = me

Edit, I think this would be an easier method:
[php]
Using wc as new net.webclient
Dim textArray() as string = wc.Downloadstring("yoursite here").split(VbNewLine)
For I as integer = 0 to textArray.count -1
DirectCast(Me.controls("Label" & (I+1).tostring, label).Text = textArray(I)
Next [/php]

GJ. I prefer the second one !! But use DirectCast only when other methods fail. (Optimization xD)

Turn option strict on choob.

Properly, the first one should just use net.httpwebrequest.create to avoid any casting at all haha

[Question]Reading in ftp by line

Post a Reply

Similar Threads

Tags for this Thread