Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Potrebna pomoc za zadatak u VB

[es] :: Visual Basic 6 :: Potrebna pomoc za zadatak u VB

[ Pregleda: 1772 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

a zo zo

Član broj: 117395
Poruke: 189
77.46.166.*



+1 Profil

icon Potrebna pomoc za zadatak u VB25.10.2009. u 20:23 - pre 138 meseci
Trebalo bi napraviti standalone aplikaciju koja radi sledece:
postoji polje u koje se unosi neki url, dugme Parse kojim se parsira HTML sa datog linka a u polje Result se upisuje sadrzaj <meta>taga bez atributa. Zadatak bi trebao imati sve atribute profesionalne aplikacije.
Kako?
Hvala...
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
*.static.adsl.itsisp.net.



+1 Profil

icon Re: Potrebna pomoc za zadatak u VB26.10.2009. u 07:49 - pre 138 meseci
Lako u Sinalco... paaaraaaraammm...

Ili počni da pišeš, pa javi kad se zaglaviš, ili stavi oglas na berzu poslova.
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Potrebna pomoc za zadatak u VB26.10.2009. u 11:18 - pre 138 meseci
http://www.elitesecurity.org/t362040-0#2261161

:-(

Pitam se šta vas tamo uče... :-( :-( :-(
F
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
*.static.adsl.itsisp.net.



+1 Profil

icon Re: Potrebna pomoc za zadatak u VB26.10.2009. u 13:18 - pre 138 meseci
Citat:
captPicard:

Pitam se šta vas tamo uče... :-( :-( :-(


Da koriste forume, u njima je spas... :)




Da je pitanje malo lepše postavljeno, ja bih odgovorio sa završenim programom, pre 15-ak dana mi je trebalo nešto sl. pa sam napisao.

Ali mi se ovako ne da da pomognem. :)
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Potrebna pomoc za zadatak u VB26.10.2009. u 14:19 - pre 138 meseci
Možda ti pomogne:

http://www.codeguru.com/vb/vb_internet/html/article.php/c4815/

http://www.vbforums.com/showthread.php?t=480393
F
 
Odgovor na temu

a zo zo

Član broj: 117395
Poruke: 189
93.86.80.*



+1 Profil

icon Re: Potrebna pomoc za zadatak u VB26.10.2009. u 21:40 - pre 138 meseci
Hvala i onim koji su pomogli i onim koji nisu, svako je doprinio necem, npr. da se shvati i koliko sebicnih ljudi ima...
 
Odgovor na temu

K4R10
Karlo Hubai
Student, FTN
SO(NS), Srbija

Član broj: 236574
Poruke: 20
*.neobee.net.

Sajt: www.dijabetesbezgranica.i..


Profil

icon Re: Potrebna pomoc za zadatak u VB26.10.2009. u 23:21 - pre 138 meseci

Jedan od nacina:

U VB otvoris novi projekat, pa ides na Project->Components....
i tamo dodas:
Microsoft Internet Controls (shdocvw.dll)


Na formu postavis 2 textbox-a (jedan manji za unos URL i drugi veci za ispis rezulatata, u kojem podesis MultiLine=True ako postoji vise meta tagova da svaki stavi u novi red) i 2 CommandButton-a


Code:

Private Sub Command1_Click()
    'Taster za parsiranje
    Dim Tekst As String
    Tekst = wWeb.Document.documentelement.innerhtml
    'u text1.text upisije rezultat
    Text1.Text = Trazi_Meta(LCase(Tekst))
End Sub

Private Sub Command2_Click()
    'Taster ucitavanje stranice na adresi text2.text
    wWeb.Navigate Text2.Text
End Sub

Private Sub Form_Load()
    wWeb.Navigate "http://www.google.com"
End Sub



Function Trazi_Meta(t As String) As String
    Dim Pocetak As Integer
    Dim Kraj As Integer
    Dim i As Integer
    Dim s As String
    i = 1
    Do
        Pocetak = InStr(i, t, "<meta ")
        If Pocetak > 0 Then
            Kraj = InStr(Pocetak, t, ">")
            s = s & Mid(t, Pocetak, Kraj - Pocetak + 1) & Chr(13) & Chr(10)
        End If
        i = Kraj
    Loop While Pocetak > 0
    Trazi_Meta = s
End Function



Evo i gotov projekat

Ne znam da li ima veze ali ja koristim Windows XP, IE6(samo u ovom slucajuju) i VB 5.0 pa mozda tebi nece raditi kako treba.
 
Odgovor na temu

stefanpn
Total anonymous
Programer

Član broj: 172809
Poruke: 509
*.static.adsl.itsisp.net.



+1 Profil

icon Re: Potrebna pomoc za zadatak u VB27.10.2009. u 07:16 - pre 138 meseci
Mislim da je sebičnije očekivati od drugih da rade tvoj posao. Moja stvar je da li ću nekom pomoći ili ne.

Imaš sreće što si žensko pa su ljudi ipak odlučili da pomognu, samo zato što nema puno žena u ovoj branši.
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Potrebna pomoc za zadatak u VB27.10.2009. u 07:26 - pre 138 meseci
a zo zo nitko nije bio sebičan, pogledaj malo po temama i vidjet ćeš da su tu svi dobri ljudi koji će RADO svatkome pomoći. Problem je šta postoji jedan uvjet na koji neki često zaboravljaju, a to je da se treba pokazati volja i trud, a ne očekivati gotovo rješenje
F
 
Odgovor na temu

dzigilibonglica
NS

Član broj: 200040
Poruke: 294



+17 Profil

icon Re: Potrebna pomoc za zadatak u VB27.10.2009. u 08:09 - pre 138 meseci
Citat:
captPicard:a zo zo nitko nije bio sebičan, pogledaj malo po temama i vidjet ćeš da su tu svi dobri ljudi koji će RADO svatkome pomoći. Problem je šta postoji jedan uvjet na koji neki često zaboravljaju, a to je da se treba pokazati volja i trud, a ne očekivati gotovo rješenje :-)


Upravo tako.

 
Odgovor na temu

a zo zo

Član broj: 117395
Poruke: 189
93.86.80.*



+1 Profil

icon Re: Potrebna pomoc za zadatak u VB27.10.2009. u 18:19 - pre 138 meseci
Kako god. Nije da ja nisam vjezbala ovo sve ali nisam se sretala s ovim parsiranjem, itd. Hvala mnogo ovom momku sto mi je poslao kod. Ja znam da bih ja dala svoj kod nekom da je trazio, bih sigurno jer sto znam to i podijelim. Pomogli su mi mnogi u drugim prilikama, ali ne zelim da mi pomazu samo jer sam zensko. Eto. Programeri su cesto tako zatvoreni, nedokucivi, samo oni znaju zasto. Ne vjerujem da im uvjek postavljamo glupa pitanja vec su sujetni i mrzi ih da to podijele. Cast izuzecima, kojim zahvaljujem, a cinjenica je da treba i sami malo da tragamo ali pravo usmjereje je zlata vrijedno nekad/uvjek.
 
Odgovor na temu

[es] :: Visual Basic 6 :: Potrebna pomoc za zadatak u VB

[ Pregleda: 1772 | Odgovora: 10 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.