Oшибка при передаче строки м\у процедурами, приходит пустая строка.

@mcleshiy · Регистрация: 05.05.2013

Студворк — интернет-сервис помощи студентам

Решил написать жалкое подобие утилиты, возникла ошибка при передаче строки м\у процедурами (приходит пустая строка, хотя оправлялась не пустая).
Подскажите, где ошибка. Или что делать?
Скрин и архив прилагаю

@locm · 09.10.2014, 12:46

На скрине не видно где передается строка.
Каким образом она передается?

@mcleshiy · 10.10.2014, 14:32 **[ТС]**

В общем, система такая. Есть файл pbi, в нем две процедуры поиска файлов. Одна из них ищет папку и запускает вторую процедуру для поиска в ней файлов и так пока не найден искомый файл или пока не закончатся все элементы в заданной директории поиска. Основной файл программы вызывает первую процедуру из подключаемого файла для поиска (ищу браузеры Опера, Хром и Мозилла). Если провести отладку (Debug founded$) в подключаемом файле и основном файле (там в переменные, соотв названию браузеров), то в результате в подключаемом файле отображаются все найденные браузеры, а при передаче через ProcedureReturn найденной строки в основной файл программы передается только одна (Находит Мозиллу, что и видно на скрине), остальные две возвращаются пустыми. Муторно объяснил, поэтому прошу просто скачать архив и глянуть самому, там от силы строк 200. Хотя сейчас уже побольше стало, я не решил эту проблему, занялся другим. Спасибо)

@Pro_grammer · 10.10.2014, 19:57

Да этот код в принципе работать не должен. Забит жестко путь
C:\Program Files (x86)\
У всех, у кого x86 система такого пути нет в принципе. У многих системная папка вообще не с:\
Нужно вычислять такие папки программно.
Я уже не говорю о ныне модных потрабельных программах, а именно браузерах, их таким способом вообще не определить.

@locm · 10.10.2014, 20:20

Сообщение от mcleshiy

Есть файл pbi, в нем две процедуры поиска файлов.

Имена файлов и процедур почему не называете?
Вопрос нужно задавать правильно. Тогда давно бы уже получили бы ответ.

@mcleshiy · 10.10.2014, 20:34 **[ТС]**

Я это все учел, но решил начать с простого. Сначала мне бы тут разобраться, а там уже подкорректировать можно будет.

Добавлено через 3 минуты

Имена файлов и процедур почему не
называете?
Вопрос нужно задавать правильно. Тогда
давно бы уже получили бы ответ.

Отвечаю с телефона, точное название не помню... Надо скачать архив, глянуть. Пару секунд...

Добавлено через 7 минут
Ага, в pbi файле две процедуры searchfile(path$, filename$) и search4file() с такими же параметрами. Первая ищет папки и запускает search4file() уже для поиска самих файлов, а конкретно filename$.
Так вот, процедура search4file(), если находит то, что ей сказали искать, возвращает в процедуру searchfile() строку с полным расположением искомого файла. А вторая, собственно, возвращает этот результат в основной файл. Такая вот ботва.

Добавлено через 1 минуту
Все передается через procedurereturn, естественно

@locm · 10.10.2014, 21:16

Только что проверил, строка возвращается.
Зачем использовать API если есть необходимые функции?

@Pro_grammer · 10.10.2014, 21:51

Сообщение от mcleshiy

Такая вот ботва.

Да, длинная ботва.

Проверил это

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Declare.s Search4File(path$, filename$)
Declare.s SearchFile(path$, filename$)
Procedure.s Search4File(path$, filename$)
  Mask.s="*.*"
  If Right(path$,1)<>"\" : Path$+"\":EndIf
  lpFindFileData.WIN32_FIND_DATA
  Recherche.s=Path$+Mask
  Handle.l = FindFirstFile_(Recherche, @lpFindFileData)
  If Handle <> #INVALID_HANDLE_VALUE
    Repeat
      Trouve.s=PeekS(@lpFindFileData\cFileName)
      If lpFindFileData\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY = #False
        If Trouve=filename$
          Trouve=path$+Trouve
          ProcedureReturn Trouve
        EndIf
      EndIf
    Until FindNextFile_(Handle, @lpFindFileData)= #False
    FindClose_(Handle)
  EndIf
EndProcedure
 
Procedure.s SearchFile(path$, filename$)
  If Right(path$,1)<>"\" : path$+"\":EndIf
  lpFindFileData.WIN32_FIND_DATA
  Recherche.s=path$+"*.*"
  Handle.l = FindFirstFile_(Recherche, @lpFindFileData)
  If Handle <> #INVALID_HANDLE_VALUE
    Repeat
      Trouve.s=PeekS(@lpFindFileData\cFileName)
      If lpFindFileData\dwFileAttributes & #FILE_ATTRIBUTE_DIRECTORY
        If Trouve <>"." And Trouve <>".."
          SearchFile(path$+Trouve, filename$)
          founded$=Search4File(path$+Trouve, filename$)
          If founded$<>""
            ProcedureReturn founded$
          EndIf
        EndIf
      EndIf
    Until FindNextFile_(Handle, @lpFindFileData)= #False
    FindClose_(Handle)
  EndIf
EndProcedure
 
Debug SearchFile("c:\Program Files\","firefox.exe" )

Работает, возвращает путь к первому найденному firefox. Но их в папке Program Files несколько есть, разные версии.
Попробовал короткий код, в интернетах много подобного. Ищет все версии firefox, и намного короче

PureBasic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
Procedure.s FindFiles(DirectoryName$, Filename$)
 Protected Directory = ExamineDirectory(#PB_Any, DirectoryName$, "*")
 If Directory
  While NextDirectoryEntry(Directory)
  Select DirectoryEntryType(Directory)
  Case #PB_DirectoryEntry_Directory
  If DirectoryEntryName(Directory) <> "." And DirectoryEntryName(Directory) <> ".."
  FindFiles(DirectoryName$+"\"+DirectoryEntryName(Directory),Filename$)
  EndIf
Case #PB_DirectoryEntry_File
  If FindString(DirectoryEntryName(Directory), Filename$)
    find$=DirectoryName$ +"\"+  DirectoryEntryName(Directory) 
    Debug find$
 EndIf 
  
  EndSelect
Wend
FinishDirectory(Directory)
EndIf
 
EndProcedure
 
FindFiles("с:\Program Files","firefox.exe")

По скорости на глаз одинаково. В чем смысл использовать API + 2 процедуры подряд?

@mcleshiy · 11.10.2014, 13:27 **[ТС]**

Сообщение от locm

Зачем использовать API

Практикуюсь

Добавлено через 2 часа 40 минут

Сообщение от Pro_grammer

Работает, возвращает путь к первому найденному firefox

Естественно к первому, сразу после передачи его местоположения процедура завершается и начинается посик следующего

@mcleshiy · 12.10.2014, 11:11 **[ТС]**

Ахахах, это баг какой-то. Со встроеными инструментами поиска файлов и папок тоже беда, так же возвращается пустая строка))
Что делать?

Новые блоги и статьи Все статьи Все блоги /
Инструменты COM: Сохранение данный из VARIANT в файл и загрузка из файла в VARIANT bedvit 28.01.2026 Сохранение базовых типов COM и массивов (одномерных или двухмерных) любой вложенности (деревья) в файл, с возможностью выбора алгоритмов сжатия и шифрования. Часть библиотеки BedvitCOM Использованы. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL_LoadPNG (без SDL3_image) 8Observer8 28.01.2026 Содержание блога SDL3 имеет собственные средства для загрузки и отображения PNG-файлов с альфа-каналом и базовой работы с ними. В этой инструкции используется функция SDL_LoadPNG(), которая. . .	Загрузка PNG с альфа-каналом на SDL3 для Android: с помощью SDL3_image 8Observer8 27.01.2026 Содержание блога SDL3_image - это библиотека для загрузки и работы с изображениями. Эта пошаговая инструкция покажет, как загрузить и вывести на экран смартфона картинку с альфа-каналом, то есть с. . .	влияние грибов на сукцессию anaschu 26.01.2026 Бифуркационные изменения массы гриба происходят тогда, когда мы уменьшаем массу компоста в 10 раз, а скорость прироста биомассы уменьшаем в три раза. Скорость прироста биомассы может уменьшаться за. . .
Воспроизведение звукового файла с помощью SDL3_mixer при касании экрана Android 8Observer8 26.01.2026 Содержание блога SDL3_mixer - это библиотека я для воспроизведения аудио. В отличие от инструкции по добавлению текста код по проигрыванию звука уже содержится в шаблоне примера. Нужно только. . .	Установка Android SDK, NDK, JDK, CMake и т.д. 8Observer8 25.01.2026 Содержание блога Перейдите по ссылке: https:/ / developer. android. com/ studio и в самом низу страницы кликните по архиву "commandlinetools-win-xxxxxx_latest. zip" Извлеките архив и вы увидите. . .	Вывод текста со шрифтом TTF на Android с помощью библиотеки SDL3_ttf 8Observer8 25.01.2026 Содержание блога Если у вас не установлены Android SDK, NDK, JDK, и т. д. то сделайте это по следующей инструкции: Установка Android SDK, NDK, JDK, CMake и т. д. Сборка примера Скачайте. . .	Использование SDL3-callbacks вместо функции main() на Android, Desktop и WebAssembly 8Observer8 24.01.2026 Содержание блога Если вы откроете примеры для начинающих на официальном репозитории SDL3 в папке: examples, то вы увидите, что все примеры используют следующие четыре обязательные функции, а. . .

@locm 6568 / 3195 / 335 Регистрация: 28.10.2011 Сообщений: 12,474 Записей в блоге: 7
	09.10.2014, 12:46
	На скрине не видно где передается строка. Каким образом она передается? 0

@mcleshiy 3 / 3 / 1 Регистрация: 05.05.2013 Сообщений: 143
	10.10.2014, 14:32 [ТС]
	В общем, система такая. Есть файл pbi, в нем две процедуры поиска файлов. Одна из них ищет папку и запускает вторую процедуру для поиска в ней файлов и так пока не найден искомый файл или пока не закончатся все элементы в заданной директории поиска. Основной файл программы вызывает первую процедуру из подключаемого файла для поиска (ищу браузеры Опера, Хром и Мозилла). Если провести отладку (Debug founded$) в подключаемом файле и основном файле (там в переменные, соотв названию браузеров), то в результате в подключаемом файле отображаются все найденные браузеры, а при передаче через ProcedureReturn найденной строки в основной файл программы передается только одна (Находит Мозиллу, что и видно на скрине), остальные две возвращаются пустыми. Муторно объяснил, поэтому прошу просто скачать архив и глянуть самому, там от силы строк 200. Хотя сейчас уже побольше стало, я не решил эту проблему, занялся другим. Спасибо) 0

@Pro_grammer 6807 / 2839 / 527 Регистрация: 24.04.2011 Сообщений: 5,308 Записей в блоге: 10
	10.10.2014, 19:57
	Да этот код в принципе работать не должен. Забит жестко путь C:\Program Files (x86)\ У всех, у кого x86 система такого пути нет в принципе. У многих системная папка вообще не с:\ Нужно вычислять такие папки программно. Я уже не говорю о ныне модных потрабельных программах, а именно браузерах, их таким способом вообще не определить. 0

@locm 6568 / 3195 / 335 Регистрация: 28.10.2011 Сообщений: 12,474 Записей в блоге: 7
	10.10.2014, 21:16
	Только что проверил, строка возвращается. Зачем использовать API если есть необходимые функции? 0

@mcleshiy 3 / 3 / 1 Регистрация: 05.05.2013 Сообщений: 143
	12.10.2014, 11:11 [ТС]
	Ахахах, это баг какой-то. Со встроеными инструментами поиска файлов и папок тоже беда, так же возвращается пустая строка)) Что делать? Миниатюры $Oшибка при передаче строки м\у процедурами, приходит пустая строка.$ 0