Evgenych
Joined: 25 Jan 2005 Posts: 53
|
(Separately) Posted: Sun Feb 12, 2006 12:07 Post subject: [WDX Plugin Request] поиск строки в бинарном файле |
|
|
В некотором двоичном файле есть строка
Code: | {"1","Бухгалтерский учет, редакция 4.х","7.70.ххх"... |
или строка
Code: | {"1","Упрощенная система налогообложения, ред. 1.х","7.70.ххх"... |
или строка
Code: | {"1","Торговля+Склад, редакция 9.х","7.70.ххх"... |
где х - любая цифра.
Требуется чтобы в колонке показывалась эта строка.
Пробовал с помощью script.wdx - оооочень долго
Code: |
Dim arrFileLines()
i = 0
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.OpenTextFile("1cv7.md", 1)
Do Until objFile.AtEndOfStream
Redim Preserve arrFileLines(i)
arrFileLines(i) = objFile.ReadLine
i = i + 1
Loop
objFile.Close
For l = Ubound(arrFileLines) to LBound(arrFileLines) Step -1
if InStr(arrFileLines(l), "7.70.145") > 0 then Wscript.Echo arrFileLines(l)
Next
|
|
|