Объяснение участка кода

@Csacsa · Регистрация: 24.09.2012

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

Visual Basic
1
2
 Src = Mid$(cmd, 1, l - 2)
    Dst = Mid$(cmd, l + 3)

.....

Visual Basic
1
2
3
Dst = Mid$(cmd, 1, l - 2)
    Dst = Replace(Dst, ".", "2.")
    Src = Mid$(cmd, l + 3)

в комментариях к программе эти участки кода объяснялись, как парсинг аргументов командной строки. Объясните пожалуйста поподробнее

Dragokas · 10.06.2014, 17:16

Что тут можно понять? Давайте больше кода.

Добавлено через 2 минуты
Mid:
1 арг - строка
2 арг - номер символа, от которого читаются символы,
3 арг - кол-во читаемых символов.

Replace
Замена в строке текста, указанного 2-м арг. на текст, указанный 3-м арг.

@Csacsa · 10.06.2014, 17:33 **[ТС]**

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
Private Sub Command1_Click()
 
Dim cmd As String, fSrc As Integer, fDst As Integer, l As Long
    Dim Src As String, Dst As String, pt As Long
    Dim Acc As Byte, Buf() As Byte
    cmd = Command()
    l = InStr(1, cmd, "/o")
    ' Парсим аргументы командной строки
    Src = Mid$(cmd, 1, l - 2)
    Dst = Mid$(cmd, l + 3)
    ' Если существует результирующий файл - удаляем его
    If Len(Dir(Dst)) Then Kill Dst
    ' Определяем свободные файловые номера
    fSrc = FreeFile
    ' Открываем файлы
    Open Src For Binary As fSrc
    fDst = FreeFile
    Open Dst For Binary As fDst
    ' Цикл пока не прочитан весь файл
    Do
        ' Обнуляем буфер
        If pt + 7 > LOF(fSrc) Then l = LOF(fSrc) - pt Else l = 7
        pt = pt + 7
        ReDim Buf(l - 1)
        ' Считываем байты
        Get fSrc, , Buf
        ' Обнуляем аккумулятор
        Acc = 0
        ' Формируем из старших битов байт
        For l = 0 To UBound(Buf)
            ' Получаем старший бит и сдвигаем вправо
            Acc = (Acc Or (Buf(l) And &H80&)) \ 2
            ' Обнуляем старший бит в буфере
            Buf(l) = Buf(l) And &H7F&
        Next
        ' Записываем в файл 8 байт
        Put fDst, , Buf
        Put fDst, , Acc
        ' Отображение прогресса
        If (pt Mod 700) = 0 Then
            frmProgress.Show
            frmProgress.Cls
            frmProgress.Line (0, 0)-Step(frmProgress.ScaleWidth * (pt / LOF(fSrc)), frmProgress.ScaleHeight), vbRed, BF
            frmProgress.Refresh
            DoEvents
        End If
    Loop Until pt >= LOF(fSrc)
    ' Закрываем файлы
    Close fSrc
    Close fDst
    ' Закрываем окно
    Unload frmProgress
    MsgBox "Готово"
 
End Sub
 
Private Sub Command2_Click()
Dim cmd As String, fSrc As Integer, fDst As Integer, l As Long
    Dim Src As String, Dst As String, pt As Long
    Dim Acc As Byte, Buf() As Byte
    cmd = Command()
    l = InStr(1, cmd, "/o")
    ' Парсим аргументы командной строки
    Dst = Mid$(cmd, 1, l - 2)
    Dst = Replace(Dst, ".", "2.")
    Src = Mid$(cmd, l + 3)
    
    ' Если существует результирующий файл - удаляем его
    If Len(Dir(Dst)) Then Kill Dst
    ' Определяем свободные файловые номера
    fSrc = FreeFile
    ' Открываем файлы
    Open Src For Binary As fSrc
    fDst = FreeFile
    Open Dst For Binary As fDst
    ' Цикл пока не прочитан весь файл
    Do
        ' Обнуляем буфер
        If pt + 8 > LOF(fSrc) Then l = LOF(fSrc) - pt - 1 Else l = 7
        pt = pt + 8
        ReDim Buf(l - 1)
        ' Считываем байты
        Get fSrc, , Buf
        ' Считываем аккумулятор
        Get fSrc, , Acc
        ' Формируем из старших битов байт
        For l = UBound(Buf) To 0 Step -1
            ' Сдвигаем влево
            Acc = Acc * 2
            ' Записываем бит в буфер
            Buf(l) = Buf(l) Or (Acc And &H80&)
            ' Обнуляем старший бит в аккумуляторе
            Acc = Acc And &H7F
        Next
        ' Записываем в файл 8 байт
        Put fDst, , Buf
        ' Отображение прогресса
        If (pt Mod 700) = 0 Then
            frmProgress.Show
            frmProgress.Cls
            frmProgress.Line (0, 0)-Step(frmProgress.ScaleWidth * (pt / LOF(fSrc)), frmProgress.ScaleHeight), vbRed, BF
            frmProgress.Refresh
            DoEvents
        End If
    Loop Until pt >= LOF(fSrc)
    ' Закрываем файлы
    Close fSrc
    Close fDst
    ' Закрываем окно
    Unload frmProgress
    MsgBox "Готово"
End Sub

Вообще программа для 7 битного кодирования и раскодирования.

Добавлено через 10 минут
Помогите пожалуйста разобраться с программой, не понятно за что отвечают некоторые переменные и когда получаем старший бит что за &H80& и &H7F&

Dragokas · 10.06.2014, 17:56

Примерно так:

Сообщение от Csacsa

Visual Basic
1
2
3
4
5
6
7
8
9
10
11
'cmd - получает аргументы командной строки.
cmd = Command()
'идет поиск ключа /o (при том, если пользователь задаст большую О, поиск провалится)
'не проверив результат функции дальше идет небезопасный пасинг:
'запись все, что слева от ключа  в Dst, а все, что справа в Src
'если ключ не будет задан, или не указан первый аргумент программа вылетит
l = InStr(1, cmd, "/o") 
Dst = Mid$(cmd, 1, l - 2) 
'к имени файла дописывается цифра 2 (также небезопасно), если в имени будут еще точки, функция заменит их тоже.
Dst = Replace(Dst, ".", "2.") 
Src = Mid$(cmd, l + 3)

Добавлено через 12 минут
Ну, например, если у Вас Buf(l) = &HF8,
то вы обнуляете старший бит (8-й по счету справа):

11111000₂ (F8₁₆)
AND
01111111₂ (7F₁₆)
=
01111000₂

По второй части вопроса пусть спецы по битовой арифметике объяснят.

@Csacsa · 10.06.2014, 18:04 **[ТС]**

спасибо. а можете ещё пояснить про вот этот участок

Visual Basic
1
2
If pt + 7 > LOF(fSrc) Then l = LOF(fSrc) - pt Else l = 7
        pt = pt + 7

не очень понятно, за что отвечает переменная pt , acc- что это за аккумулятор ?

@The trick · 10.06.2014, 18:55

Csacsa, зря я чтоли комменты писал?
У тебя 7 битное кодирование, 1 байт задает старшие биты последующих 7 байт, потом собственно идут 7 байт данных с отсеченным старшим битом. Аккумулятор - это накопитель, накапливает старшие биты. Тот участок кода отвечает за правильное определение количества бит, т.к. файлы могут быть не кратны 7 байтам.

Добавлено через 2 минуты
Для чего там добавилось

Visual Basic
1
Dst = Replace(Dst, ".", "2.")

?

Dragokas · 10.06.2014, 21:05

Csacsa, вот Вам улучшенный парсер аргументов командной строки:

Кликните здесь для просмотра всего текста

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
Sub main()
    Dim Src As String, Dst As String
    Get_Arguments Src, Dst
    debug.? Src
    debug.? Dst
End Sub
 
Sub Get_Arguments(Src As String, Dst As String)
    Dim argv() As String, argc As Long
    Call Parse_CMD(argc, argv)
    If argc < 3 Then MsgBox "Недостаточно аргументов!": End
    If StrComp(argv(2), "/o", 1) <> 0 Then MsgBox "Неверно зада ключ": End
    Src = argv(1)
    Dst = argv(3)
End Sub
 
Sub Parse_CMD(argc As Long, argv() As String)
  Dim Lex, St$, nL&, nA&, Unit$
  St = Command()
  Lex = Split(St) 'Разбиваем по пробелам для лексического анализа
  ReDim argv(0 To UBound(Lex) + 1) As String 'Определяем выходной массив до максимально возможного числа параметров
  argv(0) = App.Path & "\" & App.EXEName & ".exe"
  If Len(St) <> 0 Then
    Do While nL <= UBound(Lex)
      Unit = Lex(nL) 'Записысаем смысловую единицу
      If Len(Unit) <> 0 Then 'Защита от двойных пробелов между параметрами
        If Left$(Lex(nL), 1) = """" Then 'Если попалась кавычка
          Do Until Right$(Lex(nL), 1) = """" 'Пока не найдем кавычке пару
            nL = nL + 1
            If nL > UBound(Lex) Then Exit Do 'Если не дождались завершающей кавычки, а лимит превышен
            Unit = Unit & " " & Lex(nL)
          Loop
          Unit = Replace$(Unit, """", "") 'Удаляем кавычки
        End If
        argv(nA + 1) = Unit
        nA = nA + 1 'Счетчик выходных аргументов
      End If
      nL = nL + 1 'Счетчик лексических единиц
    Loop
  End If
  ReDim Preserve argv(0 To nA)
  argc = nA
End Sub

Новые блоги и статьи Все статьи Все блоги /
Сумматор с применением элементов трёх состояний. Hrethgir 26.03.2026 Тут. https:/ / fips. ru/ EGD/ ab3c85c8-836d-4866-871b-c2f0c5d77fbc Первый документ красиво выглядит, но без схемы. Это конечно не даёт никаких плюсов автору, но тем не менее. . . всё может быть. . .	Автозаполнение реквизитов при создании документа Maks 26.03.2026 Код из решения ниже размещается в модуле объекта документа, в процедуре "ПриСозданииНаСервере". Алгоритм проверки заполнения реализован для исключения перезаписи значения реквизита, которое может. . .	Команды "Заполнить" и "Очистить" на форме документа Maks 26.03.2026 1. Команда формы "ЗаполнитьЗапчасти". На примере нетипового документа разработанного в конфигурации КА2. В качестве источника данных указан регистр накопления, в который записываются данные о. . .	Кому нужен AOT? DevAlt 26.03.2026 Решил сделать простой ланчер Написал заготовку: dotnet new console --aot -o UrlHandler var items = args. Split(":"); var tag = items; var id = items; var executable = args;. . .
Отправка уведомления на почту при изменении наименования справочника Maks 24.03.2026 Программная отправка письма электронной почты на примере изменения наименования типового справочника "Склады" в конфигурации БП3. Перед реализацией необходимо выполнить настройку системной учетной. . .	модель ЗдравоСохранения 5. Меньше увольнений- больше дохода! anaschu 24.03.2026 Теперь система здравосохранения уменьшает количество увольнений. 9TO2GP2bpX4 a42b81fb172ffc12ca589c7898261ccb/ https:/ / rutube. ru/ video/ a42b81fb172ffc12ca589c7898261ccb/ Слева синяя линия -. . .	Midnight Chicago Blues kumehtar 24.03.2026 Такой Midnight Chicago Blues, знаешь?. . Когда вечерние улицы становятся ночными, а ты не можешь уснуть. Ты идёшь в любимый старый бар, и бармен наливает тебе виски. Ты смотришь на пролетающие. . .	SDL3 для Desktop (MinGW): Вывод текста со шрифтом TTF с помощью библиотеки SDL3_ttf на Си и C++ 8Observer8 24.03.2026 Содержание блога Финальные проекты на Си и на C++: finish-text-sdl3-c. zip finish-text-sdl3-cpp. zip

Dragokas 18033 / 7736 / 892 Регистрация: 25.12.2011 Сообщений: 11,502 Записей в блоге: 16
	10.06.2014, 17:16
	Что тут можно понять? Давайте больше кода. Добавлено через 2 минуты Mid: 1 арг - строка 2 арг - номер символа, от которого читаются символы, 3 арг - кол-во читаемых символов. Replace Замена в строке текста, указанного 2-м арг. на текст, указанный 3-м арг. 1

Объяснение участка кода

Решение