Visual Basic, .NET, ASP, VBScript
Новости | Примеры | Библиотека кодов | НеЧаВо | VBA | Справочник по VB | Справочник по WinAPI | ActiveX контролы | Статьи по VB | Мастерская разработчика | Форум VBNet | Яndex bar! | Голосование | Полезные программы | Магазин VBNet | Рассылка | Конкурсы | Юмор | Чат | Реклама на VBNet | Автора! | Ссылки | Бета-тестирование | Послать пример на сайт
 

   
   
     

Форум - VBA

Страница: 1 |

 

  Вопрос: Задача на строки в VB. Помогите разобраться) Добавлено: 12.03.12 20:31  

Автор вопроса:  Ася
Помогите, пожалуйста, решить задачу на строковые данные в
VB. Условие звучит так: исключить из заданной строки группы символов, расположенных между круглыми скобками, включая сами скобки. Предполагается, что внутри каждой пары скобок нет других скобок.

Вертится мысль, что надо сначала организовать поиск символов "(" по всей строке, найти их индексы. Потом, начиная с этих индексов удалять все символы вплоть до символа ")". Но как визуально это сделать, что-то я пока не пойму. Подскажите, с чего начать :)

Ответить

  Ответы Всего ответов: 1  

Номер ответа: 1
Автор ответа:
 AxeL



ICQ: 264730390 

Вопросов: 2
Ответов: 106
  Профиль | | #1 Добавлено: 13.03.12 05:28
Скриптовый вариант
  1. Option Explicit
  2. Dim strIn, strOut, ind1, ind2
  3. strIn = "abcdef(1234)ghigklm(4567)nopqrst(7890)uvwxyz"
  4. ind1 = 0 : ind2 = 0
  5.  
  6. strOut = "Первоначальная строка:" & vbCrLf & strIn & _
  7. vbCrLf & vbCrLf & "Полученная строка" & vbCrLf
  8.  
  9. Do
  10. ind1 = InStr(ind2 + 1, strIn, "(")
  11. ind2 = InStr(ind1 + 1, strIn, ")")
  12. If (ind1 > 0) And (ind2 > 0) Then _
  13. strIn = Replace(strIn, Mid(strIn, ind1, ind2 - ind1 + 1), "", 1)
  14. Loop While Ind1 And Ind2
  15.  
  16. MsgBox strOut & strIn
Думаю на VB переделать не составит труда...

Ответить

Страница: 1 |

Поиск по форуму



© Copyright 2002-2011 VBNet.RU | Пишите нам