HiAsm
HiAsm
Вверх ↑
ФорумыПомощь по пакетуПоиск файлов в папке ← Ctrl1Ctrl →
Этот топик читают: Гость
Ответов: 293
Рейтинг: 5
#1: 2026-01-13 04:37:44 ЛС | профиль | цитата
Добрый день.Не могу разобраться как сделать поиск файлов в папке.Даже мыслей нет.
карма: 0

0
Ответов: 1008
Рейтинг: 209
#2: 2026-01-13 04:58:45 ЛС | профиль | цитата
Udokanec писал(а):
Добрый день.Не могу разобраться как сделать поиск файлов в папке.Даже мыслей нет.


Add(MainForm,2953706,147,147)
{
 link(onCreate,7309708:doSearch,[])
}
Add(FileSearch,7309708,210,161)
{
 Ext="**.vbs"
 link(onSearch,6423652:doAdd,[])
 link(Dir,10283280:WindowsDir,[])
}
Add(Dir,10283280,189,105)
{
 Point(WindowsDir)
}
Add(Memo,6423652,273,161)
{
 Left=75
 Top=45
 Width=280
 Height=200
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
карма: 20

0
Ответов: 293
Рейтинг: 5
#3: 2026-01-13 07:56:17 ЛС | профиль | цитата
Немного не так сформулировал вопрос.Надо найти определенный файл Txt в папке.Там около 4000 файлов.По маске
карма: 0

0
Ответов: 1008
Рейтинг: 209
#4: 2026-01-13 12:17:02 ЛС | профиль | цитата
Udokanec писал(а):
Немного не так сформулировал вопрос.Надо найти определенный файл Txt в папке.Там около 4000 файлов.По маске


Add(Label,16319298,91,63)
{
 Width=627
 Height=40
 Align=2
 Caption=""
 AutoSize=1
}
Add(MainForm,15255170,91,112)
{
 Width=643
 Height=420
}
Add(FileSearch,7309708,210,112)
{
 Ext="*.txt"
 link(onSearch,6423652:doAdd,[])
 link(onEndSearch,5208928:doMessage,[(277,125)(277,167)])
 link(Ext,1173850:Text,[])
 link(Dir,5320749:Text,[(223,96)(265,96)])
}
Add(Memo,6423652,287,112)
{
 Top=40
 Width=627
 Height=341
 Align=5
 Font=[Lucida Console,12,0,0,204]
 Antialiased=1
 ScrollBars=3
}
Add(Edit,1173850,210,56)
{
 Left=15
 Top=10
 Width=105
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="font*.txt"
}
Add(Button,2387793,154,112)
{
 Left=540
 Top=10
 Width=60
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Caption="Поиск"
 link(onClick,7309708:doSearch,[])
}
Add(Edit,5320749,259,56)
{
 Left=175
 Top=10
 Width=260
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="c:\Windows\"
}
Add(Message,5208928,287,161)
{
 Message="Поиск завершён"
}
карма: 20

0
Ответов: 293
Рейтинг: 5
#5: 2026-01-13 13:29:16 ЛС | профиль | цитата
Ищет но только по полному имени файла.А как сделать что бы искало по частичному имени.
Например Полное @Acid_RT_com.adpog.diary
Частичное com.adpog.diary

Редактировалось 1 раз(а), последний 2026-01-14 06:39:35
карма: 0

0
Ответов: 1008
Рейтинг: 209
#6: 2026-01-14 16:38:15 ЛС | профиль | цитата
Udokanec писал(а):
Ищет но только по полному имени файла.А как сделать что бы искало по частичному имени.

Я сделал пример с поискомфайлов по маске и у меня всё находит.
из документации...
Маска (* - любые символы, ? - один любой символ, # - одна любая цифра)

Возможно, у тебя неправильный шаблон для поиска.
карма: 20

0
Ответов: 293
Рейтинг: 5
#7: 2026-01-27 03:11:49 ЛС | профиль | цитата
Блин уже все перепробовал.Не ищет по неполному имени.Маску всяко разно делал.Как сделать шаблон.
Add(MainForm,15255170,350,259)
{
Width=812
Height=557
}
Add(FileSearch,7309708,469,259)
{
Dir="C:\Users\Andrey\Desktop\CustomPatches"
link(onSearch,1753085:doEvent1,[])
link(Ext,1173850:Text,[])
}
Add(Edit,1173850,469,203)
{
Left=15
Top=10
Width=425
Height=25
Font=[MS Sans Serif,12,0,0,1]
Text="@Acid_RT_com.adpog.diary.txt"
}
Add(Button,2387793,413,259)
{
Left=725
Top=10
Width=60
Height=25
Font=[MS Sans Serif,12,0,0,1]
Caption="Поиск"
link(onClick,7309708:doSearch,[])
}
Add(Memo,9841189,525,343)
{
Left=35
Top=75
Width=750
Height=120
ScrollBars=3
Point(doLoad)
}
Add(Hub,1753085,511,259)
{
link(onEvent2,9841189:doAdd,[(537,272)(537,310)(513,310)(513,349)])
}

карма: 0

0
Ответов: 1008
Рейтинг: 209
#8: 2026-01-27 14:02:18 ЛС | профиль | цитата
Udokanec писал(а):
Блин уже все перепробовал.Не ищет по неполному имени.Маску всяко разно делал.Как сделать шаблон

Всё он ищет. Почему у тебя не получается, я не знаю.
Вот тебе ещё вариант 

Add(MainForm,15255170,273,133)
{
 Width=812
 Height=557
}
Add(Edit,1173850,406,77)
{
 Left=15
 Top=10
 Width=425
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="c:\Windows"
}
Add(Button,2387793,322,133)
{
 Left=725
 Top=10
 Width=60
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Caption="Поиск"
 link(onClick,10074103:doEvent1,[])
}
Add(Memo,9841189,490,140)
{
 Left=15
 Top=85
 Width=750
 Height=120
 ScrollBars=3
 Point(doLoad)
}
Add(VBJScript,14221332,406,140)
{
 WorkPoints=#6:doWork|
 EventPoints=#8:onSearch|7:onError|
 DataPoints=#10:folderPath|8:fileMask|0:|
 Script=#22:Sub doWork(Data,Index)|53:  Set objShellApp = CreateObject("Shell.Application")|55:  Set objFolder = objShellApp.NameSpace(sys.folderPath)|40:  Set objFolderItems = objFolder.Items()|44:  objFolderItems.Filter 64+128, sys.fileMask|33:  For Each file in objFolderItems|23:      sys.onSearch file|6:  Next|7:End Sub|
 UseName=0
 link(folderPath,1173850:Text,[])
 link(fileMask,8296305:Text,[(419,117)(454,117)])
 link(onSearch,1782009:doWork2,[])
 link(onError,1782009:doWork3,[(459,153)])
}
Add(Edit,8296305,448,74)
{
 Left=15
 Top=45
 Width=425
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="*.exe"
}
Add(HubEx,1782009,455,140)
{
 link(onEvent,9841189:doAdd,[])
}
Add(Hub,10074103,371,133)
{
 link(onEvent1,9841189:doClear,[(466,139)(466,153)])
 link(onEvent2,14221332:doWork,[])
}
карма: 20

0
Ответов: 293
Рейтинг: 5
#9: 2026-01-27 15:45:56 ЛС | профиль | цитата
Вы не правильно меня поняли.Он находит все файлы в папке.Если я указываю полное имя файла например @Acid_RT_com.adpog.diary.txt он его то же находит.
Но если я указываю в поиске не полное имя com.adpog.diary.txt ничего не находит

Редактировалось 1 раз(а), последний 2026-01-27 15:47:17
карма: 0

0
Ответов: 1008
Рейтинг: 209
#10: 2026-01-27 16:20:10 ЛС | профиль | цитата
Udokanec писал(а):
Он находит все файлы в папке.Если я указываю полное имя файла например @Acid_RT_com.adpog.diary.txt он его то же находит.
Но если я указываю в поиске не полное имя com.adpog.diary.txt ничего не находи



Да всё он находит 

Add(MainForm,15255170,119,126)
{
 Width=812
 Height=557
}
Add(FileSearch,7309708,238,126)
{
 Dir="C:\Users\Andrey\Desktop\CustomPatches"
 link(onSearch,1753085:doEvent1,[])
 link(Ext,1173850:Text,[])
}
Add(Edit,1173850,238,70)
{
 Left=15
 Top=10
 Width=425
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Text="*com.adpog.diary.txt"
}
Add(Button,2387793,182,126)
{
 Left=725
 Top=10
 Width=60
 Height=25
 Font=[MS Sans Serif,12,0,0,1]
 Caption="Поиск"
 link(onClick,7309708:doSearch,[])
}
Add(Memo,9841189,343,133)
{
 Left=35
 Top=75
 Width=750
 Height=120
 ScrollBars=3
 Point(doLoad)
}
Add(Hub,1753085,280,126)
{
 link(onEvent2,9841189:doAdd,[])
}


--- Добавлено в 2026-01-27 16:25:30

Ещё раз повторю
Маска (* - любые символы, ? - один любой символ, # - одна любая цифра)

Редактировалось 1 раз(а), последний 2026-01-27 16:25:30
карма: 20

0
Ответов: 293
Рейтинг: 5
#11: 2026-01-28 02:05:39 ЛС | профиль | цитата
Посыпаю голову пеплом.Простите меня тупорылого.Спасибо
карма: 0

0
11
ФорумыПомощь по пакетуПоиск файлов в папке ← Ctrl1Ctrl →
Сообщение
...
Прикрепленные файлы
(файлы не залиты)
HiAsm Studio 2003 - 2025
Пользовательское соглашение | support@hiasm.com
Яндекс.Метрика