В данном примере рассматривается исходный код текстового редактора написанного в среде программирования Microsoft Visual Basic v6.0. Суть программы заключается в том, что она умеет считывать содержимое текстового файла, делать изменение и сохранять.
Давайте перейдет к созданию такой программы, запустим Visual Basic v6.0 создадим стандартный проект, добавим одно текстовое поле, и две кнопки. Теперь сделаем изменения в окне свойств этих объектов:
- «форма» параметр StartUpPosition = 1-centerowner
- «текстовое поле» параметр Multiline = True
- «текстовое поле» параметр Text = оставьте пустым (сотрите все)
- «Command1» параметр Caption = напишите «Прочитать»
- «Command2» параметр Caption = напишите «Сохранить»
Расположите удобным для себя способом, но так чтобы текстовое поле занимало большую площадь программы (т.к. у нас типа текстовый редактор)
Код текстового редактора Visual Basic
Затем вставляйте следующий код:
Private Sub Command1_Click()
Dim Str As String
Dim FileNum As Byte
Text1.Text = ""
FileNum = FreeFile
Open App.Path & "\123.txt" For Binary As FileNum
Str = Space(LOF(1))
Get #FileNum, , Str
Text1.Text = Text1.Text & Str
Close #FileNum
End Sub
Private Sub Command2_Click()
Dim FN As Integer
Dim FName As String
FN = FreeFile
FName = "\123.txt"
Open FName For Output As #FN
Print #FN, Text1.Text
Close #FN
End Sub
Теперь объясняю, во-первых, мы пока можем редактировать только один файл с названием 123.txt, который должен располагаться в одной папке с программой. Что касается кода, в коде первой кнопки у нас сначала идет объявление переменных:
Dim Str As String
Dim FileNum As Byte
Потом очищение текстового поля:
Text1.Text = «»
Далее идет уже непосредственно открытие файла, его чтение и закрытие:
FileNum = FreeFile
Open App.Path & «\123.txt» For Binary As FileNum
Str = Space(LOF(1))
Get #FileNum, , Str
Text1.Text = Text1.Text & Str
Close #FileNum
В коде кнопке два алгоритм похожий: объявление переменных, открываем файл, и записываем в него содержимое нашего текстового поля, а потом закрываем. Вот в принципе и все, программа конечно простая, но для начинающих самое то.
