Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Пользователи » koka0000
Выбрать дату в календаре…Выбрать дату в календаре

Страницы: 1
Генерация по условию,подсчет всех возможных вариантов
 
#
24.03.2022 12:56:17
Допустим есть строчка или столбец из восьми значений к примеру "10101010".Условия сгенерировать и отобрать все возможные комбинации так что сходство было ровно на 50%.Рандомно выбрать одну возможную комбинацию и далее сгенерировать все возможные комбинации так что сходство было ровно на 50% НО УЖЕ ДЛЯ ПЕРВОЙ КОМБИНАЦИИ ("10101010") и полученной второй.Задача узнать сколько последовательностей можно сгенерировать добавляя каждый раз условие.
 
Перейти    
Робот для ставок в бк
 
#
12.06.2020 22:01:43
Есть сайт бк olimp.bet . Задумка макроса такова: Авторизация /выгрузка линии со всеми кф/получение сигнала от другого макроса/осуществление ставки. Я с веб содержимым не знаком. Пока только разобрался в get и post запросах.)Посоветуйте книги или видеоролики.Возможно такое реализовать с помощью Msxml2.XMLHTTP. не прибегая к IE?
 
Перейти    
Как в строке поменять местами (переставить) фрагменты текста?.
 
#
12.02.2019 21:13:11
Перепробовал все варианты, увы не помогло .Попробую объяснить еще раз.
1)Ексел загружает с сайта данные в переменную txt
2)В этой переменной есть "Больше",далее идет НЕИЗВЕСТНЫЙ Коэффициент,2.5.Встречается в переменной не один раз
3)Необходимо поменять местами неизвестный кф и 2.5 так чтобы получилось "Больше2.5(значение кф).Соответственно поменять нужно все.  
 
Перейти    
Как в строке поменять местами (переставить) фрагменты текста?.
 
#
11.02.2019 21:28:41
Юрий М,Хотел так показать что есть неизвестная часть в тексте и ее надо оставить без изменений.
 
Перейти    
Как в строке поменять местами (переставить) фрагменты текста?.
 
#
11.02.2019 21:10:40
Главное чтобы результат был таким:"Больше 2.5(1.7)
 
Перейти    
Как в строке поменять местами (переставить) фрагменты текста?.
 
#
11.02.2019 20:17:20
В переменной содержится текст Больше(1.7)2.5.Как с помощью vba произвести замену на Больше2.5(1.7).Дело в том что коэффициент не постоянно = 1.7.Про подстановочные  знаки, знаю про(* и ?) но не могу сообразить как осуществить задуманное.Прошу вашей помощи.
Код
txt = Replace(txt, "Больше & "*" & 2.5", "Больше2.5 & "*" ", 1)
Изменено: koka0000 - 11.02.2019 21:26:20
 
Перейти    
Загрузка текста с сайта в excel
 
#
07.01.2019 15:46:24
Код
Option Explicit

Sub St()
Dim XMLHTTP As Object
 Dim arr() As String
 Dim URL$, txt As String
 Columns("A:A").Select
 URL = "https://vfl3.betradar.com/s4/?clientid=594&language=en&vsportid=1#2_1,3_800,22_7,5_1493800,9_match,8_1181210054,178_53405,7_53403"
 Set XMLHTTP = CreateObject("MSXML2.XMLHTTP")
 XMLHTTP.Open "GET", URL, False
 XMLHTTP.SetRequestHeader "Content-Type", "text/JSON"
 XMLHTTP.Send
 If XMLHTTP.Status = 200 Then
     txt = XMLHTTP.ResponseText
    Cells(1, 1) = txt
    End If
End Sub

Jungl, спасибо за ссылку.А нельзя получить ссылку на весь сезон а не конкретную игру?Плохо шарю во всем этом((
 
Перейти    
Загрузка текста с сайта в excel
 
#
07.01.2019 10:28:37
Ситуация такая товарищи-знатоки.Есть сайт Статистика с него необходимо выгрузить ход игры.Проблема в том что в excel грузиться исходный код и вся статистика закрыта под тегом </noscript>.Помогите разобраться как выгружать подобные данные.  
 
Перейти    
Страницы: 1
Наверх