Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB .NET > Задаем свою ссылку.

Автор: vladd 2.4.2012, 17:38

Есть образец ссылки http://www.oddschecker.com/horse-racing-betting/kelso/15:00.
Мне надо программно менять слово kelso- название ипподрома и время забега и загружать WebBrowser. Так как имена ипподромов не совпадают полностью Я решил использовать Select Case

s = "http://www.oddschecker.com/horse-racing-betting/NameIpodromm/TR "

NameIpodromm - имя ипподромма
TR - Время забега

Код


 NameIpodromm = DataMarkets.Item(13, R).Value()
        Select Case NameIpodromm
            Case "Redc"
                NameIpodromm = "redcar"
            Case "Kelso"
                NameIpodromm = "kelso"                
        End Select

А как дальше заменить в ссылке kelso на допустим redcar не знаю. Мешают кавычки. Прошу помощи.
Должно быть вот так. http://www.oddschecker.com/horse-racing-betting/redcar/15:00.

Автор: Cheloveck 2.4.2012, 18:10

http://msdn.microsoft.com/en-us/library/19s0f3y3.aspx
http://msdn.microsoft.com/en-us/library/system.text.regularexpressions.regex.replace.aspx

Автор: diadiavova 2.4.2012, 18:14

Вместо селекткейса используй словарь, для вставки в строку используй String.Format. Для твоего случая это выглядит так.

Код


Dim dict As New Dictionary(Of String, String) From {{"Redc", "redcar"}, {"Kelso", "kelso"}}
Dim link = String.Format(" http://www.oddschecker.com/horse-racing-betting/{0}/{1}", 
                             dict(DataMarkets.Item(13, R).Value()),  time)

Автор: vladd 2.4.2012, 18:19

Спасибо за внимание.
Вот чего и хотелось.

Автор: vladd 3.4.2012, 09:57

Выскакивает окно с ошибкой. Я так понял когда ссылка получается вида http://www.oddschecker.com/lib/DIFFUSION/diffusion.js
и окошко выскакивает видимо из за этих слов lib/DIFFUSION/diffusion.js. Я поставил условие

Код


If link <> "http://www.oddschecker.com/lib/DIFFUSION/diffusion.js" Then
                            WebBrowser1.Navigate(link)
                        End If

Но видимо или я не правильно понял из за чего возникает ошибка, или не правильно поставил условие If но окошко продолжает выскакивать. Как правильно исправить ошибку?

Автор: diadiavova 3.4.2012, 09:59

Цитата(vladd @ 3.4.2012, 10:57

)

Выскакивает окно с ошибкой.

Что написано в окне видимо надо догадаться?

Автор: vladd 3.4.2012, 10:17

Вот что там написано. user posted image

В IE отладку сценариев отключил.

Автор: diadiavova 3.4.2012, 10:36

Ну вот, оказывается это ошибка сценария.

Цитата(vladd @ 3.4.2012, 11:17

)

В IE отладку сценариев отключил.

Надо еще вот этому свойству
http://msdn.microsoft.com/ru-ru/library/system.windows.forms.webbrowser.scripterrorssuppressed.aspx?queryresult=true
присвоить True. Только я не понял, каким образом ты связываешь это окно с адресом.

Автор: vladd 3.4.2012, 10:59

Спасибо большое. По моему начало работать без ошибок. А это окно с адресом связал по своей малограмотности. Адрес внизу окошка находиться. Вот я и решил что ошибка возможна из за адреса. Еще раз спасибо большое.