Считывание данных из второй строки в переменную

@ultradevelop · Регистрация: 17.10.2012

Author24 — интернет-сервис помощи студентам

Написал небольшой код, для считывания данных из второй строки в переменную. Чет не так.

Visual Basic

Dim Fh As String
Dim S As String
Dim i As Integer 
Dim tS As String 
Private Sub Form_Load()
Fh = FreeFile()
Open ("C:\PerfLogs\Admin\vsx.dat") For Input As Fh
For i = 1 To 5
Line Input #Fh, tS
If i = 2 Then S = tS
Next i
Close #Fh
Label1.Caption = S
End Sub

morgann55 · 06.02.2013, 22:04

А S в длину Label1 помещается ?? Сделай стоп на ЭТОЙ строке - проверь S...

@ultradevelop · 06.02.2013, 22:08 **[ТС]**

morgann55,

вот так?

Visual Basic

Dim Fh As String
Dim S As String
Dim i As Integer 
Dim tS As String 
Private Sub Form_Load()
Fh = FreeFile()
Open ("C:\PerfLogs\Admin\vsx.dat") For Input As Fh
For i = 1 To 5
Line Input #Fh, tS
If i = 2 Then S = tS
MsgBox S
Next i
Close #Fh
Label1.Caption = S
End Sub

Добавлено через 1 минуту
morgann55,

дело в том что он ругается на строчку с Line Input, пишет "Ввод после конца файла"

SoftIce · 06.02.2013, 22:31

Файл бинарный? Или просто расширение такое?

Строчек в файле меньше 5

Visual Basic

1 2	Но все равно лучше сделать так If i = 2 Then S = tS: exit for

@ultradevelop · 06.02.2013, 22:42 **[ТС]**

SoftIce, расширение такое, там на второй строчке число 245089, вот его и нужно считать

SoftIce · 06.02.2013, 23:01

Если блокнотом открыть файл - сколько в нем строчек?

Добавлено через 4 минуты
ultradevelop, давай файл. я сделаю

Добавлено через 6 минут
Кстати, Fh должна быть Integer.

morgann55 · 06.02.2013, 23:01

Сообщение от ultradevelop

morgann55,

дело в том что он ругается на строчку с Line Input, пишет "Ввод после конца файла"

Значит файл короче пяти строк (у меня обычно так)... Хотя я .dat так не пробовал грузить...
Сейчас SoftIce разберётся...

SoftIce · 06.02.2013, 23:04

Не по теме:

Сообщение от SoftIce

Строчек в файле меньше 5

Сообщение от SoftIce

Если блокнотом открыть файл - сколько в нем строчек?

Сообщение от morgann55

Значит файл короче пяти строк

morgann55, долго спишь:D

morgann55 · 06.02.2013, 23:07

Добавлено через 6 минут
Кстати, Fh должна быть Integer.[/QUOTE]

Точно, ведь должен быть номер !!! Тупанул я

@ultradevelop · 07.02.2013, 14:53 **[ТС]**

SoftIce, спс, помогло)

morgann55 · 07.02.2013, 16:09

Сообщение от SoftIce

Не по теме:

morgann55, долго спишь:D

Да пишу во время пятиминутного перерыва в покерном турнире - в голове ещё последние раздачи перевариваются... Прошу Пардона !!!

@ultradevelop · 07.02.2013, 16:20 **[ТС]**

morgann55,

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	07.02.2013, 16:09	11
	Сообщение от SoftIce Не по теме: morgann55, долго спишь:D Да пишу во время пятиминутного перерыва в покерном турнире - в голове ещё последние раздачи перевариваются... Прошу Пардона !!! 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	06.02.2013, 22:04	2
	А S в длину Label1 помещается ?? Сделай стоп на ЭТОЙ строке - проверь S... 0

@ultradevelop 11 / 2 / 0 Регистрация: 17.10.2012 Сообщений: 80
	06.02.2013, 22:42 [ТС]	5
	SoftIce, расширение такое, там на второй строчке число 245089, вот его и нужно считать 0

SoftIce es geht mir gut 11270 / 4752 / 1183 Регистрация: 27.07.2011 Сообщений: 11,439
	06.02.2013, 23:01	6
	Если блокнотом открыть файл - сколько в нем строчек? Добавлено через 4 минуты ultradevelop, давай файл. я сделаю Добавлено через 6 минут Кстати, Fh должна быть Integer. 1

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	06.02.2013, 23:01	7
	Сообщение от ultradevelop morgann55, дело в том что он ругается на строчку с Line Input, пишет "Ввод после конца файла" Значит файл короче пяти строк (у меня обычно так)... Хотя я .dat так не пробовал грузить... Сейчас SoftIce разберётся... 0

SoftIce
	06.02.2013, 23:04 #8
	Не по теме: Сообщение от SoftIce Строчек в файле меньше 5 Сообщение от SoftIce Если блокнотом открыть файл - сколько в нем строчек? Сообщение от morgann55 Значит файл короче пяти строк morgann55, долго спишь:D 0

morgann55 1365 / 207 / 37 Регистрация: 09.02.2012 Сообщений: 745
	06.02.2013, 23:07	9
	Добавлено через 6 минут Кстати, Fh должна быть Integer.[/QUOTE] Точно, ведь должен быть номер !!! Тупанул я 0

@ultradevelop 11 / 2 / 0 Регистрация: 17.10.2012 Сообщений: 80
	07.02.2013, 14:53 [ТС]	10
	SoftIce, спс, помогло) 0

@ultradevelop 11 / 2 / 0 Регистрация: 17.10.2012 Сообщений: 80
	07.02.2013, 16:20 [ТС]	12
	morgann55, 0