1. JohnRockefeller13.03.2025 в 00:08от
  2. D1zo12.03.2025 в 22:05от
Загрузка...

Привет помогите

Тема в разделе "С/С++/Pascal/Delphi", создана пользователем Brute, 18.09.2012.

  1. Brute

    Brute

    Статус:
    Оффлайн
    Регистрация:
    17.09.12
    Сообщения:
    16
    Репутация:
    -2 +/-
    Люди если вам не трудно дайте исходник Парсера и брута!
     
  2. mooonsk

    mooonsk

    Статус:
    Оффлайн
    Регистрация:
    18.09.12
    Сообщения:
    299
    Репутация:
    139 +/-
    C# - Парсер
    private string GetEasylabViews()
    {

    using System.IO; //для класса
    using StreamReader;
    using System.Text.RegularExpressions;
    using System.Net;

    string url = "http://site.ru"; // куда будем коннектиться
    string html = string.Empty; // сюда поместим html код страницы
    string pattern = "Просмотров - (.*)";// регулярное которое найдет просмотры

    HttpWebRequest myRequest = (HttpWebRequest)HttpWebRequest.Create(url);
    HttpWebResponse myResponse = (HttpWebResponse)myRequest.GetResponse();
    StreamReader sr = new StreamReader(myResponse.GetResponseStream(),Encoding.GetEncoding(1251));
    html = sr.ReadToEnd();


    Match res;
    res = Regex.Match(html, pattern);
    return res.Groups[1].ToString();

    }
     
  3. DEKABRUST

    DEKABRUST

    Статус:
    Оффлайн
    Регистрация:
    10.03.12
    Сообщения:
    218
    Репутация:
    54 +/-
    Хоть бы указал на каком языке тебе исходники нужны.
     
  4. Abyss

    Abyss

    Статус:
    Оффлайн
    Регистрация:
    27.08.12
    Сообщения:
    364
    Репутация:
    379 +/-
    Что ты имеешь ввиду под видом парсинга? В Delphi есть стандартные функции pos, copy
    Ну или функция более умного парсинга в делфи
    Код:
    function TForm1.Pars(T_, ForS, _T: string): string;
    var a, b:integer;
    begin
    Result := '';
    if (T_='') or (ForS='') or (_T='') then Exit;
    a:=Pos(T_, ForS);
    if a=0 then Exit else a:=a+Length(T_);
    ForS:=Copy(ForS, a, Length(ForS)-a+1);
    b:=Pos(_T, ForS);
    if b>0 then
    Result:=Copy(ForS, 1, b - 1);
    end;
    В общем выражай свои мысли конкретнее.