Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/4: Рейтинг темы: голосов - 4, средняя оценка - 5.00
0 / 0 / 0
Регистрация: 17.07.2010
Сообщений: 15
1

чтение из фаила

19.07.2010, 15:41. Показов 687. Ответов 2
Метки нет (Все метки)

У меня такая прога(ну веренее это отрывок), вобщем при ее выполнении должно происходить следующее: есть команд бутон, и массивы состоящий из текстовых данных Text2(30),Text3(30), так вот при нажатии команд бутон первые 31 строки должны помещаться в текстовый массив Text2(30), при чем 1 строка соответсвует Text2(0) ну и так далее, затем начиная с 32 строки данные должны помещаться в Text3(0) ну и до конца. НО при выполнении этого "кусочка" программы в массивы Text2(30)и Text3(30) вводятся одинаковые данные, а именно строки начиная с 32 и по последнюю. Можете подсказать где у меня косяк???
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
Private Sub cbStart_Click()
 
cdCommonDialog.ShowOpen
 
strFileName = cdCommonDialog.FileName
 
nFreeFile = FreeFile
 
If strFileName <> "" Then
 
Open strFileName For Input As nFreeFile
 
nFileLenght = FileLen(strFileName)
strFileContent = Input(nFileLenght, #nFreeFile)
 
 
Close
 
End If
 
Open strFileName For Input As #1
Do While Not EOF(1)
For j = 0 To 30
Line Input #1, strFileContent
Text2(j).Text = strFileContent
Text3(j).Text = strFileContent
Next
Loop
Close #1
End Sub
 Комментарий администратора 
для выделения кода используйте теги языков, которые представлены в панели инструментов редактора сообщений, в противном случае - тег code
0

Помощь в написании контрольных, курсовых и дипломных работ здесь.

Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
19.07.2010, 15:41
Ответы с готовыми решениями:

чтение с фаила
есть фаил с такими данными то есть это вещественные числа:...

Чтение из фаила txt
Привет всем! помогите с чтением из фаила в фаиле записаны числа в два столбца как их считать в два...

Чтение из фаила txt
Привет всем. Решил написать прогу которая читает координаты из фаила и рисует график. Запарелся...

Чтение чисел из фаила и выполнение операций над ними
Товарищи выручайте пожалуйста! Необходимо на Си, написать программу для считывания из файла 3...

2
1159 / 285 / 23
Регистрация: 28.09.2008
Сообщений: 553
19.07.2010, 20:47 2
Цитата Сообщение от Kracozebr Посмотреть сообщение
Можете подсказать где у меня косяк???
Да у тебя тут вообще ничё не понятно.
Вот так работает:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub cbStart_Click()
Dim cout As Long, strFileContent As String
cdCommonDialog.ShowOpen
strFileName = cdCommonDialog.FileName
nFreeFile = FreeFile
If strFileName <> "" Then
End If
Open strFileName For Input As nFreeFile
Do While Not EOF(nFreeFile)
    Line Input #nFreeFile, strFileContent
    If cout <= 30 Then
        Text2.Text = Text2.Text & strFileContent & vbCrLf
    Else
        Text3.Text = Text3.Text & strFileContent & vbCrLf
    End If
    cout = cout + 1
Loop
Close nFreeFile
End Sub
P.S. И не забываем коды тегами [CОDE][/CОDE] оформлять.
0
1177 / 628 / 39
Регистрация: 30.05.2010
Сообщений: 715
20.07.2010, 06:51 3
Здравствуйте Kracozebr.
мне кажется для заполнения массивов (Text2(30), Text3(30)) больше подойдет подобная конструкция:
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
...
Dim i&
Do While Not EOF(nFreeFile)
    Line Input #nFreeFile, strFileContent
    Select Case i
    Case 0 To 30:   Text2(i).Text = strFileContent
    Case 31
    Case 32 To 62:   Text3(i - 32).Text = strFileContent
    Case Else: Exit Do '
    End Select
    i = i + 1
Loop
...
Евгений.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
20.07.2010, 06:51

Размер фаила БД
Здравствуйте, проблема вот в чем,после удаления записи в таблице access объем размера фаила базы...

Загрузка из фаила
Здрасти. Какой код нужен чтобы загрузить в массив данные из текстового файла?

Создания фаила
Есть такой скрипт который читает фаилы в зависимости от гет запроса. Но вот беда не могу сделать...

ЗАгрузка фаила
Пытаюсь загрузить фаил: if(is_uploaded_file($_FILES)) { copy($_FILES,...

запись в конец фаила
Народ помогите записать в конец фаила, все сделал а эта ернуда не получается) помогите вот кусок...

Вывод картинки из фаила
Помогите пожалуйста вывести картинку из фаила. Использовать токлько окно BGI пишу на def-cpp...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.