I hate VB~

[KhaN]

I was wondering if one of you was able to point me about a problem i have with VB.
5 years i dont have touch VB, and i admit i have some problems with it lol.

rivate Sub StartUpdate()
On Error GoTo Failed 'Error Handler
Dim aCnt As Integer 'Loop counter
Dim UpdateString As String 'Holds the update information
Dim aSplit() As String, bSplit() As String 'Used to split the information
Dim UpdateByte() As Byte 'Holds the download
Dim tInt As Integer 'Holds value of split
Dim ff As Integer 'Used for FreeFile
Dim TempData As String 'Holds temporary date to compare

'Get the \update.txt file from the server
UpdateString = iNet.OpenURL(WebAddress, icString)
MsgBox UpdateString

'Strip the NEWS TEXT off the string and display it
tInt = InStr(1, UpdateString, vbCrLf)
MsgBox tInt

'Display the NEWS in the text box
txtMain.Text = Left$(UpdateString, tInt - 1)

'Strip the News Text off the string completely now
UpdateString = Mid$(UpdateString, tInt + Len(vbCrLf))

'Breaks down each update individually
aSplit = Split(UpdateString, vbCrLf)

'Dim the UDT array to hold exact amount of files to update
ReDim uInfo(UBound(aSplit) - 1)

'Create for/next to break up each file update
For aCnt = LBound(aSplit) To UBound(aSplit) - 1
'Breaks down each update individually and writes information
bSplit = Split(aSplit(aCnt), ", ")
    With uInfo(aCnt)
        .fPlacement = Trim$(bSplit(0))
        .fDateFile = Trim$(bSplit(1))
        .fUpdateTime = Trim$(bSplit(2))
        .fGetFile = Trim$(bSplit(3))
    End With
Next aCnt

I know the problem is with "tInt = InStr(1, UpdateString, vbCrLf)", a special TXT File format is needed, but i cant find which one ...
my actual TXT look like this :

TEST BLABLABLA.
\eqhost.txt, eqhost.xvx, 24/05/04 5:12:21 AM, http://eqa.eqemulator.net/patcher/eqhost.txt

I bet "vbCrLf" is the problem, but i cant remember how to fix this ... *sight*

Thanks in advance / KhaN

[mangoo]

Originally Posted by KhaN

I hate VB~

me too

<3 C++

[KhaN]

me too

<3 C++

I agree with you, im learning C++ atm in the hope to help EQEmu later and continu to work on EQA, but my VB is still better than my C++, i would let you imagine what my auto patcher would look like in C++ ...

i searched info in web about "vbCrLf", it look it refer to return to line "word wrap" and its not activated when i create the file with notepad or wordpad ... file is loaded and "tInt" return 0 when it should return 1 ... i miss TXT file structure ...

[Smendle]

rivate Sub StartUpdate()
On Error GoTo Failed 'Error Handler
Dim aCnt As Integer 'Loop counter
Dim UpdateString As String 'Holds the update information
Dim aSplit() As String, bSplit() As String 'Used to split the information
Dim UpdateByte() As Byte 'Holds the download
Dim tInt As Integer 'Holds value of split
Dim ff As Integer 'Used for FreeFile
Dim TempData As String 'Holds temporary date to compare

'Get the \update.txt file from the server
UpdateString = iNet.OpenURL(WebAddress, icString)
MsgBox UpdateString

'Strip the NEWS TEXT off the string and display it
tInt = InStr(1, UpdateString, vbCrLf)
MsgBox tInt

'Display the NEWS in the text box
txtMain.Text = Left$(UpdateString, tInt - 1)

'Strip the News Text off the string completely now
UpdateString = Mid$(UpdateString, tInt + Len(vbCrLf))

'Breaks down each update individually
aSplit = Split(UpdateString, vbCrLf)

Well first off your taking UpdateString and putting it into an array AFTER you have changed it with Mid and the Mid statement is stripping out the Carriage Return Line Feed

Do asplit after you get updatestring and it should work.