Интернет-журнал 'Домашняя лаборатория', 2007 №3 - Вудворт
Шрифт:
Интервал:
Закладка:
2.�����������, ���� �� ��� �������� ���������.
3.����� ����, �� ������� � ������ 1, ���� ���, �� ��������� ������.
"����"�� ��-��������� "If". ������ �� ����� ����� � ���������� ��������� �������. �������� �������: "���������� If", ������ �������, �������� ���� �� ��������� ��������� ���� If, Then, Else � ��[7].
������� "���������� If�Then�Else"�� ����� ������ ����� ��������. �������� �������, �� ������� ������ ��������� �������:
If ������� Then [����������] [Else ����������_�ls�]
����� �� ������� ������ ���� � ���? ��������, ������� ���������� �������� ���������� � ���� �� 0, �� ���������� ������, � ���� 0, �� ������������. � ��� ����� ���������� ���������� �������� ����������? ���������, ��� �� � VBA ������� ��� ������ ��������? ������� � ������ ���������: "Documents", �������� ����� � ���������� �������� ������. ��� � ���� � � ������ ������� ����� "Count": ������ �����, ��� ������� ��������. ������� �� �� ������ � ��������� �� ��� ������� � ������ � ��, ��� ������� ������� �������� ���������. �� ���� ������� ������ ��������� ��� "If Documents. Count > 0 Then�". ��, � ���������� � ������� � ����� � ���� ��� ��������.
����� ������� "Else�" ����� ��������, � ������ �������� ������ ���������� ����� ������� "If�"�� ���� ��� ����� � �� ���������� ��������� �� �������� �� ��� ���, ���� ��������� �������� ���������. � ��������� ���, ��������, ����� ����� ���������, ���������� �� �������� ��������,�� ����� ����� ���� ��������� ��������� �� ��������� � ������. ���������� ������� MsgBox (� �� ���������� �������� �������� � �������):
signal = MsgBox("��������� ���������", vbInformation, "��������� �������")
����, ��������� ������. ����� � ������� ����������� ���� "���������" ��������� �� ������, ����� ���� ��� ��������� ������, � ��������� �� ��� �������������.
������ ��������� �� ��� ��������. ������� ���, ����� ��� ������������ ��������� ����������� �� � ����� ������, � � ���������, ���������� �������������, � ����� ������������ ��� ������� ��� ����� �� ������������ ����������� ����, �������� �� ���������.
����� ������������� ��������. � ���������� ��������� ������� ����� "dialog boxes", ������� ��� �� ������� �� ������ ���. � ����������� ���� ������ ������� ������ � "Displaying Built-In Word Dialog-Boxes", ��� ��� ���, ���� �� ��������, ����� ����� ����, ��� ������ ���������� ���������� ����. ������ � �������� ����� ������� ��������, ��� � ������� ������� Dialogs("��� �������").Show ����� ������� �� ����� ����� ���������� ���������� ���� Word, ����� ���� �������� ����� ��� ���������� � �����. ��������� ����� ����, ������� ���������� �� ���� � �����-������ ����������. ��� ����� �������� ��������� ����������������� ������ � ����� ���������� � ��� ��� ��������� ����� ���������� ���� (���.�3.11).
���.�3.11. ��� ������ ������ ������� ����� ��������� ������ ���������� ���������� ���� Word..
� �������� ������ ������ ���� �� ����� ���������".Display" � ����� ���� �� ����� ��� �����-���� ����������� ��������: ���� � ������� �������
Dialogs(wdDialogFileOpen).Show ����� �������� ���� �������� �����, �� ��� ������� ������ "�������" � ��� ��������� � ���� ���� ����� ������, � ���� ���� ���������� �������� Dialogs(wdDialogFileOpen).Display, �� �������� ����� �� ����������, �� ��� ���������� ����� ����� ����� �������� � ����������:
With Dialogs(wdDialogFileOpen)
.Display
imya=.Name
End With
� ������������ ������������ ��� ��� �� ������ ����������.
��� ������������� ���������� ���������� ���� Word ����������� ������������� ��������� With, ��� ���, �������� ��, ������������� �������� ����
Dialogs(wdDialogFileOpen).Display
imya=Dialogs(wdDialogFileOpen).Name
�������� �� �����.
����� �������� ����������� �� ���� Dialogs(wdDialogCopyFile)�� ����������� �����. ��������� ������ "Built-in dialog box argument lists" ���� "Displaying built-in Word dialog boxes", �������� ������ ���� ��������� ���������� ���������� ���� (�� ���� ����������, �������� ������� ����� �������� �� ���� ��� ������ ��). ��� ���������� �������� "Directory" (�����, ���� ����������� ����, ��������� � ��������� "FileName" ��� ���������� ������ "Show" ��� "Execute" � ��� ���������� ���������� ������ ���������� ������� ��� ��������� ����������� ���������� �� ���������� ����������� ���� ��� ����������� ���������� �������). ������������������ � ���� ����� � ������� � ����������������� ������ ��������� ���:
Sub experience4()
With Dialogs(wdDialogCopyFile)
.Display
papka = .Directory
End With
MsgBox papka
End Sub
�������� ��� ��������� ��������� ���, ��������, ��� � ���������� "papka" ������������ ���� � ��� �����, ��, ���� � ���� ��� ����� ���� �������, �� ���� ����������� ���������: "C: Program FilesMicrosoft 0£:£�1���������", � ���� �������� � ���� �� ����, �� ������� �� ����� �� ��������. ������� ������������ ���������� ����� ���������� � ������ �������. ������� ��� ����� � ������� ��� ��������� ��� ������ "Left", "Rigth", "Mid" � "Len":
If Right(papka, 1) = Chr$(34) Then papka = Mid(papka, 2, Len(papka) ��2)
"Chr$(34)" � ��� �������, ������� ���������� ������ � ASCII-����� 34: �������. (������ ������ � Dos � Windows ����� ���� ����� � ASCII-���, �� �������� ��� ����� �������