Форум программистов, компьютерный форум, киберфорум
Visual Basic
Войти
Регистрация
Восстановить пароль
Блоги Сообщество Поиск Заказать работу  
 
Рейтинг 4.71/7: Рейтинг темы: голосов - 7, средняя оценка - 4.71
0 / 0 / 0
Регистрация: 14.05.2014
Сообщений: 17

Как из файла input.txt взять по отдельности 1, а потом 2 переменную

13.10.2014, 12:37. Показов 1529. Ответов 2
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Я понимаю всю логику задачи, смысл и т.д...Но проблема в синтаксисе... Не пойму как из файла input.txt взять по отдельности 1, а потом 2 переменную... Помогите пожалуйста... Вот задача!

Вот мой код, который я написал....
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Command2_Click()
Dim D As String
Dim A As String
 
MyFile = FreeFile
Open ("C:\Users\Home\Desktop\Îëèìïèàäà2\TEST.txt") For Input As #MyFile
Line Input #MyFile, D
 
MyFile1 = FreeFile
Open ("C:\Users\Home\Desktop\Îëèìïèàäà2\TEST2.txt") For Output As #MyFile1
Print #MyFile1, D
Close #MyFile
Close #MyFile1
 
End Sub
Миниатюры
Как из файла input.txt взять по отдельности 1, а потом 2 переменную  
0
Programming
Эксперт
39485 / 9562 / 3019
Регистрация: 12.04.2006
Сообщений: 41,671
Блог
13.10.2014, 12:37
Ответы с готовыми решениями:

Как взять из файла INPUT.txt два числа, увеличить каждое из них на 1 и записать в OUTPUT.txt
Пишу последние года 2 на плюсах и C#. Сейчас появилась необходимость реализации элементарного кода на VB. Курить мануалы времени особо нет,...

Как взять переменную с другого скрипта и потом ее сравнить?
взять данные скрипта знаю. но как их сравнить в другой функции?? и проблема если заключаю в переменную данные. то они попросту не...

Из файла 1.txt взять n первых и n последних строк, и сохранить их как файл 2.txt
Подскажите пожалуйста, как из файла 1.txt взять n первых и n последних строк, и сохранить их как файл 2.txt. Питон почти не знаю, но вот...

2
Супер-модератор
Эксперт функциональных языков программированияЭксперт Python
 Аватар для Catstail
38194 / 21127 / 4309
Регистрация: 12.02.2012
Сообщений: 34,733
Записей в блоге: 14
13.10.2014, 17:41
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Цитата Сообщение от fedun97 Посмотреть сообщение
Не пойму как из файла input.txt взять по отдельности 1, а потом 2 переменную...
- а берешься за олимпиадные задачи... Нужно читать строку, и из нее (по пробелу) выделять переменные.

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Sub Test(finp as string, fout as string)
      fi%=freefile
      Open finp for input As #fi%
      fo%=freefile
      Open fout for output As #fo%
      Do While (not EOF(fi%))
          line input #fi,Stri$
          p%=Instr(Stri$," ")
          B&=Clng(left$(Stri$,p%-1))
          D&=Clng(mid$(Stri$,p%+1))
          print #fo,iif(B&>D&,B&,D&)
      Loop
      close #fi
      close #fo 
End Sub
0
 Аватар для Alex77755
11525 / 3812 / 683
Регистрация: 13.02.2009
Сообщений: 11,229
14.10.2014, 00:10
Лучший ответ Сообщение было отмечено The trick как решение

Решение

Строку можно не читать. Можно просто считывать по 2 переменные
Visual Basic
1
 Input #1, Stri1, Stri2
2
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
inter-admin
Эксперт
29715 / 6470 / 2152
Регистрация: 06.03.2009
Сообщений: 28,500
Блог
14.10.2014, 00:10
Помогаю со студенческими работами здесь

Файл: Переписать текст в t3.txt сначала из файла t1.txt, а потом из файла t2.txt
1) Переписать текст в t3.txt сначала с файла t1.txt, а потом с файла t2.txt 2) Файл t2.txt перенесите в папку K2 3) Файл t1.txt...

Считать с файла (input.txt) строку, заменить в строке латинские буквы на русские, записать файл (input.txt) эту строку
Считать с файла (input.txt) строку, заменить в строке латинские буквы на русские, записать файл (input.txt) эту строку.

Как из wav файла получить читаемый txt, а потом обратно
Извиняюсь если не совсем по адресу, но я уверен что местные читатели знают как это сделать. Суть моей проблемы. Я хочу...

Как взять из файла (массива) строку и ввести ее в переменную?
Подскажите, как поочередно вводить из файла строку в переменную. В прочем, похоже на брут, но мне это надо для кое-каких других функций. ...

Переписать данные файла input.txt в output.txt, отсортировав их
Прошу помочь с заданием. В файле input.xtx содержатся сведения о группе студентов в формате: номер группы; запись о каждом студенты...


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

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Новые блоги и статьи
Сумматор с применением элементов трёх состояний.
Hrethgir 26.03.2026
Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .
Автозаполнение реквизитов при создании документа
Maks 26.03.2026
Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .
Команды "Заполнить" и "Очистить" на форме документа
Maks 26.03.2026
1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .
Кому нужен AOT?
DevAlt 26.03.2026
Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника
Maks 24.03.2026
Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .
модель ЗдравоСохранения 5. Меньше увольнений- больше дохода!
anaschu 24.03.2026
Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .
Midnight Chicago Blues
kumehtar 24.03.2026
Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .
SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++
8Observer8 24.03.2026
Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip
КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2026, CyberForum.ru