Devcafe: /* autoit 폴더 내부 텍스트 */

2025-09-26T07:10:01Z

autoit 폴더 내부 텍스트

Devcafe: 새 문서: == autoit 폴더 내부 텍스트== #Region ; Directives created by AutoIt3Wrapper_GUI #AutoIt3Wrapper_Icon=search.ico #AutoIt3Wrapper_Res_Description=텍스트 파일 검색 프로그램 #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_ProductVersion=1.0.0 #EndRegion ; Directives created by AutoIt3Wrapper_GUI #include #include #include #include #include
2025-09-26T07:09:43Z

새 문서: == autoit 폴더 내부 텍스트== #Region ; Directives created by AutoIt3Wrapper_GUI #AutoIt3Wrapper_Icon=search.ico #AutoIt3Wrapper_Res_Description=텍스트 파일 검색 프로그램 #AutoIt3Wrapper_Res_Fileversion=1.0.0.0 #AutoIt3Wrapper_Res_ProductVersion=1.0.0 #EndRegion ; Directives created by AutoIt3Wrapper_GUI #include <ButtonConstants.au3> #include <EditConstants.au3> #include <GUIConstantsEx.au3> #include <GuiListView.au3> #include <GuiListBox.au...

새 문서
== autoit 폴더 내부 텍스트==

#Region ; Directives created by AutoIt3Wrapper_GUI
#AutoIt3Wrapper_Icon=search.ico
#AutoIt3Wrapper_Res_Description=텍스트 파일 검색 프로그램
#AutoIt3Wrapper_Res_Fileversion=1.0.0.0
#AutoIt3Wrapper_Res_ProductVersion=1.0.0
#EndRegion ; Directives created by AutoIt3Wrapper_GUI

#include <ButtonConstants.au3>
#include <EditConstants.au3>
#include <GUIConstantsEx.au3>
#include <GuiListView.au3>
#include <GuiListBox.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <File.au3>
#include <Array.au3>
#include <String.au3>
#include <StringConstants.au3>

; ===== 전역 변수 =====
Global $g_hGUI, $g_idFolderPath, $g_idSearchText, $g_idResultList
Global $g_idBtnBrowse, $g_idBtnSearch, $g_idBtnSave, $g_idBtnClear
Global $g_idChkRegex, $g_idChkCase, $g_idChkSubFolder
Global $g_idCmbFileType, $g_idProgressBar, $g_idStatusBar
Global $g_aResults[1][6] ; [파일경로, 상대경로, 라인번호, 라인내용, 파일크기, 수정일시]
Global $g_iResultCount = 0
Global $g_sBaseFolder = ""

; 지원할 파일 확장자
Global $g_aFileTypes[11][2] = [["전체 텍스트 파일", ".txt;.log;.sql;.ini;.cfg;.conf;.properties"], _
["텍스트 파일 (.txt)", ".txt"], _
["로그 파일 (.log)", ".log"], _
["SQL 파일 (.sql)", ".sql"], _
["설정 파일 (.ini;.cfg;.conf)", ".ini;.cfg;.conf"], _
["스크립트 파일 (.py;.js;.vbs;.au3)", ".py;.js;.vbs;.au3"], _
["웹 파일 (.html;.htm;.xml;.json)", ".html;.htm;.xml;.json"], _
["배치 파일 (.bat;.cmd;.ps1)", ".bat;.cmd;.ps1"], _
["오라클 추적 파일 (.trc)", ".trc"], _
["마크다운 (.md)", ".md"], _
["모든 파일 (.*)", "."]]

Main()

Func Main()
CreateGUI()

While 1
Local $nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
ExitLoop

Case $g_idBtnBrowse
BrowseFolder()

Case $g_idBtnSearch
StartSearch()

Case $g_idBtnSave
SaveResults()

Case $g_idBtnClear
ClearResults()

Case $g_idResultList
If @extended = $NM_DBLCLK Then
OpenSelectedFile()
EndIf
EndSwitch
WEnd

GUIDelete()
EndFunc

Func CreateGUI()
; 메인 윈도우 생성
$g_hGUI = GUICreate("텍스트 파일 검색 프로그램 v1.0 - Oracle DBA Tools", 900, 650, -1, -1, $WS_OVERLAPPEDWINDOW)

; 폴더 선택 그룹
GUICtrlCreateGroup("검색 경로", 10, 10, 880, 60)
GUICtrlCreateLabel("폴더:", 20, 35, 40, 20)
$g_idFolderPath = GUICtrlCreateInput("", 65, 32, 730, 23)
$g_idBtnBrowse = GUICtrlCreateButton("찾기", 805, 30, 80, 27)
GUICtrlCreateGroup("", -99, -99, 1, 1) ; 그룹 종료

; 검색 옵션 그룹
GUICtrlCreateGroup("검색 옵션", 10, 80, 880, 90)

GUICtrlCreateLabel("검색어:", 20, 105, 50, 20)
$g_idSearchText = GUICtrlCreateInput("", 75, 102, 300, 23)

GUICtrlCreateLabel("파일 형식:", 390, 105, 60, 20)
$g_idCmbFileType = GUICtrlCreateCombo("", 455, 102, 200, 200, $CBS_DROPDOWNLIST)

; 파일 형식 콤보박스 채우기
Local $sFileTypes = ""
For $i = 0 To UBound($g_aFileTypes) - 1
$sFileTypes &= $g_aFileTypes[$i][0]
If $i < UBound($g_aFileTypes) - 1 Then $sFileTypes &= "|"
Next
GUICtrlSetData($g_idCmbFileType, $sFileTypes, $g_aFileTypes[0][0])

$g_idBtnSearch = GUICtrlCreateButton("검색 시작", 680, 100, 100, 27)
$g_idBtnClear = GUICtrlCreateButton("결과 지우기", 790, 100, 90, 27)

; 체크박스 옵션들
$g_idChkCase = GUICtrlCreateCheckbox("대소문자 구분", 20, 135, 100, 20)
$g_idChkRegex = GUICtrlCreateCheckbox("정규식 사용", 130, 135, 100, 20)
$g_idChkSubFolder = GUICtrlCreateCheckbox("하위 폴더 포함", 240, 135, 100, 20)
GUICtrlSetState($g_idChkSubFolder, $GUI_CHECKED) ; 기본적으로 체크

GUICtrlCreateGroup("", -99, -99, 1, 1) ; 그룹 종료

; 결과 리스트뷰
GUICtrlCreateGroup("검색 결과", 10, 180, 880, 400)
$g_idResultList = GUICtrlCreateListView("파일명|상대 경로|라인|내용|크기|수정일시", 20, 200, 860, 350, $LVS_REPORT + $LVS_SHOWSELALWAYS)
_GUICtrlListView_SetColumnWidth($g_idResultList, 0, 150) ; 파일명
_GUICtrlListView_SetColumnWidth($g_idResultList, 1, 250) ; 상대경로
_GUICtrlListView_SetColumnWidth($g_idResultList, 2, 50) ; 라인
_GUICtrlListView_SetColumnWidth($g_idResultList, 3, 300) ; 내용
_GUICtrlListView_SetColumnWidth($g_idResultList, 4, 70) ; 크기
_GUICtrlListView_SetColumnWidth($g_idResultList, 5, 120) ; 수정일시
GUICtrlCreateGroup("", -99, -99, 1, 1) ; 그룹 종료

; 하단 버튼들
$g_idBtnSave = GUICtrlCreateButton("결과 저장", 20, 590, 100, 30)
GUICtrlCreateButton("도움말", 130, 590, 80, 30)

; 상태바
$g_idStatusBar = GUICtrlCreateLabel("준비됨", 20, 630, 860, 15)

GUISetState(@SW_SHOW)
EndFunc

Func BrowseFolder()
Local $sFolder = FileSelectFolder("검색할 폴더를 선택하세요", "", 1)
If $sFolder <> "" Then
GUICtrlSetData($g_idFolderPath, $sFolder)
$g_sBaseFolder = $sFolder
EndIf
EndFunc

Func StartSearch()
Local $sFolder = GUICtrlRead($g_idFolderPath)
Local $sSearchText = GUICtrlRead($g_idSearchText)

; 입력값 검증
If $sFolder = "" Then
MsgBox(16, "오류", "검색할 폴더를 선택해주세요.")
Return
EndIf

If Not FileExists($sFolder) Then
MsgBox(16, "오류", "선택한 폴더가 존재하지 않습니다.")
Return
EndIf

If $sSearchText = "" Then
MsgBox(16, "오류", "검색어를 입력해주세요.")
Return
EndIf

; 검색 옵션 읽기
Local $bCaseSensitive = (GUICtrlRead($g_idChkCase) = $GUI_CHECKED)
Local $bUseRegex = (GUICtrlRead($g_idChkRegex) = $GUI_CHECKED)
Local $bIncludeSubFolder = (GUICtrlRead($g_idChkSubFolder) = $GUI_CHECKED)

Local $iFileTypeIndex = _GUICtrlComboBox_GetCurSel($g_idCmbFileType)
Local $sFilePattern = $g_aFileTypes[$iFileTypeIndex][1]

; 결과 초기화
ClearResults()

; 검색 시작
GUICtrlSetData($g_idStatusBar, "검색 중...")
GUICtrlSetState($g_idBtnSearch, $GUI_DISABLE)

$g_sBaseFolder = $sFolder
SearchInFolder($sFolder, $sSearchText, $sFilePattern, $bCaseSensitive, $bUseRegex, $bIncludeSubFolder)

GUICtrlSetState($g_idBtnSearch, $GUI_ENABLE)
GUICtrlSetData($g_idStatusBar, "검색 완료: " & $g_iResultCount & "개 결과 발견")

If $g_iResultCount = 0 Then
MsgBox(64, "검색 완료", "검색 결과가 없습니다.")
Else
MsgBox(64, "검색 완료", $g_iResultCount & "개의 결과를 찾았습니다.")
EndIf
EndFunc

Func SearchInFolder($sFolder, $sSearchText, $sFilePattern, $bCaseSensitive, $bUseRegex, $bIncludeSubFolder)
Local $aFiles, $aFileList
Local $sSearchPattern = $bIncludeSubFolder ? "" : ""

; 파일 패턴을 배열로 분할
Local $aPatterns = StringSplit($sFilePattern, ";", $STR_NOCOUNT)

For $sPattern In $aPatterns
If $bIncludeSubFolder Then
$aFiles = _FileListToArrayRec($sFolder, $sPattern, $FLTAR_FILES, $FLTAR_RECUR)
Else
$aFiles = _FileListToArray($sFolder, $sPattern, $FLTAR_FILES)
EndIf

If Not @error And IsArray($aFiles) Then
For $i = 1 To $aFiles[0]
Local $sFilePath = $bIncludeSubFolder ? $aFiles[$i] : $sFolder & "\" & $aFiles[$i]
SearchInFile($sFilePath, $sSearchText, $bCaseSensitive, $bUseRegex)

; 상태 업데이트 (너무 자주 하지 않도록)
If Mod($i, 50) = 0 Then
GUICtrlSetData($g_idStatusBar, "검색 중... (" & $i & "/" & $aFiles[0] & " 파일)")
EndIf
Next
EndIf
Next
EndFunc

Func SearchInFile($sFilePath, $sSearchText, $bCaseSensitive, $bUseRegex)
Local $hFile = FileOpen($sFilePath, $FO_READ + $FO_UTF8_NOBOM)
If $hFile = -1 Then
; UTF-8로 실패하면 ANSI로 시도
$hFile = FileOpen($sFilePath, $FO_READ)
If $hFile = -1 Then Return
EndIf

Local $sContent = FileRead($hFile)
FileClose($hFile)

If $sContent = "" Then Return

; 줄 단위로 분할
Local $aLines = StringSplit($sContent, @CRLF, $STR_ENTIRESPLIT + $STR_NOCOUNT)

; 파일 정보 가져오기
Local $iFileSize = FileGetSize($sFilePath)
Local $sModifiedTime = FileGetTime($sFilePath, $FT_MODIFIED, $FT_STRING)

; 각 줄에서 검색
For $i = 0 To UBound($aLines) - 1
Local $sLine = $aLines[$i]
Local $bFound = False

If $bUseRegex Then
; 정규식 검색
Local $aResult = StringRegExp($sLine, $sSearchText, $STR_REGEXPARRAYMATCH)
If Not @error And IsArray($aResult) Then
$bFound = True
EndIf
Else
; 일반 텍스트 검색
Local $sSearchLine = $bCaseSensitive ? $sLine : StringLower($sLine)
Local $sSearchTerm = $bCaseSensitive ? $sSearchText : StringLower($sSearchText)
If StringInStr($sSearchLine, $sSearchTerm) > 0 Then
$bFound = True
EndIf
EndIf

If $bFound Then
AddResult($sFilePath, $i + 1, $sLine, $iFileSize, $sModifiedTime)
EndIf
Next
EndFunc

Func AddResult($sFilePath, $iLineNumber, $sLineContent, $iFileSize, $sModifiedTime)
; 결과 배열 확장
ReDim $g_aResults[$g_iResultCount + 1][6]

; 상대 경로 계산
Local $sRelativePath = StringReplace($sFilePath, $g_sBaseFolder & "\", "")
If $sRelativePath = $sFilePath Then $sRelativePath = StringReplace($sFilePath, $g_sBaseFolder, "")

; 파일명만 추출
Local $aPathParts = StringSplit($sFilePath, "\", $STR_NOCOUNT)
Local $sFileName = $aPathParts[UBound($aPathParts) - 1]

; 결과 저장
$g_aResults[$g_iResultCount][0] = $sFilePath
$g_aResults[$g_iResultCount][1] = $sRelativePath
$g_aResults[$g_iResultCount][2] = $iLineNumber
$g_aResults[$g_iResultCount][3] = StringLeft($sLineContent, 200) ; 최대 200자만
$g_aResults[$g_iResultCount][4] = Round($iFileSize / 1024, 1) & " KB"
$g_aResults[$g_iResultCount][5] = $sModifiedTime

; 리스트뷰에 추가
Local $sItem = $sFileName & "|" & $sRelativePath & "|" & $iLineNumber & "|" & _
StringReplace($sLineContent, @TAB, " ") & "|" & _
Round($iFileSize / 1024, 1) & " KB|" & $sModifiedTime

GUICtrlCreateListViewItem($sItem, $g_idResultList)

$g_iResultCount += 1
EndFunc

Func ClearResults()
; 리스트뷰 클리어
_GUICtrlListView_DeleteAllItems($g_idResultList)

; 결과 배열 초기화
ReDim $g_aResults[1][6]
$g_iResultCount = 0

GUICtrlSetData($g_idStatusBar, "결과가 초기화되었습니다.")
EndFunc

Func SaveResults()
If $g_iResultCount = 0 Then
MsgBox(16, "오류", "저장할 결과가 없습니다.")
Return
EndIf

Local $sSaveFile = FileSaveDialog("검색 결과 저장", @MyDocumentsDir, "텍스트 파일 (.txt)|모든 파일 (.)", $FD_PATHMUSTEXIST, "search_results.txt")

If $sSaveFile <> "" Then
Local $hFile = FileOpen($sSaveFile, $FO_OVERWRITE + $FO_CREATEPATH + $FO_UTF8_NOBOM)
If $hFile = -1 Then
MsgBox(16, "오류", "파일을 생성할 수 없습니다.")
Return
EndIf

; 헤더 정보
FileWriteLine($hFile, "=== 텍스트 파일 검색 결과 ===")
FileWriteLine($hFile, "생성일시: " & @YEAR & "-" & @MON & "-" & @MDAY & " " & @HOUR & ":" & @MIN & ":" & @SEC)
FileWriteLine($hFile, "검색 경로: " & $g_sBaseFolder)
FileWriteLine($hFile, "총 결과: " & $g_iResultCount & "건")
FileWriteLine($hFile, "=" & StringRepeat("=", 80))
FileWriteLine($hFile, "")

; 결과 데이터
For $i = 0 To $g_iResultCount - 1
FileWriteLine($hFile, "파일: " & $g_aResults[$i][0])
FileWriteLine($hFile, "라인: " & $g_aResults[$i][2])
FileWriteLine($hFile, "내용: " & $g_aResults[$i][3])
FileWriteLine($hFile, "크기: " & $g_aResults[$i][4])
FileWriteLine($hFile, "수정일: " & $g_aResults[$i][5])
FileWriteLine($hFile, StringRepeat("-", 80))
Next

FileClose($hFile)

MsgBox(64, "저장 완료", "검색 결과가 저장되었습니다." & @CRLF & $sSaveFile)

; 저장된 파일 열기 여부 확인
Local $iResult = MsgBox(36, "파일 열기", "저장된 파일을 열어보시겠습니까?")
If $iResult = 6 Then ; Yes
ShellExecute($sSaveFile)
EndIf
EndIf
EndFunc

Func OpenSelectedFile()
Local $iSelected = _GUICtrlListView_GetNextItem($g_idResultList)
If $iSelected >= 0 Then
Local $sFilePath = $g_aResults[$iSelected][0]
Local $iLineNumber = $g_aResults[$iSelected][2]

; 파일 열기 옵션 제공
Local $iChoice = MsgBox(35, "파일 열기", "파일을 어떻게 열까요?" & @CRLF & @CRLF & _
"예(Y): 메모장으로 열기" & @CRLF & _
"아니오(N): 기본 프로그램으로 열기" & @CRLF & _
"취소: 파일 경로 복사")

Switch $iChoice
Case 6 ; Yes - 메모장
Run("notepad.exe " & '"' & $sFilePath & '"')

Case 7 ; No - 기본 프로그램
ShellExecute($sFilePath)

Case 2 ; Cancel - 경로 복사
ClipPut($sFilePath)
MsgBox(64, "복사 완료", "파일 경로가 클립보드에 복사되었습니다.")
EndSwitch
EndIf
EndFunc

; Oracle DBA를 위한 추가 유틸리티 함수들

Func SearchOracleErrors()
; Oracle 에러 패턴들을 미리 정의
Local $aOracleErrors[5] = ["ORA-\d{5}", "TNS-\d{5}", "RMAN-\d{5}", "SP2-\d{4}", "PLS-\d{5}"]

; 콤보박스에서 Oracle 관련 파일 선택
; 구현 생략...
EndFunc

Func SearchSQLPatterns()
; 자주 사용되는 SQL 패턴들
Local $aSQLPatterns[6] = ["SELECT.FROM", "INSERT.INTO", "UPDATE.SET", "DELETE.FROM", "CREATE.TABLE", "ALTER.TABLE"]

; 구현 생략...
EndFunc

오토잇 폴더 내부 텍스트 - 편집 역사

Devcafe: /* autoit 폴더 내부 텍스트 */