Přidat otázku mezi oblíbenéZasílat nové odpovědi e-mailemVyřešeno String() to Text

Ahojte, z nasledujúcého kódu by som ptoreboval zistit čo sa nachádza v danom html medzi "nofollow" & X & ">", "</a>&nbsp;" , a potom to porovnať s textom v Uname

 Public Function GetThanks(ByVal thanks As String) As String()
        Dim source As String = New IO.StreamReader(Net.WebRequest.Create(("moja.url")).GetResponse.GetResponseStream).ReadToEnd
        Dim X As String = Label8.Text
        Dim Uname As String = Label2.Text
        Dim UID As String = Label1.Text
        Dim test As String()
        test = StringBetween("www.elitepvpers.com/forum/members/" & UID & "-" & Uname & ".html" & " rel=" & X & "nofollow" & X & ">", "</a>&nbsp;", source, False, False)
        Return New String() {test(0)}
    End Function

Neviem však, kde je chyba, ale potreboval by som z toho stvorit niečo takéto :>::

Public Function GetThanks(ByVal thanks As String) As String()
        Dim source As String = New IO.StreamReader(Net.WebRequest.Create(("moja.url")).GetResponse.GetResponseStream).ReadToEnd
        Dim X As String = Label8.Text
        Dim Uname As String = Label2.Text
        Dim UID As String = Label1.Text
        Dim test As String()
        test = StringBetween("www.elitepvpers.com/forum/members/" & UID & "-" & Uname & ".html" & " rel=" & X & "nofollow" & X & ">", "</a>&nbsp;", source, False, False)
>>>     Dim full As String 
        full = (data z) test    
        Label9.Text = full
        If Label9.Text = Label2.Text Then / If full = Uname Then
        MsgBox("1")
        Else
        MsgBox("0")
        End If      <<<
        Return New String() {test(0)}
    End Function

Vopred vďaka za každú radu :-)

Předmět Autor Datum
Nějak nechápu, o co se vlastně snažíš.
Wikan 28.06.2012 16:42
Wikan
Snažím se o nasledující. Uživatel si stáhne mojí apliakci, po její spuštění si aplikace podle jeho H…
Snehuliak 28.06.2012 17:06
Snehuliak
Na to by stačil jednoduchý regulární výraz.
Wikan 28.06.2012 17:39
Wikan
Daj si vypisat jednotlive premenne funkciou -> printf() a zistis hned co tam je.
KiloViktor 28.06.2012 16:51
KiloViktor
To už dneska níkdo neumí pracovat s debugem? Zrovna dneska jsem narazil na programátora, který si pr…
MaSo 28.06.2012 17:06
MaSo
Az taku narocnu vec sme nechceli poradit, lebo hned by nasledovala otazka: "a kde sa to da stiahnut"…
KiloViktor 28.06.2012 17:13
KiloViktor
Až tak zle na tom našťastie niesom ;-)
Snehuliak 28.06.2012 17:16
Snehuliak
No, problém je vyriešený, vďaka :) poslední
Snehuliak 28.06.2012 18:07
Snehuliak

Snažím se o nasledující. Uživatel si stáhne mojí apliakci, po její spuštění si aplikace podle jeho HWID vyhledá jeho profil na internetu a zjistí jeho jméno na daném fore.Dál aplikace zjistí, podle jména, zda mi uživatel zmáčkl tlačítko Děkuji, nebo ne, v případě že ne, ukáže se mu chyba, v opačném případe, mu vyskočí podekování a může začít program používat.
Takže zkráceně, není nějaká funkce která by mi v zdrojáku dané stránky vyhledala nasledující?

<td class="alt1"><div> <a href="http://www.elitepvpers.com/forum/members/ID-JMENO. html" rel="nofollow">JMENO</a>&nbsp;

V případě že ano, vidím totiž mnohem lehčí řešení, než jsem předpokládal :-)

To už dneska níkdo neumí pracovat s debugem? Zrovna dneska jsem narazil na programátora, který si proměnné vypisoval raději na konzoli, než aby debugoval...

Zpět do poradny Odpovědět na původní otázku Nahoru