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 
Здравствуйте! надо сделать парсер текста...имеется текстбокс1 и 2 .в текстбокс1 что парсить в тектс2 результат.Надо в текст2 вынести все слова(значения) находящиеся между определенными символами(ну или тегами) Подскажите как плз.Спитом не то вроди бы..заранее спс :-)

Ответить

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

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #1 		Добавлено: 15.04.11 22:32
Зачем нам знать, что у тебя там текстбокс1 и текстбокс2?
Если симво "Пробел", то.
  1. dim SA() as string
  2. sa = split(text," ")

Ответить

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



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #2 		Добавлено: 15.04.11 22:34
скажем тегов 2.между ними значение.и надо вытащить все значения в тексте

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #3 		Добавлено: 15.04.11 22:35
В результате получаешь массив из кусков текста, которые находились между пробелами.

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #4 		Добавлено: 15.04.11 22:35
Напиши пример тегов

Ответить

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



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #5 		Добавлено: 15.04.11 22:43
допустим имеется: <start>фраза которую надо достать<end> не надо <start>тоже надо<end>

что в итоге должно быть:фраза которую надо достать;тоже надо
примерно так

Ответить

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



Вопросов: 3
Ответов: 118
  Профиль | | #6 Добавлено: 15.04.11 22:49
Для дотнета.
  1.  
  2. string source=@"<start>фраза которую надо достать<end> не надо <start>тоже надо<end>";
  3. string[] target = source.Split(new string {"<start>", "<end>"}, StringSplitOptions.None);
  4. source = string.Empty;
  5. foreach (string s in target)
  6. source += s + ";";


в source будет: фраза которую надо достать;тоже надо

Ответить

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



ICQ: 463865965 

Вопросов: 31
Ответов: 190
  Web-сайт: studioartf.ru
 Профиль | | #7 		Добавлено: 15.04.11 22:55
СанСаныч,на vb6 надо бы...

Ответить

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



Вопросов: 3
Ответов: 118
  Профиль | | #8 Добавлено: 15.04.11 22:56
упс. поспешил. 6 пост в топку, надо так:
  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 i=0; i<target.Length; i++)
  6. if (target.Length != 0 && i % 2 != 0) source += target + ";";

Ответить

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



Вопросов: 3
Ответов: 118
  Профиль | | #9 Добавлено: 15.04.11 22:58
мля!!!! 6 строчка!!!

if (target.Length != 0 && i % 2 != 0) source += target + ";";

Ответить

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



Вопросов: 3
Ответов: 118
  Профиль | | #10 Добавлено: 15.04.11 22:59
Админы!!! БАГ!!!
target.Length сайт конвертит в target.Length

Ответить

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



Вопросов: 3
Ответов: 118
  Профиль | | #11 Добавлено: 15.04.11 23:03
MISTER X пишет:
СанСаныч,на vb6 надо бы...

Пишем длл на дотнете и подключаем к проекту vb6.

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #12 		Добавлено: 16.04.11 01:37
  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.     End If
  12.     I = I + 1
  13. Loop
  14. text2.text = D

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #13 		Добавлено: 16.04.11 01:39
поправка
I = I + 1 внеси в IF...End if

Ответить

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



ICQ: 345685652 

Вопросов: 96
Ответов: 1212
  Web-сайт: xawp.narod.ru
 Профиль | | #14 		Добавлено: 16.04.11 01:44
Можно сделать I = I + 7, ну для наглядности.
сами вырезки это
  1. Mid$(text, I + 7, I1 - I - 7)

Ответить

Номер ответа: 15
Автор ответа:
 Dan



ICQ: 609276007 

Вопросов: 24
Ответов: 195
  Профиль | | #15 Добавлено: 16.04.11 08:45
не знаю какMISTER X, но я ничего не понял но мне интересно у всех 100 поправок
напишите кто-нибудь код полностью

Ответить

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

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



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