Необходимо обрезать строку с двух сторон и убрать символ ' - 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

ИИ поможет Вам:


  • решить любую задачу по программированию
  • объяснить код
  • расставить комментарии в коде
  • и т.д
Попробуйте бесплатно

Оцени полезность:

14   голосов , оценка 3.643 из 5
Похожие ответы