Автор Тема: Обновляемый справочник текущих номеров строк при заголовках функций  (Прочитано 711 раз)

0 Пользователей и 1 Гость просматривают эту тему.

Оффлайн Arthgo [?]

  • Новичок
  • *
  • Сообщений: 5
  • Репутация: 0
  • Пол: Мужской
    • Награды
  • Версия AutoIt: 3.3.14.0
 По ходу разработки и отладки программ каждая активная "рабочая область" продолжает активно наполняться текстами новых функций, примерами, комментариями и правками. В результате постоянно изменяется местоположение текстов функций в соответствующем рабочем файле. При общем числе строк в файле порядка тысячи, отслеживать местоположение и отыскивать тексты нужных функций в этом файле становится весьма трудоемким занятием.
Предлагаемая функция GetFuncList() предназначена для частичной автоматизации составления и ведения справочников текущего местоположения текстов функций в рабочем файле .au3.

Код: AutoIt [Выделить]
#include <Array.au3>
GetFuncList()
Exit

Func GetFuncList()
    ; Read the current script file into an array using the filepath.
    Local $j=0
    Local $aArray[1] = [0]
    Local $aArray_Base = FileReadToArray(@ScriptFullPath)
    Local $iLineCount = @extended
    ;MsgBox(0,"This Script Path & Size",@ScriptFullPath & " " & @extended)
    If @error Then
        MsgBox($MB_SYSTEMMODAL, "", "There was an error reading the file. @error: " & @error) ; An error occurred reading the current script file.
        Exit
    Else
        For $i = 0 To $iLineCount - 1 ; Loop through the array.
            Local $Line=StringLeft ( $aArray_Base[$i], 4 )
            If $Line="Func" Then
               Local $iPosition = StringInStr($aArray_Base[$i], ")")
               Local $Rec=StringMid($aArray_Base[$i], 1, $iPosition) & "  " & $i
               $j+=1
               _ArrayInsert($aArray, 0, $Rec)
            EndIf
         Next
         _ArraySort($aArray)
         $aArray[0]=$j
        _ArrayDisplay($aArray, "This Script Function line num")
    EndIf
EndFunc   ;==>GetFuncList()

« Последнее редактирование: Март 09, 2018, 19:21:57 от Arthgo »

Русское сообщество AutoIt


 

Похожие темы

  Тема / Автор Ответов Последний ответ
2 Ответов
7607 Просмотров
Последний ответ Июнь 09, 2013, 03:05:43
от AZJIO
4 Ответов
17179 Просмотров
Последний ответ Август 19, 2013, 03:53:12
от CreatoR
0 Ответов
1937 Просмотров
Последний ответ Февраль 13, 2011, 19:47:58
от `p r o x y
1 Ответов
2104 Просмотров
Последний ответ Февраль 04, 2012, 15:24:24
от Kaster
14 Ответов
6417 Просмотров
Последний ответ Июль 03, 2012, 20:45:12
от Dk
5 Ответов
5397 Просмотров
Последний ответ Февраль 07, 2013, 08:51:06
от exHalfer
1 Ответов
1924 Просмотров
Последний ответ Март 03, 2013, 13:00:24
от DarWiM
3 Ответов
2542 Просмотров
Последний ответ Октябрь 05, 2013, 17:30:09
от WSWR
39 Ответов
7802 Просмотров
Последний ответ Март 21, 2015, 10:35:45
от alex33
5 Ответов
2985 Просмотров
Последний ответ Май 01, 2015, 14:46:05
от Garrett