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

   
   
     

Форум - .NET

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

 

  Вопрос: Чтение части строк из текстового файла Добавлено: 03.11.08 00:47  

Автор вопроса:  CodeHunter | Web-сайт: joiner.vghost.ru | ICQ: 795421 

Ответить

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

Номер ответа: 16
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | | #16 Добавлено: 05.11.08 03:05
  1. Imports System.IO
  2. Imports System.Text
  3.  
  4. Namespace ConsoleApplication1
  5.     Public Class Program
  6.         Private Shared Sub Main(ByVal args As String())
  7.             Using sr As New StreamReader("c:\test.txt", Encoding.[Default])
  8.                 Dim line As String = Nothing
  9.                 Do
  10.                     line = sr.ReadLine()
  11.                     If Not String.IsNullOrEmpty(line) Then
  12.                         Dim position As Integer = line.IndexOf(":")
  13.                         If position <> -1 AndAlso position <> line.Length Then
  14.                             line = line.Substring(position + 1)
  15.                             ' Тут тебе остается лишь присвоить
  16.                             ' нужному TextBox'у значение переменной line                    
  17.                             ' TextBox1.Text = line
  18.                         End If
  19.                     End If
  20.                 Loop While line IsNot Nothing
  21.             End Using
  22.         End Sub
  23.     End Class
  24. End Namespace

Ответить

Номер ответа: 17
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #17 Добавлено: 05.11.08 07:46
BG(Алексей), теперь он тебе пиво должен! :-)

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #18 Добавлено: 05.11.08 08:39
А ты мне должен! :)

Ответить

Номер ответа: 19
Автор ответа:
 BG(Алексей)



Вопросов: 26
Ответов: 295
  Профиль | | #19 Добавлено: 07.11.08 03:02
BG(Алексей), теперь он тебе пиво должен!

Я приглашу Вас обязательно.

Ответить

Номер ответа: 20
Автор ответа:
 CodeHunter



ICQ: 795421 

Вопросов: 2
Ответов: 25
  Web-сайт: joiner.vghost.ru
 Профиль | | #20 		Добавлено: 07.11.08 12:44
Вопрос остается открытым :(

Ответить

Номер ответа: 21
Автор ответа:
 __Pavel__



Вопросов: 29
Ответов: 284
  Web-сайт: ммм.сайта.НЕТ
 Профиль | | #21 		Добавлено: 07.11.08 14:16
Конвертер C# <-> VB.NET
http://www.developerfusion.com/tools/convert/csharp-to-vb/

Ответить

Номер ответа: 22
Автор ответа:
 __Pavel__



Вопросов: 29
Ответов: 284
  Web-сайт: ммм.сайта.НЕТ
 Профиль | | #22 		Добавлено: 07.11.08 14:18
Блин... не заметил что тут 2 страницы =)
Но думаю это(выше) кому-нибудь пригодится...

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #23 Добавлено: 07.11.08 14:39
Ужос! Кто к нам пожаловал! Сам пан __Pavel__!

Неужели нашли возможность из вашего сверхперегруженного графика все-таки выкроить минутку и посетить, так сказать, старых товарищей, в ущерб работе и учебе?

Ответить

Номер ответа: 24
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #24 Добавлено: 07.11.08 16:13
Вопрос остается открытым

блин... ну что тут еще осталось открытым??? Тебе дали пример на 2 языках! Неужели этого недостаточно для понимания?

Ответить

Номер ответа: 25
Автор ответа:
 CodeHunter



ICQ: 795421 

Вопросов: 2
Ответов: 25
  Web-сайт: joiner.vghost.ru
 Профиль | | #25 		Добавлено: 07.11.08 23:15
ебе дали пример на 2 языках!

Плохо что дают примеры на любом другом языке, а не на том котором просят... :(

Ответить

Номер ответа: 26
Автор ответа:
 EROS



Вопросов: 58
Ответов: 4255
  Профиль | | #26 Добавлено: 08.11.08 07:43
CodeHunter, у меня закралась мысль, что у тебя со зрением что то не в порядке.. я написал пример на С#, BG(Алексей) перевел его на понятный для тебя VB.NET .. что еще не так? На каком еще языке надо написать чтоб вопрос стал закрытым???

Ответить

Номер ответа: 27
Автор ответа:
 Алексей



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
  Web-сайт: aleksey.nemiro.ru
 Профиль | | #27 		Добавлено: 08.11.08 07:55
я написал пример на С#, BG(Алексей) перевел его на понятный для тебя VB.NET .. что еще не так? На каком еще языке надо написать чтоб вопрос стал закрытым???

я знаю, нужно было с самого начала на русском языке писать:
  1. Импортировать Систему.УФ
  2. Импортировать Систему.Тексты
  3.  
  4. ИмяКосмоса ConsoleApplication1
  5.     Публично Классно Программирую
  6.         Лично Шары Под Главным(моиАргументы как массив строк, непонятны, но и хрен с ними)
  7.             Юзать строчка Как Новый ПотокЧтения("c:\test.txt", Кодировка.ХочуКакЕстьАнеКакНадо)
  8.                 Переменная Линия Как Строка = Ничего
  9.                 Делать
  10.                     Линия = строчка.ЧитатьЛинию()
  11.                     Если Нет СтрокаПустая(Линия) То
  12.                         Переменная Позиция Как Число = Линия.ВКакомМестеЛежит(":")
  13.                         Если Позиция <> -1 И тем более Позиция <> Линия.Длина То
  14.                             Линия = Линия.ВырезатьКусокОтСеда(Позиция + 1)
  15.                             ' Тут тебе остается лишь присвоить
  16.                             ' нужному TextBox'у значение переменной line                    
  17.                             ' TextBox1.Text = line
  18.                         Конец Если
  19.                     Конец Если
  20.                 Пока Линия НеРовна Ничего
  21.             Хватит Юзать
  22.         Кирдык Под
  23.     Ппц как публично
  24. Ппц ИмениКосмоса

Ответить

Номер ответа: 28
Автор ответа:
 Алексей



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
  Web-сайт: aleksey.nemiro.ru
 Профиль | | #28 		Добавлено: 08.11.08 08:14
вообще, вот так надо:
  1.     Dim tl As New TableLayoutPanel()
  2.     tl.Dock = DockStyle.Fill
  3.     tl.ColumnCount = 1
  4.     tl.RowCount = 0
  5.     Using sr As New System.IO.StreamReader("1.txt", System.Text.Encoding.GetEncoding(1251))
  6.       For Each s As String In sr.ReadToEnd().Split(vbCrLf)
  7.         If Not s.IndexOf(":") = -1 Then
  8.           Dim tb As New TextBox()
  9.           tb.Text = s.Substring(s.IndexOf(":") + 1)
  10.           tb.Dock = DockStyle.Fill
  11.           tl.Controls.Add(tb)
  12.         End If
  13.       Next
  14.     End Using
  15.     Me.Controls.Add(tl)

:)

зы: если у автора вопроса 2003 студия, то приведенные в топике примеры работать не будут, т.к. код будет немного отличаться.

Ответить

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



Разработчик

Вопросов: 130
Ответов: 6602
  Профиль | | #29 Добавлено: 08.11.08 09:16
Почему?

Ответить

Номер ответа: 30
Автор ответа:
 Алексей



black  admin

ICQ: 261779681 

Вопросов: 87
Ответов: 633
  Web-сайт: aleksey.nemiro.ru
 Профиль | | #30 		Добавлено: 08.11.08 09:33
Почему?

ты мне? что почему? почему код будет разным? :)
Если на глаз, то IsNot в первом Framework не было, Using по-моему тоже появился только в FW 2.x.

Ответить

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

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



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