Как взять из файла INPUT.txt два числа, увеличить каждое из них на 1 и записать в OUTPUT.txt

@Minor1310 · Регистрация: 11.02.2013

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

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

@Pro_grammer · 11.02.2013, 07:43

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

написать следующее консольное приложение

Исходя из вашего вопроса смею предположить, что вы ошиблись веткой форума.
Вам надо в https://www.cyberforum.ru/vb-net/

На VB6 тоже можно написать консольное приложение, но для той задачи, которую вы описали, это крайне нецелесообразно

@Казанский · 11.02.2013, 10:36

Тут VBScript достаточно

Visual Basic
1
2
3
4
5
6
Set fso = CreateObject("Scripting.FileSystemObject")
Set tsIn = fso.OpenTextFile("INPUT.TXT")
Set tsOut = fso.CreateTextFile("OUTPUT.TXT", True) 'True=Overwrite
Do While Not tsIn.AtEndOfStream
    tsOut.WriteLine tsIn.ReadLine + 1
Loop

@Catstail · 11.02.2013, 12:35

Или так:

Visual Basic
1
2
3
4
5
6
7
8
9
10
     fi%=FreeFile
     open "input.txt" for input as #fi%
     fo%=FreeFile
     open "outpu.txt" for output as #fo%
     Do while not EOF(fi%)
        Line input #fi%,Stri$
        Print #fo%, 1+val(Stri$)
     Loop
     Close #fi%
     Close #fo%

@Казанский · 11.02.2013, 19:33

Если числа целые, то можно и средствами CMD обойтись

Bash
1
2
3
4
5
6
7
@echo off
setlocal enabledelayedexpansion
for /f %%i in (INPUT.TXT) do (
  set /a variable=%%i+1
  echo !variable! >> OUTPUT.TXT)
endlocal
set variable=

@Pro_grammer · 11.02.2013, 20:46

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

надо написать следующее консольное приложение

Ну тогда уже и настоящее консольное приложение на VB 20** ( .NET)

VB.NET
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Module Module1
 
    Sub Main()
        Using sw As IO.StreamWriter = IO.File.CreateText("C:\OUTPUT.TXT")
            For Each line As String In IO.File.ReadLines("C:\INPUT.TXT")
                Console.WriteLine("Было " & line) ' для контроля ввода
                Dim intLine As Integer = Convert.ToInt32(line)
                sw.WriteLine(Convert.ToString(intLine + 1))
                Console.WriteLine("Стало " & intLine + 1) ' для контроля вывода
            Next line
            sw.Flush()
        End Using
        Console.ReadKey() ' что бы консоль не закрылась, ждем Any клавишу
    End Sub
 
End Module

@Minor1310 · 12.02.2013, 02:06 **[ТС]**

Спасибо помогли

Новые блоги и статьи Все статьи Все блоги /
Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Programma_Boinc 01.01.2026 Учёным и волонтёрам проекта «Einstein@home» удалось обнаружить четыре гамма-лучевых пульсара в джете Млечного Пути Сочетание глобально распределённой вычислительной мощности и инновационных. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .
PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .

@Minor1310 0 / 0 / 1 Регистрация: 11.02.2013 Сообщений: 23

	Как взять из файла INPUT.txt два числа, увеличить каждое из них на 1 и записать в OUTPUT.txt 11.02.2013, 01:04. Показов 1919. Ответов 6 Метки нет (Все метки) Пишу последние года 2 на плюсах и C#. Сейчас появилась необходимость реализации элементарного кода на VB. Курить мануалы времени особо нет, эта часть кода не является важной, но крайне желательна. Суть задачи состоит в том, что надо написать следующее консольное приложение: Берем из файла INPUT.txt два числа (записаны в столбик), увеличиваем каждое из них на 1 и записываем в OUTPUT.txt опять же в столбик я очень рассчитываю на вашу помощь 0

@Minor1310 0 / 0 / 1 Регистрация: 11.02.2013 Сообщений: 23
	12.02.2013, 02:06 [ТС]
	Спасибо помогли 0