Работа с файлами в VB

27.05.2011, 17:37. **Показов** 1657. **Ответов** 3

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

Существует 2 файла типа Sequential (.txt). код на их создание написали, помогите как отсортировать записи в этих файлах по ключевому полю. Записи первой таблицы: код, название книги, автор, тираж, цена, стандартная упаковка. Записи второй таблицы: код, дополнительный тираж, новая цена. ключевое поле код.
На всякий случай уже готовый программный код на создание и просмотр файлов.

Option Explicit
Dim kod As Byte
Dim nazv As String * 30
Dim avt As String * 30
Dim tir As Single
Dim cena As Single
Dim stup As Variant
Dim kod1 As Byte
Dim doptir As Single
Dim novcena As Single

'Создание файла 1
Private Sub mnu211_Click()
Dim i As Byte
Open "fl.txt" For Output As #1
i = 0
Do
i = i + 1
kod = InputBox("Введите код книги №" & i, "Ввод данных", 2000, 500)
nazv = (InputBox("Введите название книги №" & i, "Ввод данных", 2000, 500))
avt = InputBox("Введите автора книги №" & i, "Ввод данных", , 2000, 500)
tir = InputBox("Введите тираж книги №" & i, "Ввод данных", 2000, 500)
cena = InputBox("Введите цену книги №" & i, "Ввод данных", 2000, 500)
stup = InputBox("Введите количество книг в стандартной упаковке для книги №" & i, "Ввод данных", 2000, 500)
Write #1, kod, nazv, avt, tir, cena, stup
Loop Until MsgBox("Продолжить ввод данных ?", 36, "Выход") = vbNo
Close #1
End Sub

'Создание файла 2
Private Sub mnu212_Click()
Dim i As Byte
Open "fl1.txt" For Output As #2
i = 0
Do
i = i + 1
kod1 = InputBox("Введите код книги №" & i, "Ввод данных", 2000, 500)
doptir = InputBox("Введите дополнительный тираж книги №" & i, "Ввод данных", 2000, 500)
novcena = InputBox("Введите новую цену книги №" & i, "Ввод данных", 2000, 500)
Write #2, kod1, doptir, novcena
Loop Until MsgBox("Продолжить ввод данных ?", 36, "Выход") = vbNo
Close #2
End Sub

'Распечатка файла 1
Private Sub mnu271_Click()
Open "fl.txt" For Input As #1
Text1.Text = Space(26) & "Книги" & vbCrLf
Text1.Text = Text1.Text + _
"Код Название Автор Тираж Цена Ст. уп" & vbCrLf
Do While Not EOF(1)
Input #1, kod, nazv, avt, tir, cena, stup
Text1.Text = Text1.Text & kod & " " & nazv
Text1.Text = Text1.Text & "" & avt & " " & tir
Text1.Text = Text1.Text & " " & cena & " " & stup & vbCrLf
Loop
Close #1
End Sub

'распечатка файла 2
Private Sub mnu272_Click()
Open "fl1.txt" For Input As #2
Text2.Text = Space(26) & "Дополнительный тираж" & vbCrLf
Text2.Text = Text2.Text + _
"Код Доп. тираж Новая цена " & vbCrLf
Do While Not EOF(2)
Input #2, kod1, doptir, novcena
Text2.Text = Text2.Text & kod1 & " " & doptir & " " & novcena & vbCrLf
Loop
Close #2
End Sub

'справка
Private Sub mnu28_Click()
Form2.Show
Dim i As Byte, j As Byte

Open "fl.txt" For Input As #1
Open "fl1.txt" For Input As #2
Form2.Text1.Text = ""
Form2.Text1.Text = Space(26) & "Выходной документ" & vbCrLf
Form2.Text1.Text = Form2.Text1.Text + _
"Автор Суммарный тираж Средняя цена" & vbCrLf
Do While Not EOF(1)
Input #1, kod, nazv, avt, tir, cena, stup
Input #2, kod1, doptir, novcena
Form2.Text1.Text = Form2.Text1.Text & avt & "" & tir + doptir
Form2.Text1.Text = Form2.Text1.Text & " " & (cena + novcena) / 2 & vbCrLf
Loop
Close #2
Close #1
End Sub

'Окончание работы программы
Private Sub mnu12_Click()
If MsgBox("Вы действительно хотите выйти из программы ?", vbYesNo + _
vbQuestion, "Выход") = vbYes Then End
End Sub

Please, help us. В понедельник защита!!!

@Alex77755 · 27.05.2011, 23:50

код на их создание написали, помогите как отсортировать записи в этих файлах по ключевому полю.

Да поможем без вопросов - дай только щанс!
С каким способом сортировки у тебя прблемы.
ПокажЫ свои наработки

28.05.2011, 00:55

Всё то, что я сама смогла сделать, я написала уже.
в создании файла при запуске программы код книги запрашивает, там если вводить эти произвольные числа не по порядку то, когда показать документ нажимаем, получается например 3 1 7 5. вот нужен код, чтобы эти записи сортировались по порядку.

@Alex77755 · 29.05.2011, 07:56

Ну почему вы стесняетесь пользоваться поиском по форуму? Уж столько написано!!

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
Option Explicit
 
Private Sub Комманда1_Click()
Dim i, J
Dim M() As String
Dim T
Dim W() As String
Dim P() As String
   Dim File As String, CF As String
   File = "C:\fl1.txt"
   Open File For Binary As #1
      CF = Input(FileLen(File), 1)
   Close #1
 
   CF = Replace(CF, """", "")
 M = Split(CF, vbNewLine)
For i = 0 To UBound(M) - 2
    For J = i + 1 To UBound(M)
    If M(J) <> "" Then
         W = Split(M(i), ",")
          P = Split(M(J), ",")
          If CDbl(W(0)) < CDbl(P(0)) Then T = M(J): M(J) = M(i): M(i) = T
    End If
Next J
Debug.Print M(i)
Text1.Text = Text1.Text & M(i) & vbCrLf
Next i
End Sub

Новые блоги и статьи Все статьи Все блоги /
Уведомление о неверно выбранном значении справочника Maks 06.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "НарядПутевка", разработанного в конфигурации КА2. Задача: уведомлять пользователя, если в документе выбран неверный склад. . .	Установка Qt Creator для C и C++: ставим среду, CMake и MinGW без фреймворка Qt 8Observer8 05.04.2026 Среду разработки Qt Creator можно установить без фреймворка Qt. Есть отдельный репозиторий для этой среды: https:/ / github. com/ qt-creator/ qt-creator, где можно скачать установщик, на вкладке Releases:. . .	AkelPad-скрипты, структуры, и немного лирики.. testuser2 05.04.2026 Такая программа, как AkelPad существует уже давно, и также давно существуют скрипты под нее. Тем не менее, прога живет, периодически что-то не спеша дополняется, улучшается. Что меня в первую очередь. . .	Отображение реквизитов в документе по условию и контроль их заполнения Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "ПланированиеСпецтехники", разработанного в конфигурации КА2. Данный документ берёт данные из другого нетипового документа. . .
Фото всей Земли с борта корабля Orion миссии Artemis II kumehtar 04.04.2026 Это первое подобное фото сделанное человеком за 50 лет. Снимок называют новым вариантом легендарной фотографии «The Blue Marble» 1972 года, сделанной с борта корабля «Аполлон-17». Новое фото. . .	Вывод диалогового окна перед закрытием, если документ не проведён Maks 04.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: реализовать программный контроль на предмет проведения документа. . .	Программный контроль заполнения реквизитов табличной части документа Maks 02.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "СписаниеМатериалов", разработанного в конфигурации КА2. Задача: 1. Реализовать контроль заполнения реквизита. . .	wmic не является внутренней или внешней командой Maks 02.04.2026 Решение: DISM / Online / Add-Capability / CapabilityName:WMIC~~~~ Отсюда: https:/ / winitpro. ru/ index. php/ 2025/ 02/ 14/ komanda-wmic-ne-naydena/

Demina_Ksenya

	Работа с файлами в VB 27.05.2011, 17:37. Показов 1657. Ответов 3 Метки нет (Все метки) Существует 2 файла типа Sequential (.txt). код на их создание написали, помогите как отсортировать записи в этих файлах по ключевому полю. Записи первой таблицы: код, название книги, автор, тираж, цена, стандартная упаковка. Записи второй таблицы: код, дополнительный тираж, новая цена. ключевое поле код. На всякий случай уже готовый программный код на создание и просмотр файлов. Option Explicit Dim kod As Byte Dim nazv As String * 30 Dim avt As String * 30 Dim tir As Single Dim cena As Single Dim stup As Variant Dim kod1 As Byte Dim doptir As Single Dim novcena As Single 'Создание файла 1 Private Sub mnu211_Click() Dim i As Byte Open "fl.txt" For Output As #1 i = 0 Do i = i + 1 kod = InputBox("Введите код книги №" & i, "Ввод данных", 2000, 500) nazv = (InputBox("Введите название книги №" & i, "Ввод данных", 2000, 500)) avt = InputBox("Введите автора книги №" & i, "Ввод данных", , 2000, 500) tir = InputBox("Введите тираж книги №" & i, "Ввод данных", 2000, 500) cena = InputBox("Введите цену книги №" & i, "Ввод данных", 2000, 500) stup = InputBox("Введите количество книг в стандартной упаковке для книги №" & i, "Ввод данных", 2000, 500) Write #1, kod, nazv, avt, tir, cena, stup Loop Until MsgBox("Продолжить ввод данных ?", 36, "Выход") = vbNo Close #1 End Sub 'Создание файла 2 Private Sub mnu212_Click() Dim i As Byte Open "fl1.txt" For Output As #2 i = 0 Do i = i + 1 kod1 = InputBox("Введите код книги №" & i, "Ввод данных", 2000, 500) doptir = InputBox("Введите дополнительный тираж книги №" & i, "Ввод данных", 2000, 500) novcena = InputBox("Введите новую цену книги №" & i, "Ввод данных", 2000, 500) Write #2, kod1, doptir, novcena Loop Until MsgBox("Продолжить ввод данных ?", 36, "Выход") = vbNo Close #2 End Sub 'Распечатка файла 1 Private Sub mnu271_Click() Open "fl.txt" For Input As #1 Text1.Text = Space(26) & "Книги" & vbCrLf Text1.Text = Text1.Text + _ "Код Название Автор Тираж Цена Ст. уп" & vbCrLf Do While Not EOF(1) Input #1, kod, nazv, avt, tir, cena, stup Text1.Text = Text1.Text & kod & " " & nazv Text1.Text = Text1.Text & "" & avt & " " & tir Text1.Text = Text1.Text & " " & cena & " " & stup & vbCrLf Loop Close #1 End Sub 'распечатка файла 2 Private Sub mnu272_Click() Open "fl1.txt" For Input As #2 Text2.Text = Space(26) & "Дополнительный тираж" & vbCrLf Text2.Text = Text2.Text + _ "Код Доп. тираж Новая цена " & vbCrLf Do While Not EOF(2) Input #2, kod1, doptir, novcena Text2.Text = Text2.Text & kod1 & " " & doptir & " " & novcena & vbCrLf Loop Close #2 End Sub 'справка Private Sub mnu28_Click() Form2.Show Dim i As Byte, j As Byte Open "fl.txt" For Input As #1 Open "fl1.txt" For Input As #2 Form2.Text1.Text = "" Form2.Text1.Text = Space(26) & "Выходной документ" & vbCrLf Form2.Text1.Text = Form2.Text1.Text + _ "Автор Суммарный тираж Средняя цена" & vbCrLf Do While Not EOF(1) Input #1, kod, nazv, avt, tir, cena, stup Input #2, kod1, doptir, novcena Form2.Text1.Text = Form2.Text1.Text & avt & "" & tir + doptir Form2.Text1.Text = Form2.Text1.Text & " " & (cena + novcena) / 2 & vbCrLf Loop Close #2 Close #1 End Sub 'Окончание работы программы Private Sub mnu12_Click() If MsgBox("Вы действительно хотите выйти из программы ?", vbYesNo + _ vbQuestion, "Выход") = vbYes Then End End Sub Please, help us. В понедельник защита!!!

Demina_Ksenya
	28.05.2011, 00:55
	Всё то, что я сама смогла сделать, я написала уже. в создании файла при запуске программы код книги запрашивает, там если вводить эти произвольные числа не по порядку то, когда показать документ нажимаем, получается например 3 1 7 5. вот нужен код, чтобы эти записи сортировались по порядку.