webtrade 0 Newbie Poster

If anyone can help me convert this snipet of code to vb.net I would greatly appreciate it. Thanks in advance.
webtrade

Dim not_first_symbol As Boolean
Dim symbol As String
Dim query_url As String

Dim response As Variant
Dim quotes As String
Dim fnum As Integer
Dim whole_file As String
Dim lines As Variant
Dim one_line As Variant
Dim num_rows As Long
Dim num_cols As Long
Dim the_array() As String
Dim R As Long
Dim C As Long


MousePointer = vbHourglass

DoEvents

' Prepare a URL to get the quotes.
If USE_TEST_FILE Then
response = LoadTestFile
Else
query_url = "http://quote.yahoo.com/download/quotes.csv?format=sl&ext=.csv&symbols="
For i = 1 To 15
symbol = LCase$(Trim$(ini(i, 2, pAcctdesc)))
If Len(symbol) > 0 Then
If not_first_symbol Then _
query_url = query_url & ","
query_url = query_url & symbol
not_first_symbol = True
End If
Next i

' Open the URL.
response = inetQuotes.OpenURL(query_url)
End If

' Display the response.

MousePointer = vbDefault
whole_file = response
lines = Split(whole_file, vbCrLf)
num_rows = UBound(lines)
one_line = Split(lines(0), ",")
num_cols = UBound(one_line)
ReDim the_array(num_rows, num_cols)

' Copy the Data into the array.
For R = 0 To num_rows
one_line = Split(lines(R), ",")
For C = 0 To num_cols
On Error Resume Next


the_array(R, C) = one_line(C)
Next C
Next R

Be a part of the DaniWeb community

We're a friendly, industry-focused community of developers, IT pros, digital marketers, and technology enthusiasts meeting, networking, learning, and sharing knowledge.