Печать

[_Lexa98_ [?]]

Есть файл в котором написано:

Код: [Выделить]

-----file.exe-----
thnboisuvuhvmv25bv525tostuvnmostv52tv52v52mugtposuhjhjpotjijgh89k5uc0-5tv4v5c25vy5y409wvm584v5
-----file1.exe-----
c4hj937vt02nm15-8bv46bm4=90120=6bu71807v0m3n90bv6m,1c8974n8b71n03984vm81vm89031475v7v185v1nm9077v1m8907438957v871m807v5v091Как в
первый msgbox = file.exe

второй = thnboisuvuhvmv25bv525tostuvnmostv52tv52v52mugtposuhjhjpotjijgh89k5uc0-5tv4v5c25vy5y409wvm584v5
Nhtnbq

третий = file1.exe

четвертый = c4hj937vt02nm15-8bv46bm4=90120=6bu71807v0m3n90bv6m,1c8974n8b71n03984vm81vm89031475v7v185v1nm9077v1m8907438957v871m807v5v091

показать информацию?

[Zaramot [?]]

Если строки 4, то можно сделать так:

Код: AutoIt [Выделить]

For $i = 1 to 4
    MsgBox(0, '', StringRegExpReplace(FileReadLine(@ScriptDir & '\test.txt', $i), '-----', ''))
Next

Но если их больше или неизвестно сколько из - то так:

Код: AutoIt [Выделить]

#include <File.au3>

$Lines = _FileCountLines(@ScriptDir & '\test.txt')
For $i = 1 to $Lines
    MsgBox(0, '', StringRegExpReplace(FileReadLine(@ScriptDir & '\test.txt', $i), '-----', ''))
Next

[sngr [?]]

Код: AutoIt [Выделить]

For $i=1 To 4
    $file=FileReadLine(@ScriptDir & '\12',$i)
    If $i=1 or 3 Then
    MsgBox(0,'',StringReplace($file,'-',''))
    Else
    MsgBox(0,'',$file)
    EndIf
Next

[_Lexa98_ [?]]

Zaramot
sngr
Не почучается
Файл

[Zaramot [?]]

Есть файл в котором написано:

Код: [Выделить]

-----file.exe-----
thnboisuvuhvmv25bv525tostuvnmostv52tv52v52mugtposuhjhjpotjijgh89k5uc0-5tv4v5c25vy5y409wvm584v5
-----file1.exe-----
c4hj937vt02nm15-8bv46bm4=90120=6bu71807v0m3n90bv6m,1c8974n8b71n03984vm81vm89031475v7v185v1nm9077v1m8907438957v871m807v5v091

Там вообще таких строк нет.

[_Lexa98_ [?]]

Я показал примерно...

[madmasles [?]]

_Lexa98_  [?]

Я показал примерно.

Примерно с регулярными выражениями не получится. С Вашим текстом из первого поста:

Код: AutoIt [Выделить]

#include <Array.au3>

$sRead = FileRead(@ScriptDir & '\1.txt')

$aTemp = StringRegExp($sRead, '(?:-{5})(.*?)(?:-{5})', 3)
If @error Then Exit 100
Dim $aRes[UBound($aTemp) + 1][2] = [[UBound($aTemp)]]
For $i = 1 To $aRes[0][0]
    $aRes[$i][0] = $aTemp[$i - 1]
    $aRes[$i][1] = StringRegExpReplace($sRead, '(?s).*' & $aRes[$i][0] & '.*?\r?\n(.*?)(?:\r?\n|$).*', '$1')
    If @extended <> 1 Then $aRes[$i][1] = ''
Next
$sRead = ''
$aTemp = ''
_ArrayDisplay($aRes)

[_Lexa98_ [?]]

madmasles  [?]

с регулярными выражениями не получится

тоесть с
_Lexa98_  [?]

Не почучается Файл

неполучится

[madmasles [?]]

_Lexa98_,
А что в нем надо найти?

[_Lexa98_ [?]]

madmasles  [?]

А что в нем надо найти?

Описание в первом посте. значения все время меняются.

[madmasles [?]]

_Lexa98_  [?]

Описание в первом посте

Я не нашел в Вашем файле строк из первого поста. Или говорите точнее, что искать, или ищите сами.

[_Lexa98_ [?]]

madmasles
Нужно вывести отсюда:
1,2,3,4 - msgboxы
1)slui.exe (без -)
2)то что ниже -----slui.exe-----
3)taskmgr.exe (без -)
4)то что ниже -----taskmgr.exe-----

[_Lexa98_ [?]]

Помогите кто нить

[madmasles [?]]

_Lexa98_,

Код: AutoIt [Выделить]

#include <Array.au3>

$hFile = FileOpen(@ScriptDir & '\file.mif', 16)
$sRead = FileRead($hFile)
FileClose($hFile)
$sRead = Hex($sRead)
$sFirst = Hex(Binary('-'))
$sSecond = Hex(Binary(@CRLF))
$aTemp = StringRegExp($sRead, '(?:' & $sFirst & '){5}(.*?)(?:' & $sFirst & '){5}', 3)
If @error Then Exit 100
Dim $aRes[UBound($aTemp) + 1][2] = [[UBound($aTemp)]]
For $i = 1 To $aRes[0][0]
    $aRes[$i][0] = $aTemp[$i - 1]
    $aRes[$i][1] = StringRegExpReplace($sRead, '(?s).*' & $aRes[$i][0] & '.*?' & $sSecond & '(.*?)(?:' & $sSecond & '|$).*', '$1')
    If @extended <> 1 Then $aRes[$i][1] = ''
    $aRes[$i][0] = BinaryToString('0x' & $aRes[$i][0])
    $aRes[$i][1] = StringRegExpReplace(BinaryToString('0x' & $aRes[$i][1]), '(?i)[^a-z \.]', '')
Next
$sRead = ''
$aTemp = ''
$sFirst = ''
$sSecond = ''
_ArrayDisplay($aRes)

[_Lexa98_ [?]]

madmasles
Спасибо, но все равно немного не то получается.
Придумаю что нибудь другое
Будем считать что тема решена