Необходимо обрезать строку с двух сторон и убрать символ ' - VB
Формулировка задачи:
Допустим, необходимо обрезать строку с двух сторон и убрать символ ' - апостраф.
С первой задаче - справиться легко, но вот апостраф может находиться как в начале, так и в конце строки.
Если бы это было не так, что можно было бы выйти Left(url, a-1)+right(url, len(url)-a)
Приведенный ниже пример вообще просто зависает в цикле.
Как вариант можно было бы перебирать по-символьно всю строку, но может быть есть какие-то иные методы?
Заранее благодарен.
Перебор по-символьно:
Пропускаем ненужный символ.
Решение задачи: «Необходимо обрезать строку с двух сторон и убрать символ '»
textual
Листинг программы
'Если я понял, что нужно только адрес: Private Sub Form_Load() Dim a As String, s As String s = ShortURL('http://www.e1.ru'/html/php') a = mid(s, Instr(s,'//')-1) ' все что после // a = mid(s,1, InstrRev(s, ''')-1) ' отбросили все что с ' ' a = [url]www.e1.ru[/url] 'MsgBox (ShortURL('http://www.e1.ru'/html/php')) MsgBox a End Sub
ИИ поможет Вам:
- решить любую задачу по программированию
- объяснить код
- расставить комментарии в коде
- и т.д