ReSQL.ru
     
powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / вырезать url из строки
6 сообщений из 6, страница 1 из 1
вырезать url из строки
    #36222516
Фотография Mr.Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mr.Power
Участник
имеется строка
myvar="скачать данную книгу можно здесь http://sql.ru"


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

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

Код: 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:38
| Ответить | Цитировать | Написать  
вырезать url из строки
    #36222567
Фотография Mr.Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mr.Power
Участник
сори не весь код =)
Код: 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:39
| Ответить | Цитировать | Написать  
вырезать url из строки
    #36222608
Фотография Mr.Power
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Mr.Power
Участник
всё нашёл решение! Рубит урл как топаром,но зато стабильно работает!
вот код:

Код: 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, 13:49
| Ответить | Цитировать | Написать  
вырезать url из строки
    #36222717
Фотография HandKot
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
HandKot
Участник
если url в строке 1
Код: plaintext
? "http://" + split(split("=скачать данную книгу можно здесь http://sql.ru ", "http://")( 1 ), " ")( 0 )

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

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


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