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

   
   
     

Форум - Общий форум

Страница: 1 | 2 |

 

  Вопрос: Split? Добавлено: 15.04.11 22:26  

Автор вопроса:  MISTER X | Web-сайт: studioartf.ru | ICQ: 463865965 

Ответить

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

Номер ответа: 16
Автор ответа:
 AWP



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #16 		Добавлено: 16.04.11 15:48
  1. Dim I As Long, I1 As Long
  2. Dim D As String, text As String
  3. text = text1.text
  4. D = ""
  5. I = 1
  6. Do While I <> 0
  7.     I = InStr(I, text, "<start>")
  8.     If I <> 0 Then
  9.         I1 = InStr(I, text, "<end>")
  10.         D = D & Mid$(text, I + 7, I1 - I - 7)
  11.         I = I + 7
  12.     End If
  13. Loop
  14. text2.text = D

Так устроит?

Ответить

Номер ответа: 17
Автор ответа:
 СанСаныч



Вопросов: 3
Ответов: 118
  Профиль | | #17 Добавлено: 16.04.11 16:30
  1.  
  2.  string source= "<start>фраза которую надо достать<end> не надо <start>тоже надо<end>";
  3.  string[] target = source.Split(new string[] {"<start>", "<end>"}, StringSplitOptions.None);
  4.  source = string.Empty;
  5.  for(int t=0; t<target.Length; t++)
  6.  if (target[t].Length != 0 && t % 2 != 0) source += target[t] + ";";


так красивее.

Ответить

Номер ответа: 18
Автор ответа:
 MISTER X



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #18 		Добавлено: 16.04.11 17:52
Dan пишет:
не знаю какMISTER X, но я ничего не понял

Да все понятно вроди)
|A|W|P| пишет:
Так устроит?

да,спасибо)
СанСаныч пишет:
так красивее.
:-D

Ответить

Страница: 1 | 2 |

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



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