Что и где нужно поменять, что б программа отрабатывала не сколько раз?

06.03.2014, 22:58. Показов 536. Ответов 0

Метки нет (Все метки)

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

При этом исходный файл удалялся,а новый был с таким же названием. Программа моя отрабатывает только один раз!

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
Private Sub Command1_Click()
Dim i As Integer
Dim s As String
MyOut.Cls 
K = Val(Text1.Text)
MyOut.Print "k="; K
FNum1 = FreeFile()
Open App.Path & "\Строка.txt" & FName For Input As FNum1
FNum2 = FreeFile()
Open App.Path & "\Строка.txt" & "tmpfile.txt" For Output As FNum2
i = 0
Do
i = i + 1
Input #FNum1, s
Print #FNum2, s
If i = K Then
Print #FNum2, ""
MyOut.Print "вставка пустой строки после строчки", K
End If
Loop While Not EOF(FNum1)
Close FNum1
Close FNum2
MyOut.Print "закрыли файлы"
Kill App.Path & "\Строка.txt" & FName 'удаление исходного файла
Name App.Path & "\Строка.txt" & "tmpfile.txt" As App.Path & "\Строка.txt" & FName
Open App.Path & "\Строка.txt" & FName For Input As FNum1
MyOut.Print
End Sub

Programming

Эксперт

39485 / 9562 / 3019

Регистрация: 12.04.2006

Сообщений: 41,671

Блог

06.03.2014, 22:58

Ответы с готовыми решениями:

Что нужно поменять что бы программа меняла местами слова первое с последним второе с предпоследним и т.д?
program Project1; const D = ; var S, Sw : String; i, Len, Cnt, CntMid : Integer; CntW, LenW, LenW1, P1, P2 : Integer; ...

Сколько раз нужно поделить X на Y что бы получилось меньше Z?
Здравствуйте, каждую итерацию число X делится на число Y, частное снова делится на Y в следующей итерации. Можно ли математически вычислить...

Верно ли, что стиль создается лишь 1 раз, а затем используется везде где нужно
пытаюсь значит понять как все это устроено вот допустим я объявляю стиль <Style x:Key="foo"> ...

Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.

inter-admin

Эксперт

29715 / 6470 / 2152

Регистрация: 06.03.2009

Сообщений: 28,500

Блог

06.03.2014, 22:58

Помогаю со студенческими работами здесь

парни нужно кое-что добавить (нужно что бы эта программа вычисляла среднее арифметическое чисел)
нужно что бы эта программа вычисляла среднее арифметическое чисел, общую сумму, максимальное и минимальлное я сделала, буду очень...

Что изменить в скрипте? Когда-то почти сам написал, а сейчас не знаю где что поменять
Привет всем! Ребята, есть вот такой код, который присваивает ссылке класс active: $(document).ready(function() { ...

Что тут нужно поменять что бы код работал?
Дано предложения: "ЛЕНЬ - МАТЬ ВСЕХ ПОРОКОВ" В заданном предложении вырезать каждую третью букву каждого слова. С помощью функций языка...

что нужно сделать чтобы программа запускалась на тех компах где не стоить Builder?
Всем привет! подскажите пожалуйста, что нужно сделать чтобы программа запускалась на тех компах где не стоить Builder? Зарание

Нужно описание исходного кода скринсейвера, т.е. где что происходит, что чему и для чего присваивается и т.д
unit unitMain; interface uses Windows, Classes, Graphics, Forms, Registry; type TfrmMain = class(TForm) procedure...

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

Или воспользуйтесь поиском по форуму:

Новые блоги и статьи Все статьи Все блоги /
Оттенки серого Argus19 18.03.2026 Оттенки серого Нашёл в интернете 3 прекрасных модуля: Модуль класса открытия диалога открытия/ сохранения файла на Win32 API; Модуль класса быстрого перекодирования цветного изображения в оттенки. . .	SDL3 для Desktop (MinGW): Рисуем цветные прямоугольники с помощью рисовальщика SDL3 на Си и C++ 8Observer8 17.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-rectangles-sdl3-c. zip finish-rectangles-sdl3-cpp. zip	Символические и жёсткие ссылки в Linux. algri14 15.03.2026 Существует два типа ссылок — символические и жёсткие. Ссылка в Linux — это запись в каталоге, которая может указывать либо на inode «файла-ИСТОЧНИКА», тогда это будет «жёсткая ссылка» (hard link),. . .	[Owen Logic] Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ФедосеевПавел 14.03.2026 Поддержание уровня воды в резервуаре количеством включённых насосов: моделирование и выбор регулятора ВВЕДЕНИЕ Выполняя задание на управление насосной группой заполнения резервуара,. . .
делаю науч статью по влиянию грибов на сукцессию anaschu 13.03.2026 прикрепляю статью	SDL3 для Desktop (MinGW): Создаём пустое окно с нуля для 2D-графики на SDL3, Си и C++ 8Observer8 10.03.2026 Содержание блога Финальные проекты на Си и на C++: hello-sdl3-c. zip hello-sdl3-cpp. zip Результат:	Установка CMake и MinGW 13.1 для сборки С и C++ приложений из консоли и из Qt Creator в EXE 8Observer8 10.03.2026 Содержание блога MinGW - это коллекция инструментов для сборки приложений в EXE. CMake - это система сборки приложений. Здесь описаны базовые шаги для старта программирования с помощью CMake и. . .	Как дизайн сайта влияет на конверсию: 7 решений, которые реально повышают заявки Neotwalker 08.03.2026 Многие до сих пор воспринимают дизайн сайта как “красивую оболочку”. На практике всё иначе: дизайн напрямую влияет на то, оставит человек заявку или уйдёт через несколько секунд. Даже если у вас. . .

Наверх