Gambas ONE

''NEEDS gb.net.curl

Public Sub Form_Open()

  Dim sPage As String

  sPage = GetHScope("https://www.elle.com/horoscopes/daily/a98/taurus-daily-horoscope/")

  File.Save(Application.Path &/ "hScope.txt", sPage)

End

Public Sub GetHScope(sURL As String) As String

  Dim hClient As HttpClient                                                     'To create a HTTP Client
  Dim sResult As String                                                         'To store the word's meaning

  hClient = New HttpClient As "hClient"                                         'Create a HTTP Client
  With hClient                                                                  'With the Client..
    .URL = sURL                                                                 'Set up the URL
    .Async = False                                                              'No Asynchronous transmission?
    .TimeOut = 60                                                               'Don't hang around waiting for more than 60 seconds
    .get                                                                        'Get the data
  End With

  If Lof(hClient) Then sResult = Read #hClient, Lof(hClient)                    'When all the data is downloaded store it in sResult
  Return sResult

End

Dim aLines As String[]
Dim iCount As Integer

aLines = Split(sPage, "\n")  ' split the page into lines.

For iCount = 0 To aLines.Max

' Use the Like keyword to check a string pattern
 If aLines[iCount] Like "<meta property=\"og:description\" content=*" Then
   Print "Found Line";; aLines[iCount] 
   Print "The next line is "; aLines[iCount + 1]
   Break   ' exit the loop as we are finished
 Endif

Next

Public Sub Form_Open()

  Dim hClient As HttpClient                                                     'To create a HTTP Client
  Dim sResult As String                                                         'To store the word's meaning
  
  hClient = New HttpClient As "hClient"                                         'Create a HTTP Client
  With hClient                                                                  'With the Client..
    .URL = "https://www.horoscop.ro/rac/"                                                                 'Set up the URL
    .Async = False                                                              'No Asynchronous transmission?
    .TimeOut = 60                                                               'Don't hang around waiting for more than 60 seconds
    .get                                                                        'Get the data
  End With
  
  While Lof(hClient)    ' Lof has a value until all the file has been downloaded

    sResult = hClient.ReadLine()  ' Read 1 single line

   If sResult Like "<meta property=\"og:description\" content=*" Then      ' Here the line is found
     sResult = Mid(sResult, InStr(sResult, "content=") + 9)   ' trim out the left side
     sResult = Mid(sResult, 1, RInStr(sResult, "\"") - 1)        ' trim out the right side
    hClient.Close    ' close the stream     
    Break   ' exit the loop
  Endif
  Wend

Print sResult
 
End