VB wyszukiwanie tekstu

Dla specjalistów Programowanie
#1

Witam.Potrzebuje pomocy a mianowicie:

 

Chcę pobrać ze strony konkretny tekst w postaci adresu  .3mu8 który znajduje się w źródle strony w  skrypcie java i wrzucić go do zmiennej.

Próbowałem już użyć tego sposobu który  wyszukuje tak jak zamierzałem ale nie w skrypcie java

Dim PictureURL As String = "http://www.bing.com" + New System.Net.WebClient().DownloadString("http://www.bing.com/HPImageArchive.aspx?format=rss&idx=0&n=1&mkt=de-DE").Replace("<link>", "|").Replace("</link>", "|").Split("|")(3)

Myślałem też nad zapisaniem strony do pliku (wraz ze skryptami ) i wykonaniem tego samego kodu czyi wyszukania mojego adresu w pliku  lecz nie za bardzo wiem jak:)

Chciałbym raczej aby nie komplikować sobie kodu i pobrać string bezpośrednio ze strony bez zapisywania do pliku.

Fragment owego skryptu zapisanego już na dysku  w postaci pliku html:

} else {
    var html = "<div id='still_video' style='display: none'>";
    html += "<video id='still_video_object'";
    html += "src='http://test.stream.highwed.com:1935/live/007-sd-629698d9628f0711cd6d4a0a98124d41be4ded32511bc51967f3a69c5bdcdbd2_aac/playlist.m3u8'";
    html += "width='498px' height='407px'";
    html += "webkit-playsinline autoplay></video></div>";
    $('#still_video_container').html(html);
    $('#still_video').show();
    if (typeof(resizable_player) != "undefined") {
        resizable_player.init('0' == '1', true);
    }
}

Używam vb 2010 Express

Za wszelką pomoc z góry dziękuje:) 

 

#2

Java działa po stronie serwera i generuje ci stronę internetową, a na niej nie ma kodu javy. Więc nie zrobisz tego.

#3

Jak nie skoro mam go na pulpicie w pliku? chodzi mi o pobranie konkretnej linijki czyli adresu

#4

Kod możesz mieć, ale nie jest on częścią strony czy udostępniany wraz z nią bo java działa po stronie serwera, jedynie aplety javy działają w przeglądarce ale i tych kodu źródłowego nie masz tylko bytecode. Jeśli jakimś cudem na stronie internetowej zamieszczany jest kod backendu napisany w javie to najpewniej jest to błąd, ewentualnie celowo jako przykład. Przy czym jeśli faktycznie jakimś cudem na stronie jest kod backendu strony to nie wiem z czym możesz mieć problem, bo to zwykły plik tekstowy więc wystarczy go przeszukać, a technik na to jest cała masa. Jedne bardziej wydajne inne mniej.

#5

Jeśli nie tak to jak przerobić go   żeby zamiast pobierać go ze strony załadował z pliku?

Dim PictureURL As String = "http://www.bing.com" + New System.Net.WebClient().DownloadString("http://www.bing.com/HPImageArchive.aspx?format=rss&idx=0&n=1&mkt=de-DE").Replace("<link>", "|").Replace("</link>", "|").Split("|")(3)

 

#6

Nie znam VB więc składnia może być lekko błędna.

Dim client As WebClient = New WebClient()
Dim reply As String = client.DownloadString("http://www.bing.com/HPImageArchive.aspx?format=rss&idx=0&n=1&mkt=de-DE")

W reply masz stringa w którym masz zawartość całego pliku, jak bardzo chcesz plik wystarczy zapisać go do pliku i tyle.

My.Computer.FileSystem.WriteAllText("C:\TestFolder1\test.txt",
reply,True)

 

PS. Na stronie którą pobierasz nie ma nigdzie Javy, a strona napisana jest w asp.net

#7

Na tej nie ma bo to jest tylko przykładowa ale na tej którą chce pobrać jest caly java dostepny do wglądu

ps.Skąd pomysł że chce go zapisać do pliku…?

Chce wyszukać W pliku konkretny tekst i dodać go do zmiennej i tyle

#8

Java Script?

Java vs JavaScript:

 

|

|

#9

To by mocno zmieniało postać rzeczy, ale co ja tam wiem :smiley: szklanej kuli nie mam :P.

#10

JS

A konkretnie muszę wyciągnąć m3u8 do zmiennej i tyle:)

 

<script type='text/javascript'>
    $(document).ready(function() {
        
            if (HasFlash() && ('False'=='' || 'False' == 'False')) {
    EmbedViewerSwf(
        "/static/flash/CBV_2p648.swf",
        '007__cinnemma',
        'edge39-a.stream.highwebmedia.com',
        '/xml/viewer.xml',
        '0',
        'login_required_true_if_loggedin',
        '0',
        "https://ssl-ccstatic.highwebmedia.com/flash/playerProductInstall.swf",
        'AnonymousUser',
        "$.mydefchatconn('join_group_show')",
        "$.mydefchatconn('spy_on_private')",
        'registration_required()',
        '0',
        "https://ssl-ccstatic.highwebmedia.com/images/flashwatermark.png",
        "",
        'anonymous',
        'e1a01be8f6d528b50932827dfba6f913db0e21fef80330d0777765aa12ad1537',
        '100',
        '100',
        '0'
    );
} else {
    var html = "<div id='still_video' style='display: none'>";
    html += "<video id='still_video_object'";
    html += "src='http://origin13.stream.highwebmedia.com:1935/lix-origin/0078__video-sd-629698d9628f0711cd6d4a0a98124d41be4ded32511bc51967f3a69c5bdcdbd2_aac/playlist.m3u8'";
    html += "width='498px' height='407px'";
    html += "webkit-playsinline autoplay></video></div>";
    $('#still_video_container').html(html);
    $('#still_video').show();
    if (typeof(resizable_player) != "undefined") {
        resizable_player.init('0' == '1', true);
    }
}


    if(typeof resizable_player != "undefined"){
        resizable_player.set_resolution_to_max();
    }
    if(typeof $.mydefchatconn != "undefined"){
        $.mydefchatconn('scroll_chat_into_view');
    }
    $(window).bind('resize', function(event) {
        if (this == event.target) {
            if(typeof resizable_player != "undefined"){
                resizable_player.set_resolution_to_max();
            }
        }
    });

 

#11

Tylko tyle? 

 

AdresyWWWzPliku.zip

#12

już dawno to rozwiązałem i wybacz nie uruchomię exe:)

Mam nowy problem w nowym poscie

#13

Wybaczam.

#14

Ameen:)

Moze zerkniesz na mój nowy problem:)