Поиск строки или числа

[Fridx]

Не подскажите, можно ли (и как) сделать такую вот штуку:
Есть папка, в ней несколько файлов с любыми именами. Прога поочерёдно ищет внутри этих файлов строку (кусок текста)?

[VVitafresh]

Можно.

Код: Выделить всё

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set fldr = objfso.getFolder("c:\FolderName")
Set objFiles = fldr.files
For Each iFile in objFiles
   sName = iFile.name   
'Имя файла получили, открывай его и ищи что надо (Mid, InStr)   
...
Next


[Fridx]

О. Спасибо громадное.

[Fridx]

Я строку ищу таким путём:

...
For X = 1 To LOF(1)
Get #1, X, STROKA

If STROKA = MyText Then
Itog = Itog & " " & STROKA
End If

Next X
...

MyText - то, что ищу. Файл открыт Бинари доступом. Структура его неизвестна. Но если файл около мегабайта, то поиск ооооочень затягивается... Может есть способ какой другой?

[Viper]

А бинарный то доступ зачем? Открывай его как текст, считывай содержимое в строковую переменную и ищи нужную строку уже в ней.
Или СТРОКА это не строка, а некая структура?

[Amed]

Надо считывать весь файл одним махом в переменную String, и уже в ней искать.

Код: Выделить всё

Dim t As String, ff as integer
ff=freefile
Open "c:\1.txt" For Input As #ff
t = Input(LOF(ff), #ff)
Close #ff

[Fridx]

Хм... Это всё ясно. А вот найти типа данных Single таким образом не получается

[Viper]

Повторяю, что ищем то? Вроде речь о строке шла?

[Fridx]

Да. Но теперь надо искать в файле определённый Single (например 1254,4). Причём он может быть в любом месте файла.

можно так конечно, как писал:

For X = 1 To LOF(1)
Get #1, X, CH_Single

If STROKA = MyText Then
Itog = Itog & " " & CH_Single
End If

Next X

но так долго очень

[Amed]

Ничто не мешает перевести сингл в строку и искать ее.

[Fridx]

Что прямо так - CStr (string)???

[Viper]

Вопрос номер раз: у тебя файл текстовый или двоичный?
Ну а насчет перевода Single в строку:

Код: Выделить всё


Dim sng As Single
sng = 12345.678
Dim s As String
s = CStr(sng)
's = "12345.678"


[Amed]

Что прямо так - CStr (string)???

CStr(single)

Вопрос номер раз: у тебя файл текстовый или двоичный?

А файл может быть текстовым или двоичным?

[Viper]

"Amed

Вопрос номер раз: у тебя файл текстовый или двоичный?

А файл может быть текстовым или двоичным?

Сорри! Действительно глупость спросил... в 7.10 утра то...

Сформулируем по другому. В каком виде в файле содержатся числа? Если в виде строкового представления, то преобразовываем в строку как уже сказано и показано выше

[Fridx]

В файле данные в виде НЕ " строкового представления". Т.е. каждое чмсло занимает 4 байта, т.к. Single.

[Amed]

Какой вообще формат файла?

[Fridx]

*.fef - неизвестный никому, т.к. формат "своей" пооги.

[Amed]

Но тебе он известен? Если неизвестен, то либо:
а) узнавать
б) распрощаться с надеждой найти значение

[Fridx]

да вопрос то такой:

Я ищу значение таким способом.

Код: Выделить всё

For X = 1 To LOF(1)
Get #1, X, CH_Single

If STROKA = MyText Then
Itog = Itog & " " & CH_Single
End If

Next X

Ищется оно нормально, но медленно. Можно ли как то ускорить?

[tyomitch]

Можно в 4 раза, если читать с шагом 4.

[Fridx]

так неизвестно где именно может быть число

[Amed]

Так какие данные в файле записаны? Только числа single? Тогда см. пост tyomitch.

[Fridx]

Так я ж ответил - тип данных Single. Положение их неизвестно. Например число может находиться и на 500-м байте от начала, и на 501-м. Так какой тут может быть шаг 4??

[vvs_adm]

Ну тогда как ты вообще отличишь число от других данных?
Вот к примеру как стринг - "vvs@", а как single уже 5,279257E-17

[Fridx]

Вообще "vvs@" как single это 3.8041053...
ну это ладно. КАК же перевести в ВБ из 3.8041053 в vvs@??? Т.е. чтобы вот в одно поле я ввёл 3.8041053, а в другом появилось бы vvs@.

[GSerg]

copymemory, strconv(vbunicode)

[Fridx]

Подробнее можно... что-то я о таком не в книге своей не виднел, не слышал у кого-либо...

[GSerg]

http://bbs.vbstreets.ru/viewtopic.php?t=11721

[tyomitch]

Вообще "vvs@" как single это 3.8041053...
ну это ладно. КАК же перевести в ВБ из 3.8041053 в vvs@??? Т.е. чтобы вот в одно поле я ввёл 3.8041053, а в другом появилось бы vvs@.

Код: Выделить всё

Option Explicit
Private Declare Sub CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Destination As Any, Source As Any, ByVal Length As Long)

Private Sub ОдноПоле_Change()
Dim s As Single: s = ОдноПоле
Dim t As String: t = "1234"
CopyMemory ByVal t, s, 4
ДругоеПоле = t
End Sub


[Fridx]

Спасибо. Тут API задействовано, а с ним только начал "знакомиться" так что вот туплю пока