Отличие Input #N от Line Input #N

Input считывает до запятой или до конца строки (до символа перевода строки vbCrLf), Line Input считывает строку до конца вместе со всеми знаками препинания.

САМОСТОЯТЕЛЬНО

Создать приложение, с помощью которого можно добавлять информацию в текстовый файл, а затем выводить содержимое этого файла в элемент - Список.

Форма

Код (самостоятельно)

Private Sub AppendFile_Click()

Open " File2.txt" For Append As #1

Print #1, Text1.Text

Close #1

End Sub

Private Sub Command2_Click()

Dim strTxt, strBuff As String

Open " File2.txt" For Input As #2

Do While Not EOF(2)

Line Input #2, strBuff

List1.AddItem strBuff

Loop

Close #2

End Sub

Private Sub ClearList_Click()

List1.Clear

End Sub

Private Sub EraseFile_Click()

Open " File2.txt" For Output As #3

Close #3

End Sub

ПРОСТОЙ ФАЙЛОВЫЙ МЕНЕДЖЕР

Рассмотрим работу файловых элементов управления.

Откройте новый проект. Поместите в форму элементы DriveListBox, DirListBox, FileListBox:

Опишите процедуры обработки следующих событий:

Private Sub Dir1_Change()

File1.Path = Dir1.Path

End Sub

Private Sub Drive1_Change()

Dir1.Path = Drive1.Drive

End Sub

Запустите программу и попробуйте ее в работе – Вы связали вместе все элементы управления и теперь изменения диска или папки автоматически меняет файловый лист.

Теперь, когда все работает, добавьте в форму следующие элементы:

Форма:

Код:

Private Sub Form_Load()

Label1.Caption = File1.Path

‘добавляем в поле со списком шаблоны файлов

Combo1.AddItem " *.*"

Combo1.AddItem " *.exe"

Combo1.AddItem " *.com"

Combo1.AddItem " *.doc"

Combo1.AddItem " *.txt"

End Sub

Private Sub Combo1_Click()

‘в файловом листе устанавливаем файлы выбранного типа

File1.Pattern = Combo1.Text

End Sub

Private Sub Command1_Click() ‘кнопка пуска

On Error GoTo errr

‘изменяем текущий системный путь на выбранный в DirListBox

ChDir (Dir1.Path)

‘если файл заканчивается на.doc, то запустить Word для его открытия.

‘Shell – выполнить строку DOS

If Right$(Label1.Caption, 3) = " doc" Then

'не открывает имена файлов с пробелами

Shell " C: \Program Files\Microsoft Office 2000\Office\Winword " & File1.filename, vbNormalFocus

Exit Sub

End If

‘если это исполняемый файл, то запустить его

Shell Label1.Caption, vbNormalFocus

errr:

‘если файл не исполняемый, то

If Err.Number = 5 Then MsgBox " Выполняются только.exe,.com,.bat файлы", _

vbInformation, " SoftMaster"

End Sub

Private Sub Command2_Click()