Hur gör man lättast om man vill avläsa värdet som finns i en fil (exempel textfil) över internet (VB6)

Tanken var något liknande detta

If x = 1 then
bla bla bla
Else
något annat
End if

x är also filen som finns på en webbserver, och när den innehåller teckenet "1" händer något..

mvh / Robin W. L.

Lägg till en "Microsoft Internet Transfer Control" och en vanlig knapp och testa nedanstående kod:

<code>
Private Sub Command1_Click()
Dim x As String
x = Inet1.OpenURL("http://lab.itbubblan.com/test.txt")

x = Replace(x, vbCrLf, "")
x = Replace(x, vbLf, "")

If x = "1" Then
MsgBox "Värdet är 1"
Else
MsgBox "Inte 1"
End If
End Sub
</code>

Vet inte om du behöver ha med replace-sakerna, men det skadar inte ;)

Fungerade utmärkt (:
Tack!