Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вырезать url из строки / 6 сообщений из 6, страница 1 из 1
29.09.2009, 13:25
    #36222516
Mr.Power
Mr.Power
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вырезать url из строки
имеется строка
myvar="скачать данную книгу можно здесь http://sql.ru"


как вырезать урл из строки средствами вб без дополнительных модулей?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2009, 13:31
    #36222535
big-duke
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вырезать url из строки
Mr.Power,

instr,left,right,length
А какие убеждения против регэкспов ?
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2009, 13:38
    #36222565
Mr.Power
Mr.Power
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вырезать url из строки
так удобнее. вот чтото по быстрому накидал,но почемуто цикл застревает!

Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
Function urlrestruct(ByVal strss As String) As String


Do While InStr( 1 , strss, "http://") >  0 
inst = InStr( 1 , strss, "http://")
inst2 = InStr(inst, strss, " ")
If inst2 >  0  Then
urlstr = Mid(strss, inst, inst2 - inst)
strss = Replace(urlstr, urlstr, " ")

End If
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2009, 13:39
    #36222567
Mr.Power
Mr.Power
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вырезать url из строки
сори не весь код =)
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
Function urlrestruct(ByVal strss As String) As String


Do While InStr( 1 , strss, "http://") >  0 
inst = InStr( 1 , strss, "http://")
inst2 = InStr(inst, strss, " ")
If inst2 >  0  Then
urlstr = Mid(strss, inst, inst2 - inst)
strss = Replace(urlstr, urlstr, " ")

End If


Loop

 urlrestruct = strss


End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2009, 13:49
    #36222608
Mr.Power
Mr.Power
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вырезать url из строки
всё нашёл решение! Рубит урл как топаром,но зато стабильно работает!
вот код:

Код: plaintext
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.
26.
27.
Function urlrestruct(ByVal sts As String) As String
Dim strss As String
strss = sts & " "
Do While InStr( 1 , strss, "http://") >  0 
inst = InStr( 1 , strss, "http://")
inst2 = InStr(inst, strss, " ")
If inst2 >  0  Then
urlstr = Mid(strss, inst, inst2 - inst)
strss = Replace(strss, urlstr, " ")
Else
urlstr = Mid(strss, inst, Len(strss) - inst)
strss = Replace(strss, urlstr, " ")
End If


Loop

 urlrestruct = strss


End Function
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
29.09.2009, 14:23
    #36222717
HandKot
HandKot
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
вырезать url из строки
если url в строке 1
Код: plaintext
? "http://" + split(split("=скачать данную книгу можно здесь http://sql.ru ", "http://")( 1 ), " ")( 0 )

если их больше, то надо просто сделать цикл по массиву

I Have Nine Lives You Have One Only
THINK!
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вырезать url из строки / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]