hi guys,
i am having a little strange( is a silly issue mostly) problem with handling of strings and files.
basically what im doing is i've a file on my server which has the login info for a user..
the program retrieves the file and compares it with the info entered..
now here is a sample filehttp://redemptionamerica.com/files/7...119811983.html
its a normal text file, which ive just given the extension .html.. u can open in notepad to see the line breaks there...
now i use the following code(inet control ) to retrieve the data and compare it..
pls point out the issue in this as although the info entered is same, it only passes the 1st or 2nd check but doesnt take the rest as equals..
i need to do some conversion i think..
i added different if's only to find where the issue was..
pls help me out
THANKS!!! :):)
i am having a little strange( is a silly issue mostly) problem with handling of strings and files.
basically what im doing is i've a file on my server which has the login info for a user..
the program retrieves the file and compares it with the info entered..
now here is a sample filehttp://redemptionamerica.com/files/7...119811983.html
its a normal text file, which ive just given the extension .html.. u can open in notepad to see the line breaks there...
now i use the following code(inet control ) to retrieve the data and compare it..
pls point out the issue in this as although the info entered is same, it only passes the 1st or 2nd check but doesnt take the rest as equals..
i need to do some conversion i think..
Code:
checknow = Inet1.OpenURL("Http://www.redemptionamerica.com/files/" & Text2.Text & ".html")
Label12.Caption = "Verifying"
Clipboard.Clear
'copy info contained in html file
Clipboard.SetText checknow
Close #1
'print the information to a ini file
Open App.Path & "\" & "_check.ini" For Output As #1
Print #1, checknow
Close #1
'to begin verification
lines = Split(checknow, ";")
If lines(0) = Text1.Text Then
MsgBox "name correct"
End If
If InStr(1, lines(1), Text2.Text) Then 'as this is a number and not getting equal normally
MsgBox "password correct"
End If
If lines(2) = Text3.Text Then
MsgBox "mail correct"
End If
If lines(3) = Text4.Text Then
MsgBox "done!!!"
End Ifpls help me out
THANKS!!! :):)