[Resolved] Online text

[Jonno12345]

Hey everyone

I want to be able to make my program check a .txt file online for a certain string. If that string is something, it does a sub. If not, it doesnt do anything.

How would i make it link up to that .txt file and get the string out of it?

all that would be in the .txt is something like "Yes" or "No"...

[lintz]

Put an Inet control on your form then use the below code. HTH

Private Sub Command1_Click()
Dim s as String
Dim MyValue as String
DownloadToFile "http://www.yoursite.com/myfile.txt", App.Path & "\myfile.txt"
 
'Once file has been downloaded you need to open it and check for Yes/No
 
 
Open App.Path & "\myfile.txt" For Input As #1 'Open text file
 
Line Input #1, s 'Read first line of text file
MyValue = s 'This will either be Yes or No
 
Close #1 'Close text file
 
Kill App.Path & "\myfile.txt" 'Delete file once it's been used
 
End Sub
 
Public Sub DownloadToFile(sUrl As String, sFileName As String)
Dim iID As Integer
Dim b() As Byte
 
  'This download the URL to a byte array
  b() = Inet1.OpenURL(sUrl, 1)
 
  ' Get a free file number
  iID = FreeFile
 
  ' Open the local file in binary mode
  Open sFileName For Binary As iID
 
  ' Save the byte array to the file
  Put #iID, , b()
 
  ' Close the local file
  Close iID
End Sub

[Jonno12345]

Put an Inet control on your form then use the below code. HTH

Private Sub Command1_Click()
Dim s as String
Dim MyValue as String
DownloadToFile "http://www.yoursite.com/myfile.txt", App.Path & "\myfile.txt"
 
'Once file has been downloaded you need to open it and check for Yes/No
 
 
Open App.Path & "\myfile.txt" For Input As #1 'Open text file
 
Line Input #1, s 'Read first line of text file
MyValue = s 'This will either be Yes or No
 
Close #1 'Close text file
 
Kill App.Path & "\myfile.txt" 'Delete file once it's been used
 
End Sub
 
Public Sub DownloadToFile(sUrl As String, sFileName As String)
Dim iID As Integer
Dim b() As Byte
 
  'This download the URL to a byte array
  b() = Inet1.OpenURL(sUrl, 1)
 
  ' Get a free file number
  iID = FreeFile
 
  ' Open the local file in binary mode
  Open sFileName For Binary As iID
 
  ' Save the byte array to the file
  Put #iID, , b()
 
  ' Close the local file
  Close iID
End Sub

Thank you VERY much. Thats more perfect than a perfect thing thats perfect

[lintz]

You're welcome