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

   
   
     

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

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

 

  Вопрос: Обработка текстовой информации Добавлено: 28.01.11 17:02  

Автор вопроса:  Андрей

Ответить

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

Номер ответа: 31
Автор ответа:
 Андрей



Вопросов: 2
Ответов: 15
  Профиль | | #31 Добавлено: 31.01.11 22:15
Простите, я опять обрисовал проблему не совсем правильно. Дело в том, что записывать ФИО предполагается в такой форме:
Иванов И.И и по нажатию enter, перейдя на следующую строку, вводить данные уже другого человека в этой же форме, вроде Петров П.П.
Т.е. сплит, если я правильно понимаю, должен производится при обнаружении символа CR, а это, воспользовавшись Вашим шаблоном, мне сделать не удалось.
Кстати, обратите пожалуйста внимание на то, что при вставке содержимого Txt1 в определенный текст, между какими-нибудь абзацами, последняя строка Txt1 оказывается пустой.

Ответить

Номер ответа: 32
Автор ответа:
 Artyom



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #32 Добавлено: 01.02.11 04:53
AgentFire пишет:
Using MS As New IO.MemoryStream()
    Throw New Exception
End Using



и MS.Dispose все равно будет вызван?..

разумеется.

Ответить

Номер ответа: 33
Автор ответа:
 Захарка



Вопросов: 0
Ответов: 42
  Профиль | | #33 Добавлено: 01.02.11 11:57
о, я не подумал что под ФИО будет несколько фамилий( тогда код ещщё проще:
  1.  
  2.  
  3.         Txt1 = TextBox1.Text
  4.         Dim txt As String = txt & Txt1.Split(vbCrLf)(0).PadLeft(s.Length + 5, " ")
  5.         Dim s As String = ""
  6.         Dim i as integer      
  7.         For i = 1 to Txt1.Split(vbCrLf).length
  8.             txt = txt & vbCrLf & Txt1.Split(vbCrLf)(0).PadLeft(s.Length + 5, " ")  
  9.         Next
  10.         Txt1 = txt
  11.         form.WriteLine(Txt1)

Ответить

Номер ответа: 34
Автор ответа:
 Андрей



Вопросов: 2
Ответов: 15
  Профиль | | #34 Добавлено: 01.02.11 12:21
Не знаю как у Вас, но у меня код не компилируется, а после правки совершенно не работает.

Ответить

Номер ответа: 35
Автор ответа:
 VβÐUηìt



Вопросов: 246
Ответов: 3333
  Web-сайт: смекаешь.рф
 Профиль | | #35 		Добавлено: 01.02.11 12:41
Какие ошибки выдает? Что подчеркивает?

Ответить

Номер ответа: 36
Автор ответа:
 Андрей



Вопросов: 2
Ответов: 15
  Профиль | | #36 Добавлено: 01.02.11 13:02
Сейчас одну ошибку выдал, прикладываю скрин: http://i011.radikal.ru/1102/43/200995813114.png
Еще одна вещь, это то что записывается из текстбокса в файл - явно не соответствует действительности.

Ответить

Номер ответа: 37
Автор ответа:
 Захарка



Вопросов: 0
Ответов: 42
  Профиль | | #37 Добавлено: 01.02.11 13:28
Ой, извените, совсем уже голова не работает, конечно же:
  1.  
  2.  
  3.         Txt1 = TextBox1.Text
  4.         Dim txt As String = Txt1.Split(vbCrLf)(0).PadLeft(Txt1.Split(vbCrLf)(0).Length + 5, " ")
  5.         Dim s As String = ""
  6.         Dim i as integer      
  7.         For i = 1 to Txt1.Split(vbCrLf).length
  8.             txt = txt & vbCrLf & Txt1.Split(vbCrLf)(i).PadLeft(Txt1.Split(vbCrLf)(i).Length + 5, " ")  
  9.         Next
  10.         Txt1 = txt
  11.         form.WriteLine(Txt1)

Ответить

Номер ответа: 38
Автор ответа:
 Андрей



Вопросов: 2
Ответов: 15
  Профиль | | #38 Добавлено: 01.02.11 13:39
А теперь вот такая красота: http://s003.radikal.ru/i201/1102/79/f63de8084917.png
Не знаете, что это может быть?

Ответить

Номер ответа: 39
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #39 		Добавлено: 01.02.11 15:49
Может надо (for i=0 to сплит-1)
И кстати не думаю, что вызов Split(vbcrlf) КАЖДЫЙ РАЗ, когда надо обратиться к строке из текста. Один раз разбиваешь текст, пишешь в массив. Потом работаешь сс массивом

Ответить

Номер ответа: 40
Автор ответа:
 Winand



Вопросов: 87
Ответов: 2795
  Web-сайт: winandfx.narod.ru
 Профиль | | #40 		Добавлено: 01.02.11 15:51
*...обратиться к строке из текста, обоснован хоть чем-то. Один...
Ну или как на предыдущей странице - использовать For Each

Ответить

Номер ответа: 41
Автор ответа:
 Захарка



Вопросов: 0
Ответов: 42
  Профиль | | #41 Добавлено: 01.02.11 21:15
For each не получится потому что я инициализировал переменную txt нцлевой строкой, поэтому же цикл ведётся от еденицы. И да, правельно, цикл надо вести до Txt1.Split(vbCrLf).length - 1. Кажется сессия плохо влияет на мои мозги(

Ответить

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

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



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