Вверх ↑
Этот топик читают: Гость
Ответов: 182
Рейтинг: 14
#1: 2015-06-18 13:45:31 ЛС | профиль | цитата
Подскажите пожалуйста, как найти файл с заданным названием.
Допустим имеются папка с двумя файлами: 1) "ТКВР-37 ст 15 по ГОСТ 1055-88 от 15.01.13" ;2) "ТКВР-39 ст 20 по ГОСТ 1055-88 от 15.01.13"
Когда ввожу 15, находит оба файла, а нужно конкретно: ТКВР-37 ст 15 по ГОСТ 1055-88 от 15.01.13
code_35874.txt
карма: 0

0
файлы: 1code_35874.txt [8.9KB] [3077]
Ответов: 2271
Рейтинг: 677
#2: 2015-06-18 13:59:15 ЛС | профиль | цитата
Как вариант воспользоваться StrMask:
code_35875.txt
карма: 11

0
файлы: 1code_35875.txt [1.5KB] [3051]
Ответов: 182
Рейтинг: 14
#3: 2015-06-18 14:12:10 ЛС | профиль | цитата
не открывает схему?
карма: 0

0
Ответов: 2271
Рейтинг: 677
#4: 2015-06-18 14:32:38 ЛС | профиль | цитата
Stalevar писал(а):
не открывает схему?
Если вы о своей схеме, то открывается. Если о моей, то тоже открывается.
карма: 11

0
Ответов: 182
Рейтинг: 14
#5: 2015-06-18 14:47:01 ЛС | профиль | цитата
sla8a писал(а):

Out of memory
code_35876.txt
------------ Дoбавленo в 14.47:
Иероглифы в коде. Может из за них?
Strings=#41:аАа‚аАТšаАТ’аА -37 аБТаБТ‚ 15 аАаŸаАаž аАТ“аАТžаАааАа‚ 1055-88 аАаžаБТ‚ 15.01.13|41:аАа‚аАТšаАТ’аА -39 аБТаБТ‚ 20 аАаŸаАаž аАТ“аАТžаАааАа‚ 1055-88 аАаžаБТ‚ 15.01.13|
карма: 0

0
файлы: 1code_35876.txt [1.6KB] [2903]
Ответов: 2271
Рейтинг: 677
#6: 2015-06-18 14:50:06 ЛС | профиль | цитата
Stalevar писал(а):
Out of memory

[offtop]В таком стиле на страниц 5 растянем.[/offtop]
------------ Дoбавленo в 14.50:
А раскладку клавиатуры поменяйте перед копированием и вставкой схемы на форум.
карма: 11

0
Ответов: 182
Рейтинг: 14
#7: 2015-06-18 15:12:16 ЛС | профиль | цитата
sla8a
Раскладку менял, все равно иероглифы.
Так и не понял куда прикрутить в мой пример StrMask
карма: 0

0
Ответов: 2271
Рейтинг: 677
#8: 2015-06-18 15:23:14 ЛС | профиль | цитата
Вместо Position code_35877.txt
карма: 11

0
файлы: 1code_35877.txt [2.3KB] [3026]
Ответов: 182
Рейтинг: 14
#9: 2015-06-18 16:18:35 ЛС | профиль | цитата
Mask="*бб‚ %1 *"понять не могу, что за маска, закорючки.
карма: 0

0
Ответов: 8928
Рейтинг: 823
#10: 2015-06-18 16:26:45 ЛС | профиль | цитата
Stalevar, перед тем, как нажать "копировать" нажмите правой кнопкой --> Кодировка --> Юникод UTF8, и кракозябры волшебным образом превратятся в читаемый текст
карма: 19

0
Ответов: 182
Рейтинг: 14
#11: 2015-06-18 17:08:14 ЛС | профиль | цитата
Леонид спасибо, с кодировкой.
Поменял код, теперь не находит вообще не чего
карма: 0

0
Ответов: 2271
Рейтинг: 677
#12: 2015-06-18 17:19:26 ЛС | профиль | цитата
Stalevar писал(а):
Поменял код, теперь не находит вообще не чего
Посмотреть то хоть можно?
Stalevar, обычно если пишите что "не работает", то желательно пример того что не работает.
карма: 11

0
Ответов: 182
Рейтинг: 14
#13: 2015-06-18 17:37:53 ЛС | профиль | цитата
code_35878.txt
карма: 0

0
файлы: 1code_35878.txt [9.2KB] [267]
Ответов: 2271
Рейтинг: 677
#14: 2015-06-18 17:52:13 ЛС | профиль | цитата
Все работает: code_35879.txt
карма: 11

1
файлы: 1code_35879.txt [1.5KB] [347]
Голосовали:Stalevar
Ответов: 16884
Рейтинг: 1239
#15: 2015-06-19 13:07:58 ЛС | профиль | цитата
Никогда не проявлял любви к ......... .
Объясните мне : нахрена при получении следующего имени файла генерить маску (ту же !) и загружать ее в компонент StrMask по новой ?
Add(Edit,37612,266,189)
{
Left=59
Top=8
Width=461
Height=26
Font=[Arial,8,0,0,1]
WinStyle=4
Layout="editors"
SizeSp=0
Text="D:\test"
}
Add(Edit,92259,490,168)
{
Left=59
Top=39
Width=459
Height=26
Font=[Arial,12,1,0,1]
Layout="editors"
WidthScale=10
HeightScale=30
Text="15"
}
Add(Browse,5408233,224,189)
{
Title="Выбор папки для поиска"
Point(doDefaultFolder)
link(onBrowse,37612:doText,[])
}
Add(ListBox,1169110,546,266)
{
Left=60
Top=70
Width=460
Height=225
link(Str,5734442:Value,[(552,254)(592,254)(592,320)(377,320)])
}
Add(Button,6072246,175,189)
{
Top=10
Caption="dir"
link(onClick,5408233:doBrowse,[])
}
Add(Button,13814461,224,147)
{
Top=40
Caption="find"
link(onClick,14523755:doEvent1,[])
}
Add(FileSearch,9959232,322,266)
{
link(onSearch,5734442:doValue,[])
link(Dir,37612:Text,[(335,244)(272,244)])
}
Add(Hub,14523755,273,147)
{
OutCount=3
link(onEvent1,1169110:doClear,[(533,153)(533,279)])
link(onEvent2,11003245:doStrCat,[(385,160)(385,223)])
link(onEvent3,9959232:doSearch,[(305,167)(305,272)])
}
Add(MainForm,47236,175,147)
{
Left=312
Top=284
Width=531
Height=333
Color=-16777206
Caption="VSV Поиск"
BorderStyle=1
TransparentColor=10987431
Position=1
}
Add(StrCat,11003245,483,217)
{
Str1=" ст "
link(Str2,92259:Text,[])
}
Add(Position,2190966,476,266)
{
link(onSearch,1169110:doAdd,[])
link(Target,11003245:Result,[])
}
Add(StrCase,3000232,420,266)
{
link(onModify,2190966:doSearch,[])
}
Add(Memory,5734442,371,266)
{
link(onData,3000232:doModify,[])
}
Про MultiReplace даже спросить неудобно.
карма: 25
Немного терпения! Дежурный экстрасенс скоро свяжется с Вами!
1
Голосовали:sla8a
Сообщение
...
Прикрепленные файлы
(файлы не залиты)