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

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

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

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

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
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
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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,

Новые блоги и статьи Все статьи Все блоги /
SDL3 для Web (WebAssembly): Подключение Box2D v3, физика и отрисовка коллайдеров 8Observer8 12.02.2026 Содержание блога Box2D - это библиотека для 2D физики для анимаций и игр. С её помощью можно определять были ли коллизии между конкретными объектами и вызывать обработчики событий столкновения. . . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 11.02.2026 Содержание блога Библиотека SDL3 содержит встроенные инструменты для базовой работы с изображениями - без использования библиотеки SDL3_image. Пошагово создадим проект для загрузки изображения. . .	SDL3 для Web (WebAssembly): Загрузка PNG с прозрачным фоном с помощью SDL3_image 8Observer8 10.02.2026 Содержание блога Библиотека SDL3_image содержит инструменты для расширенной работы с изображениями. Пошагово создадим проект для загрузки изображения формата PNG с альфа-каналом (с прозрачным. . .	Установка Qt-версии Lazarus IDE в Debian Trixie Xfce volvo 10.02.2026 В общем, достали меня глюки IDE Лазаруса, собранной с использованием набора виджетов Gtk2 (конкретно: если набирать текст в редакторе и вызвать подсказку через Ctrl+Space, то после закрытия окошка. . .
SDL3 для Web (WebAssembly): Работа со звуком через SDL3_mixer 8Observer8 08.02.2026 Содержание блога Пошагово создадим проект для загрузки звукового файла и воспроизведения звука с помощью библиотеки SDL3_mixer. Звук будет воспроизводиться по клику мышки по холсту на Desktop и по. . .	SDL3 для Web (WebAssembly): Основы отладки веб-приложений на SDL3 по USB и Wi-Fi, запущенных в браузере мобильных устройств 8Observer8 07.02.2026 Содержание блога Браузер Chrome имеет средства для отладки мобильных веб-приложений по USB. В этой пошаговой инструкции ограничимся работой с консолью. Вывод в консоль - это часть процесса. . .	SDL3 для Web (WebAssembly): Обработчик клика мыши в браузере ПК и касания экрана в браузере на мобильном устройстве 8Observer8 02.02.2026 Содержание блога Для начала пошагово создадим рабочий пример для подготовки к экспериментам в браузере ПК и в браузере мобильного устройства. Потом напишем обработчик клика мыши и обработчик. . .	Философия технологии iceja 01.02.2026 На мой взгляд у человека в технических проектах остается роль генерального директора. Все остальное нейронки делают уже лучше человека. Они не могут нести предпринимательские риски, не могут. . .

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

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

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

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

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

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