Предыдущая тема :: Следующая тема |
Автор |
Сообщение |
SERW
Зарегистрирован: 17.05.2006 Сообщения: 3 Откуда: Симферополь
|
Добавлено: Ср Май 17, 2006 5:50 pm Заголовок сообщения: MSBasic. Поочередное открытие файлов |
|
|
могу дать скрип на следующий фаил, создаем макрос и вставляем
Код: |
Sub Main
'NEXT.BA - Opens the next file in the directory.
'MACRO NEXT + moves "forwards."
'MACRO NEXT - moves "backwards."
Dim CMD As String
Dim currDGN As String
Dim prevDGN As String
Dim nextDGN As String
Dim DGNfiles() As String
'------get the command line argument. Assume "+" if none:
CMD = Command$
If CMD = "" Then CMD = "+"
'------build an array of design files in the current dir.:
currDGN = MbeDgnInfo.dgnFilename
FileList DGNfiles, FileParse$(currDGN, 2) + "\*.dgn"
ArraySort(DGNfiles)
If ArrayDims(DGNfiles) > 0 Then
'------find where the current file is in the array:
For j = 0 To UBound(DGNfiles)
If DGNfiles(j) = FileParse$(currDGN, 3) Then Exit For
Next j
'------determine the previous design file. If the current file
'------is the first file, then make the previous file the current
file:
If j >= 1 Then
prevDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j - 1)
Else
prevDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j)
End If
'------determine the next design file. If the current file
'------is the last file, then make the previous file the current file:
If j < UBound(DGNfiles) Then
nextDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j + 1)
Else
nextDGN = FileParse$(currDGN, 2) + "\" + DGNfiles(j)
End If
'------some debug code:
'MbeMessageBox "Prev File: " + prevDGN + Chr$(10) + _
' "Curr File: " + DGNfiles(j) + Chr$(10) + _
' "Next File: " + nextDGN
'------action based on command line argument:
Select Case CMD
Case "-"
MbeSendKeyin "RD=" + prevDGN
Case "+"
MbeSendKeyin "RD=" + nextDGN
End
|
можно поменять расширение на dwg, создаем две кнопочки и все чудестно работает |
|
Вернуться к началу |
|
|
ВалВл
Зарегистрирован: 08.02.2006 Сообщения: 138
|
Добавлено: Чт Май 18, 2006 11:37 am Заголовок сообщения: |
|
|
А что Я, как пользователь, с этого буду иметь? |
|
Вернуться к началу |
|
|
Leonid давно здесь сидим
Зарегистрирован: 28.01.2006 Сообщения: 598 Откуда: С.-Петербург
|
Добавлено: Пн Май 22, 2006 9:59 am Заголовок сообщения: |
|
|
Вероятно, возможность быстрого просмотра файлов в одной директории... |
|
Вернуться к началу |
|
|
Артем первопроходец
Зарегистрирован: 29.01.2006 Сообщения: 59 Откуда: Прокопьевск
|
Добавлено: Вт Июл 13, 2010 2:47 pm Заголовок сообщения: |
|
|
Хороший скрипт...сеня настроил его....така весчь замечательная ...тока в нем три ошибки или недописки... _________________ Было у отца три сына - два умных, а третий на горном факультете учился. |
|
Вернуться к началу |
|
|
|