Форум программистов, компьютерный форум, киберфорум
Visual Basic .NET
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.88/8: Рейтинг темы: голосов - 8, средняя оценка - 4.88
 Аватар для nworain
27 / 27 / 2
Регистрация: 17.04.2016
Сообщений: 144
.NET 4.x

Как вывести цифры с веб сайта на форму в label1?

17.06.2017, 22:08. Показов 1603. Ответов 8
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Есть у кого нибудь пример как вывести цифры с сайта на form1 к примеру в label1.text = ?

с сайта https://zcash.flypool.org/mine... 3Ar8NSMoxB

скрин обведено красным
0
Лучшие ответы (1)
IT_Exp
Эксперт
34794 / 4073 / 2104
Регистрация: 17.06.2006
Сообщений: 32,602
Блог
17.06.2017, 22:08
Ответы с готовыми решениями:

Вывести информацию из первой формы из InputBox во вторую форму в Label1
Нужно вывести информацию из первой формы из InputBox (оператор YourName) во вторую форму в Label1. На кнопке, которая находится на первой...

Вывести все цифры заданной строки в Label1, а все буквы - в Label2
Вот задача:в поле edit1 введена строка, в которой цифры и буквы стоят вперемешку. при нажатии на кнопку button1 вывести все цифры этой...

Как вывести информацию с веб-сайта в моё приложение
Всем доброго времени суток, сообщаю, что в java я далеко не pro). Итак, возможно это ужасно тупой вопрос, но у меня есть приложение, мне...

8
0 / 0 / 0
Регистрация: 16.06.2017
Сообщений: 11
18.06.2017, 05:21
Используйте магию вот так абра кадабра!

Спросите у автора сайта для выделения специальной вставки под html код, как вариант.
0
Эксперт .NET
 Аватар для Usaga
14145 / 9374 / 1350
Регистрация: 21.01.2016
Сообщений: 35,289
18.06.2017, 05:34
nworain, вам нужно распарсить (parse) html-документ. Можно сделать ручками (не вкоем случае не регулярными выражениями!), либо какой-нибудь библиотекой типа htmlagilitypack или anglesharp.

За подробностями милости просим в гугл.

Добавлено через 3 минуты
Есть ещё вариант, что страница нашпигована JS-скриптами по самое небалуйся, вплоть до рендеринга её содержимого данными скриптами. Тогда анализировать html-документ будет бесползено и нужно будет изучать (web)API данного сайта. Это уже значительно сложнее, чем просто покопаться в html, но не настолько, чтобы не разобраться в этом.
0
 Аватар для Gilford
92 / 74 / 24
Регистрация: 31.03.2013
Сообщений: 257
19.06.2017, 10:02
Автор, но ведь вам предоставляют json API. Почему бы их не использовать?
Мне вот выдало
JSON
1
{"address":"t1Qj9cbiPPJ4npuZCR1LuWeLo3Ar8NSMoxB","hashRate":"625.0 kH/s","reportedHashRate":"0.0H/s","payouts":
Как раз мою скорость - 625
0
 Аватар для nworain
27 / 27 / 2
Регистрация: 17.04.2016
Сообщений: 144
19.06.2017, 20:31  [ТС]
Gilford, вот я и не совсем понимаю как эти api использовать в vb net !
вот поэтому я и просил пример кода ...
0
 Аватар для Gilford
92 / 74 / 24
Регистрация: 31.03.2013
Сообщений: 257
19.06.2017, 23:19
Лучший ответ Сообщение было отмечено nworain как решение

Решение

Цитата Сообщение от nworain Посмотреть сообщение
как эти api использовать в vb net
Нам понадобятся регулярные выражения.
Код на примере одной кнопки на форме
VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
Imports System.Net
Imports System.IO
Imports System.Text.RegularExpressions
 
Public Class Form1
    Dim pattern As String = "(((?'Open'\{).*?(?=(\}?)))+((?'Close-Open'\}).*?)+)+(?(Open)(?!))" 'Регулярное выражение, ищет все что между {}
    Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim allJson As String
 
        Dim reqGET As System.Net.HttpWebRequest = WebRequest.Create("http://zcash.flypool.org/api/miner_new/t1Qj9cbiPPJ4npuZCR1LuWeLo3Ar8NSMoxB")
 
        Dim response As WebResponse = reqGET.GetResponse() 'Получаем ответ
        Dim dataStream As Stream = response.GetResponseStream() 'возвращаем данные
        Dim reader As New StreamReader(dataStream) 'Считываем данные
        allJson = reader.ReadToEnd() 'И записываем все данные в переменную
        reader.Close() 'Закрываем 
        response.Close() 'Закрываем 
 
        'allJson = allJson.Remove(0, allJson.IndexOf("[")) 'Там все данные идут после скобки [
        For Each match As Match In Regex.Matches(allJson, pattern)
            MsgBox(match.Value)
        Next
 
    End Sub
End Class
Добавлено через 1 минуту
Но я там не нашел данные с колонки Immature Balance
1
Эксперт .NET
 Аватар для Usaga
14145 / 9374 / 1350
Регистрация: 21.01.2016
Сообщений: 35,289
20.06.2017, 03:43
Gilford, регулярками парсить JSON? Серьёзно?
0
 Аватар для Gilford
92 / 74 / 24
Регистрация: 31.03.2013
Сообщений: 257
20.06.2017, 07:46
Usaga, ну ему надо все-то 2 цифры вытащить. Я так понимаю у тебя есть, что-то для парсинга json? Может поделишься с автором? Ему было бы не плохо изучить.
0
Эксперт .NET
 Аватар для Usaga
14145 / 9374 / 1350
Регистрация: 21.01.2016
Сообщений: 35,289
20.06.2017, 08:04
Gilford, не у меня, а у всех - Newtonsoft JSON.NET.
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
BasicMan
Эксперт
29316 / 5623 / 2384
Регистрация: 17.02.2009
Сообщений: 30,364
Блог
20.06.2017, 08:04
Помогаю со студенческими работами здесь

Как вывести в форму значение с сайта, например погоду с яндекс.ру
Подскажите как вывести в форму значение с сайта, например погоду с яндекс.ру?

Подскажите как создать форму, при запуске которой значение Label1 будет увеличиваться каждую миллисекунду?
Подскажите как создать форму, при запуске которой значение Label1 будет увеличиваться каждую миллисекунду?

Вывести данные из MS SQL на веб-форму
Здравствуйте! Я - супер нуб в web-программировании, и на самом форуме тоже - в первый раз им пользуюсь. Столкнулся со следующей...

Надо Вывести все трехзначные цифры на форму
Вопрос в заголовке помоги плз

Как сделать форму в Excel в которую нужно вывести данные из Sheet-а, а затем пустить эту форму на принтер?
Как сделать форму в Excel в которую нужно вывести данные из Sheet-а, а затем пустить эту форму на принтер. Я новичок в этом деле. Спасибо!


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
9
Ответ Создать тему
Новые блоги и статьи
Камера Toupcam IUA500KMA
Eddy_Em 12.02.2026
Т. к. у всяких "хикроботов" слишком уж мелкий пиксель, для подсмотра в ESPriF они вообще плохо годятся: уже 14 величину можно рассмотреть еле-еле лишь на экспозициях под 3 секунды (а то и больше),. . .
И ясному Солнцу
zbw 12.02.2026
И ясному Солнцу, и светлой Луне. В мире покоя нет и люди не могут жить в тишине. А жить им немного лет.
«Знание-Сила»
zbw 12.02.2026
«Знание-Сила» «Время-Деньги» «Деньги -Пуля»
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров
8Observer8 12.02.2026
Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image)
8Observer8 11.02.2026
Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .
SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image
8Observer8 10.02.2026
Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .
Установка Qt-версии Lazarus IDE в Debian Trixie Xfce
volvo 10.02.2026
В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer
8Observer8 08.02.2026
Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru