VBNet - Форум - Считывание текстовика

Вопрос: Считывание текстовика Добавлено: 24.03.06 18:12

Автор вопроса: DaaGER | Web-сайт: smartic.ru | ICQ: 329195567

Мне надо, чтобы таймер каждую секунду считывал строчку текстового файла и вставлял её текст в label. Понимаю, что надо использовать Line Input и т.д. ,но где - то делаю ошибку.
Dim b
Dim vv
Private Sub Timer1_Timer()
On Error Resume Next
b = App.Path & "\g.txt"
Line Input #b, vv
Label1.Caption = vv
End Sub

Ответить

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

Номер ответа: 1 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #1	Добавлено: 24.03.06 19:29
	Одну считывает вот так: Private Sub Timer1_Timer() Dim vv As String Dim Fnum As Integer On Error Resume Next Fnum = FreeFile Open App.Path & "\g.txt" For Binary As Fnum Line Input #Fnum, vv Close Fnum Label1.Caption = vv End Sub Ответить

Номер ответа: 2 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #2	Добавлено: 24.03.06 19:36
	Ну а так - весь файл: Option Explicit Private Sub Timer1_Timer() Dim vv As String Dim Fnum As Integer On Error Resume Next Fnum = FreeFile Open App.Path & "\g.txt" For Binary As Fnum While Not (EOF(Fnum)) Input #Fnum, vv Label1.Caption = Label1 & vbCrLf & vv Wend Close Fnum End Sub Ответить

Номер ответа: 3 Автор ответа: DaaGER ICQ: 329195567 Вопросов: 52 Ответов: 67	Web-сайт: smartic.ru Профиль \| \| #3	Добавлено: 25.03.06 00:02
	Мне надо, что бы каждую секунду выдавало каждую строчку. Например прошла сека выдалась первая строчка, вторая сека - вторая строка и т.д. Ответить

Номер ответа: 4 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #4	Добавлено: 25.03.06 02:31
	Dim vv As String Dim Fnum As Byte 'to root! Private Sub Form_Load() On Error Resume Next Fnum = FreeFile Open App.Path & "\g.txt" For Input As Fnum End sub Private Sub Timer1_Timer() Line Input #Fnum, vv$ Label1 = vv$ if EOF(Fnum) then Timer1.Enable = True Close #Fnum end if End sub P.S. От руки, не тестя... Ответить

Номер ответа: 5 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #5	Добавлено: 25.03.06 02:32
	ой if EOF(Fnum) then Timer1.Enable = False гы выключить же Ответить

Номер ответа: 6 Автор ответа: [root] Вопросов: 45 Ответов: 1212	Web-сайт: bit.pirit.info Профиль \| \| #6	Добавлено: 25.03.06 06:29
	2HACKER: Ну и фиг с ним, всего то +1 байт я же не офис писал А проверить надо было бы Timer1.EnableD Ответить

Номер ответа: 7 Автор ответа: HACKER Разработчик Offline Client Вопросов: 236 Ответов: 8362	Профиль \| \| #7	Добавлено: 25.03.06 18:27
	не придирайся к англ, русский знаю лучше йа пешу бес ашипок! Ответить

Номер ответа: 8 Автор ответа: gvozd Разработчик Offline Client Вопросов: 164 Ответов: 1317	Web-сайт: www.gvozdsoft.com Профиль \| \| #8	Добавлено: 26.03.06 12:57
	А зачем нужен вообще такой подход? Если файл во время работы не изменяется, не проще ли считать его весь, разбить построчно и по таймеру выводить из массива? Ответить

Номер ответа: 9 Автор ответа: LamerOnLine ICQ: 334781088 Вопросов: 108 Ответов: 2822	Профиль \| \| #9	Добавлено: 28.03.06 10:41
	Да, последнее время форум поражает неординарностью вопросов и полным отстутствием понимания сферы применения ответов Ответить

Страница: 1 |