Pomoć oko koda za izvlačenje podataka s weba (Programiranje) @ Bug.hr Forum

tnakir

17 godina

offline

čet 17.6.2010 9:56

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

Evo portano ti je u VB.Net... valjda je ok, koristio sam automatsku konverziju

Public Function Parse_Webpage(Webpage As [String]) As [String]

Dim myRequest As WebRequest = WebRequest.Create(Webpage)

Dim myStreamReader As New StreamReader(myRequest.GetResponse().GetResponseStream(), System.Text.Encoding.GetEncoding(1250), True)

Return myStreamReader.ReadToEnd()

End Function

Public Function Extract_Data() As [String]

Dim Parsed_Result As [String] = Parse_Webpage("http://www.nekastranica.com")

Dim Start As Int32, myStop As Int32

Start = Parsed_Result.IndexOf("<title>") + 7

myStop = Parsed_Result.IndexOf("</title>")

Return Parsed_Result.Substring(Start, Start - myStop )

End Function

I'm going woo woo

Poruka je uređivana zadnji put čet 17.6.2010 10:00 (tnakir).

trajni link

0 0 hvala 0

Buffer Overflow

15 godina

protjeran

offline

čet 17.6.2010 10:01

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

Regex i zdravo. Vrlo jednostavno. Da imaš linux napisao bi ti jednostavni dialog u recimo bash-u i zenity-u u kombinaciji sa sed-om.

Možeš pokušati i sa regexom u windowsima, a za to ti treba (ako ideš preko VB) VBScript.

void function(char *str) {char buffer[16];strcpy(buffer,str); } void main() {char large_string[256];int i; for( i = 0; i &amp;amp;amp;lt; 255; i++) large_string[i] = 'A';function(large_string)

Moj PC

trajni link

0 0 hvala 0

Dokyri

15 godina

neaktivan

offline

čet 17.6.2010 10:03

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

mozda mi je nes krivo konvertalo al informacija koju dobijem je zlkemp o.O, sigurno nes krivo konvertalo

trajni link

0 0 hvala 0

Dokyri

15 godina

neaktivan

offline

čet 17.6.2010 10:04

Odgovori Citiraj

RE: Pomoć oko koda za izvlačenje podataka s weba

pa za sada jedino uspjesno je s perlom :D

trajni link nadporuka

0 0 hvala 0

tnakir

17 godina

offline

čet 17.6.2010 10:07

Odgovori Citiraj

RE: Pomoć oko koda za izvlačenje podataka s weba

tnakir kaže...

using System;

using System.Collections.Generic;

using System.Linq;

using System.Web;

using System.Web.UI;

using System.Web.UI.WebControls;

using System.Text.RegularExpressions;

using System.IO;

using System.Net;

public String Parse_Webpage(String Webpage) //ovaj dio ti parsa stranicu

{

WebRequest myRequest = WebRequest.Create(Webpage);

StreamReader myStreamReader = new StreamReader(myRequest.GetResponse().GetResponseStream(), System.Text.Encoding.GetEncoding(1250), true);

return myStreamReader.ReadToEnd();

}

public String Extract_Data()

{

String Parsed_Result = Parse_Webpage("http://www.nekastranica.com");

Regex regex = new Regex( ".*<head>.*<title>(.*)</title>.*</head>.*", RegexOptions.IgnoreCase );

Match match = regex.Match( Parsed_Result );

return match.Groups[0].Value;

}

Evo i sa regexom...

I'm going woo woo

Poruka je uređivana zadnji put čet 17.6.2010 10:07 (tnakir).

trajni link nadporuka

0 0 hvala 0

Dokyri

15 godina

neaktivan

offline

čet 17.6.2010 10:13

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

sad dobijem prazan string wtf???

trajni link

0 0 hvala 0

Buffer Overflow

15 godina

protjeran

offline

čet 17.6.2010 10:54

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

Evo jedan bash cod sklepan na brzinu, temeljan na broju linija u html-u (radi ;) ):

Ne valja za ostale- promijet ćemo

void function(char *str) {char buffer[16];strcpy(buffer,str); } void main() {char large_string[256];int i; for( i = 0; i &amp;amp;amp;lt; 255; i++) large_string[i] = 'A';function(large_string)

Poruka je uređivana zadnji put čet 17.6.2010 11:02 (Buffer Overflow).

Moj PC

trajni link

0 0 hvala 0

Buffer Overflow

15 godina

protjeran

offline

čet 17.6.2010 11:20

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

Evo, radi bez problema

#!/bin/bash

echo "Unesi url:"

read url

wget -O price $url -q

kune=$(cat price | grep kn\< | sed '2,$d' | cut -d "k" -f1)

echo " Trenutna cijena je: $kune kn"

5 linija :D

void function(char *str) {char buffer[16];strcpy(buffer,str); } void main() {char large_string[256];int i; for( i = 0; i &amp;amp;amp;lt; 255; i++) large_string[i] = 'A';function(large_string)

Moj PC

trajni link

1 0 hvala 0

Dokyri

15 godina

neaktivan

offline

čet 17.6.2010 13:31

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

neznam mogu li napraviti interface za to i vb net :D

trajni link

0 0 hvala 0

Buffer Overflow

15 godina

protjeran

offline

čet 17.6.2010 13:33

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

Sumnjam.

void function(char *str) {char buffer[16];strcpy(buffer,str); } void main() {char large_string[256];int i; for( i = 0; i &amp;amp;amp;lt; 255; i++) large_string[i] = 'A';function(large_string)

Moj PC

trajni link

0 0 hvala 0

tnakir

17 godina

offline

čet 17.6.2010 13:36

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

Jesi pokusao onaj kod koji sam ti ja nakucao?

I'm going woo woo

trajni link

0 0 hvala 0

Uny

15 godina

neaktivan

offline

čet 17.6.2010 14:23

Odgovori Citiraj

RE: Pomoć oko koda za izvlačenje podataka s weba

Dim NASLOV As String = WebBrowser1.Document.GetElementById(naslov).InnerText

ovaj naslov u zagradi mora biti napisan malim slovima, jer je tocno tako deklariran na stranici aukcije.hr

Moj PC

trajni link nadporuka

0 0 hvala 0

Uny

15 godina

neaktivan

offline

čet 17.6.2010 14:25

Odgovori Citiraj

RE: Pomoć oko koda za izvlačenje podataka s weba

i da, stavi pod navodnike, sad sam vidio da kad sam uploado taj file, maknuo je sve navodnike, ne znam zasto

Moj PC

trajni link nadporuka

0 0 hvala 0

Dokyri

15 godina

neaktivan

offline

čet 17.6.2010 16:47

Odgovori Citiraj

Pomoć oko koda za izvlačenje podataka s weba

sad je pak greska u djelu

Dim zavrsni_index As Integer = STRANICA_UCITANA.IndexOf(TRAZI_KOD_KRAJ, pocetni_index)

Index was out of range. Must be non-negative and less than the size of the collection.
Parameter name: startIndex

trajni link

0 0 hvala 0

Uny

15 godina

neaktivan

offline

pet 18.6.2010 13:33

Odgovori Citiraj

RE: Pomoć oko koda za izvlačenje podataka s weba

stvarno ne znam vise, gdje je greska, jer meni radi bez problema, onda uzmi kod od "tnakir"-a, njegov je jos bolji i jednostavniji je

Moj PC

trajni link nadporuka

0 0 hvala 0