Jump to content

SOLVED:Copy source code from site.


jacq
 Share

Recommended Posts

Welcome.

This is code

#include <String.au3>
#include <Inet.au3>

$String = (_INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science'))

$String_Start = 'class="prog_title">'
$String_End   = '</a><div class="genre">'

If StringInStr($String, 'title="trwa"') Then
    $Array = _StringBetween($String, $String_Start, $String_End)
    $ConsoleWrite = ($Array[0] & @LF)
MsgBox(64, "Info", $ConsoleWrite)

EndIf

but the Polish characters do not work you may know how to change it.Help!!!

I used this code but not working

#include <Clipboard.au3>

_ClipBoard_SetData($ConsoleWrite, $CF_UNICODETEXT)
Edited by jacq
Link to comment
Share on other sites

You should remove the first set of parantheses here, so,

$String = (_INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science'))

should be

$String = _INetGetSource('http://www.teleman.pl/program-tv/stacje/Discovery-Science')

- Bruce /*somdcomputerguy */  If you change the way you look at things, the things you look at change.

Link to comment
Share on other sites

Maybe they're tired, or just lazy.. :oops: Ok, kidding aside. You'll have to be a bit more descriptive than 'do not work' if anybody will be able to help. Someone's crystal ball might be polished just enough to guess pretty accurately what you mean though.

- Bruce /*somdcomputerguy */  If you change the way you look at things, the things you look at change.

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
 Share

  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...