Перейти из форума на сайт.

НовостиФайловые архивы
ПоискАктивные темыТоп лист
ПравилаКто в on-line?
Вход Забыли пароль? Первый раз на этом сайте? Регистрация
Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 1)

Модерирует : gyra, Maz

Widok (12-01-2009 14:47): лимит страниц. продолжаем здесь  Версия для печати • ПодписатьсяДобавить в закладки
На первую страницук этому сообщениюк последнему сообщению

   

ViSiToR



Silver Member
Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору


Код:
#cs --------------------------------------------------------------------------------------------------------------------
Author:  Function _FindTextInFile() was modified by G.Sandler a.k.a CreatoR (originaly by Sanja Alone)
Script Function: Find Text in file (matching whole word)
#ce --------------------------------------------------------------------------------------------------------------------

 
#include <Array.au3>
 
$File = "Test.txt|My File.ini"
$Text = "Some text"
 
$FindVar = _FileFindText($File, $Text, 0, 1)
 
If Not @error Then
    For
$i = 1 To $FindVar[0][0]
        MsgBox(262144+64, "Found №" & $i, _
        "The Text <" & $Text & "> was found [" & $FindVar[0][0] & "] times totaly in file(s)..." & @LF & _
        "Current search results (" & $i & " from " & $FindVar[0][0] & ") for file: " & @LF & _
        "<" & $FindVar[$i][0] & ">" & @LF & @LF & _
        "This line include the needed text: <" & $FindVar[$i][1] & ">" & @LF & _
        "The № of line is: <" & $FindVar[$i][2] & ">" & @LF & _
        "The position of founded text in line is: <" & $FindVar[$i][3] & ">")
    Next
ElseIf
@error = 1 Then
    MsgBox(262144+16, "Error", "Unable to locate the File:" & @LF & "[" & $File & "]")
ElseIf @error > 0 Then
    MsgBox(262144+48, "Error", "The Text [" & $Text & "] was not found in file(s):" & @LF & "[" & $File & "]")
EndIf
 
;===============================================================================
; Description:      Find text in file.
; Parameter(s):     $iFile - File name to search in, $Text - text to find.
;                   $MatchWholeWordFlag - flag that defines if serch will match whole word, or search all occurrences.
;                   $CaseSense - Defines if the search will be case sensitive.
; Requirement(s):   AutoIt 3.2.2.0.
; Return Value(s):  On seccess - Returns 2-d array, that include fallowing elements:
;                      $RetArr[$n][0] = The actualy whole line that include $Text.
;                      $RetArr[$n][1] = The number of line that $text was found in.
;                      $RetArr[$n][2] = The position in line that $Text was found in.
;                   On failure - If given file not exists, set @error to 1 and return -1...
;                   If the $Text was non found, then returns 0 (zero) and set @error on 2.
;
; Author(s):        G.Sandler a.k.a CreatoR
;===============================================================================

Func _FileFindText($sFile, $sFindText, $MatchWholeWordFlag = 0, $iCaseSense = 0)
    If Not StringInStr($sFile, "|") And Not FileExists($sFile) Then Return SetError(1, 0, -1)
 
    Local $aFilesArr = StringSplit($sFile, "|"), $hFile
    Local $iCount = 0, $iLineN = 0, $sCurrentLine, $iMatch = 1, $iStrPos, $aRetArr[1][1]
 
    For $i = 1 To UBound($aFilesArr)-1
        If FileExists($aFilesArr[$i]) Then
            $hFile = FileOpen($aFilesArr[$i], 0)
            While 1
                $sCurrentLine = FileReadLine($hFile)
                If @error = -1 Then ExitLoop
                $iLineN += 1
                If StringIsASCII($sFindText) Then
                    $iStrPos = StringInStr($sCurrentLine, $sFindText)
                Else
                    $sCurrentLine = StringLower($sCurrentLine)
                    $iStrPos = StringInStr($sCurrentLine, StringLower($sFindText))
                    $sFindText = StringLower($sFindText)
                EndIf
                If StringInStr($sCurrentLine, $sFindText, $iCaseSense) Then
                    If $MatchWholeWordFlag = 1 Then
                        If StringStripWS(StringMid($sCurrentLine, $iStrPos - 1, 1), 2) = "" And _
                            StringStripWS(StringMid($sCurrentLine, $iStrPos + StringLen($sFindText), 1), 2) = "" Then
                            $iMatch = 1
                        Else
                            $iMatch = 0
                        EndIf
                    EndIf
                    If $iMatch = 1 Then
                        $aRetArr[0][0] += 1
                        ReDim $aRetArr[$aRetArr[0][0]+1][4]
                        $aRetArr[$aRetArr[0][0]][0] = $aFilesArr[$i]
                        $aRetArr[$aRetArr[0][0]][1] = $sCurrentLine
                        $aRetArr[$aRetArr[0][0]][2] = $iLineN
                        $aRetArr[$aRetArr[0][0]][3] = $iStrPos
                    EndIf
                EndIf
            WEnd
            FileClose($hFile)
        EndIf
    Next
    If UBound($aRetArr) <= 1 Then Return SetError(2, 0, 0)
    Return $aRetArr
EndFunc


Всего записей: 3251 | Зарегистр. 01-04-2006 | Отправлено: 11:59 29-12-2007
   

На первую страницук этому сообщениюк последнему сообщению

Компьютерный форум Ru.Board » Компьютеры » Программы » AutoIT (Часть 1)
Widok (12-01-2009 14:47): лимит страниц. продолжаем здесь


Реклама на форуме Ru.Board.

Powered by Ikonboard "v2.1.7b" © 2000 Ikonboard.com
Modified by Ru.Board
© Ru.Board 2000-2020

BitCoin: 1NGG1chHtUvrtEqjeerQCKDMUi6S6CG4iC

Рейтинг.ru