Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > VB6 > проблема с функцией замены Replace, нужна помощь

Автор: PhantomM 9.3.2012, 17:20

Приветствую мастера!
проблемы с функцией замены Replace, задача сравнить два списка handle окон
и выявить новые (запущенное между заполнениями списков)
Я решил действовать через функцию Replace заменяя все совпадающие значения на ""
при проверке кода всё работает нормально до момента передачи полученных значений
из переменной в текстовое поле. я предположил что функция Replace записывает результат
как массив и передаёт txt только первое значение, но все мои попытки работать
с переменной как с массивом тоже ничего не дали.....
И ещё почему то функция Replace не заменяет всё, если запустить сравнение
без запуска программ она всёравно находит новые окна....
Мне очень важна эта функция так как в ближайшем будущем надо будет научить программу
сравнивать на выявления и записи лишних строк из двух огромных файлов до 50 мб.
Я тут написал упрощённый код посмотрите пожалуйста в чём может быть ошибка?
А вот пример с моими комментариями http://zalil.ru/32830586
Спасибо, Максим.

Вот код

Код


Private Sub Command1_Click()
'очищаем список
 Form1.List1.Clear
 'запускаем процедуру GetTaskList с индексом 1 тоесть на заполнение листа
 GetTaskList 1
End Sub

Private Sub Command2_Click()
'
'Dim mrstr1 As String
'Запускаем программы
Shell "notepad.exe"
'запускаем процедуру GetTaskList с индексом 0 тоесть на заполнение текстового поля
GetTaskList 0
'объявляем переменную счётчика
'! Short variable name: sh
'! NameCheck: sh - Valid: <sh>%, i<sh>
Dim sh As Integer
'переменная счётчика
Dim lngCounter As Long
'Запускаем цикл for для сравнения списков объектов (до и после запуска программы)
For lngCounter = 0 To List1.ListCount - 1
'задаём нашему счетчику пунктов листа значение счетчика цикла
'тем самым переходим к новому пункту листа
sh = Int(lngCounter)
'удаляем из переменной заголовок объекта если он присутствует
'в списке и заменяем на h (что бы видеть замены)
listsorte = Replace(listsorte, List1.List(sh), "h")
'mrstr1 = listsorte
'стазу записываем результат в текстовое поле
'????????????????????????????????????????????????????????????????????????
'Вот тут вопрос почему то наше текстовое поле получает в результате только
'последнее значение переменной listsorte. Единственное что я предположил
'это то что функция Replace записывает результат как массив и передаёт
'txt  только первое значение, но все мои попытки работать с переменной как с
'массивом тоже ничего не дали.....
'B ещё почему то функция Replace не заменяет всё, если запустить сравнение
'без запуска программ она всёравно находит новые окна....
Text1.Text = listsorte
'????????????????????????????????????????????????????????????????????????
'продолжаем цикл до конца
Next lngCounter

Модуль:

Код


Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
 Private Declare Function GetWindowText Lib "user32" Alias "GetWindowTextA" (ByVal hwnd As Long, ByVal lpString As String, ByVal cch As Long) As Long
 Private Declare Function GetWindowTextLength Lib "user32" Alias "GetWindowTextLengthA" (ByVal hwnd As Long) As Long
 Private Const GW_HWNDFIRST = 0
 Private Const GW_HWNDNEXT = 2
 Private CurrWnd As String
 Private ListItem As String
 Private Length As String
 Public listsorte As String
  Public Sub GetTaskList(perem0List1 As Integer)
'получаем количество объектов
 CurrWnd = GetWindow(Form1.hwnd, GW_HWNDFIRST)
 'запускаем цикл пока объекты не кончатся
 Do While CurrWnd <> 0
 'получаем длину заголовка окна
 Length = GetWindowTextLength(CurrWnd)
 '
 ListItem = Space(Length + 1)
 
 Length = GetWindowText(CurrWnd, ListItem, Length + 1)
 'если заголовок объекта = "" то ничего не делаем
 'и переходим к следующему пункту цикла
 If Length <> 0 Then
 'если текст всётаки есть
 ' проверяем индекс переданный процедуре
       'если индекс равен 1 тогда
       If perem0List1 = 1 Then
       'добавляем заголовок объекта в лист
       Form1.List1.AddItem ListItem
           'если индекс равен 0 тогда
          ElseIf perem0List1 = 0 Then
          'добавляем заголовок объекта в переменную listsorte
           listsorte = listsorte & ListItem '& "\?"
            End If
 End If
 'переходим ко второму окну
 CurrWnd = GetWindow(CurrWnd, GW_HWNDNEXT)
 'DoEvents
' повторяем цикл
 Loop
 End Sub

Автор: Akina 9.3.2012, 19:34

Цитата(PhantomM @ 9.3.2012, 18:20

)

Я решил действовать через функцию Replace заменяя все совпадающие значения на ""

Напрасно.
Разумнее было набить два массива, после чего выполнить их сортировку и поэлементное двухкурсорное сравнение.

Цитата(PhantomM @ 9.3.2012, 18:20

)

я предположил что функция Replace записывает результат
как массив

Разумнее было просто почитать справку.
http://msdn.microsoft.com/en-us/library/aa241892(v=vs.60).aspx

Автор: PhantomM 9.3.2012, 20:04

Цитата

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

Цитата

>>я предположил что функция Replace записывает результат
>>как массив
Разумнее было просто почитать справку.
http://msdn.microsoft.com/en-us/library/aa...2(v=vs.60).aspx

Конечно разумнее, но я думал что форумы существуют для того что бы помочь друг другу или указать на ошибки, я конечно почитаю справку ещё раз, но поидее если человек спрашивает значит он в тупике, и наверно читал и справки и статьи...

Но всёравно ОГРОМНОЕ СПАСИБО, вы единственный кто хоть что то написал.
С уважением Максим

Автор: Akina 10.3.2012, 20:04

Цитата(PhantomM @ 9.3.2012, 21:04

)

наверно читал и справки и статьи...

И, прочитав, что Replace возвращает строку, всё-таки начинает делать напрочь не соответствующие этому предположения? а вот не верю...

Автор: PhantomM 11.3.2012, 17:57

Цитата

А что мне остаётся думать? Я знаю  что она должна передавать строку.. Но почему передаётся  только первое значение строки????
Тоесть при отладке функция имеет конечное значение, например "Корова   кошка верблюд       велосепед" в текстовом поле получаем
"Корова" и всё, хоть убейся!!! И никто объяснить в чём дело не может... Ни на одном форуме.... Если по логике, такие результаты могут быть  только в массивах... Я это и "ПРЕДПОЛОЖИЛ" Я же не могу всего знать, думал может чего упустил. Но никто не знает, видимо и мне не судьба.
Спасибо за ответ, с уважением Максим.

Автор: Akina 11.3.2012, 18:03

Цитата(PhantomM @ 11.3.2012, 18:57

)

при отладке функция имеет конечное значение, например "Корова кошка верблюд велосепед" в текстовом поле получаем
"Корова" и всё, хоть убейся!!!

А символов перевода строки там, в строковой переменной, не завалялось? покажите debug.print того стринга, который передаёте в функцию, и результата её работы...

Автор: PhantomM 11.3.2012, 18:23

Цитата

А символов перевода строки там, в строковой переменной, не завалялось? покажите debug.print того стринга, который передаёте в функцию, и результата её работы..

Я тоже об этом подумал, поэтому в примере попробовал передавать значения в текст бокс с мультилайн я думаю что при символах перевода значения просто напечатались бы на новой сороке. debug.print я так понимаю это скрины процесса, если я правильно понял сейчас сделаю.

Автор: PhantomM 11.3.2012, 19:04

Вот скрины:
1 - это значение переменной (текстовой) listsorte полученые из функции "listsorte= Replace(listsorte, List1.List(sh), "h")"
Я тут что бы мне было нагляднее вместо "" поставил "h" что бы было видно замены.
p\s присвоение происходит прямо во время цикла......
http://s1.ipicture.ru/
2- переедаем значение сразу в текст значение текстового поля, вот тут мы и видим только одну "h" хотя в это же время istsorte содержит все свои значения как и раньше:
http://s1.ipicture.ru/
3 - результат выполнения самой программы:
http://s1.ipicture.ru/

Автор: Akina 12.3.2012, 10:07

Цитата(PhantomM @ 11.3.2012, 19:23

)

debug.print я так понимаю это скрины процесса

Надо использовать поиск по встроенной справке и читать эту самую справку, а не изобретать собственное понимание.

Автор: PhantomM 12.3.2012, 17:49

Нет у меня родной справки vb, и честно сказать никогда небыло нужды в debug.print, но всегда приятно узнать что то новое smile

Прошу прошения, исправил скрин ниже:

Автор: Akina 13.3.2012, 07:38

Цитата(PhantomM @ 12.3.2012, 18:49

)

Нет у меня родной справки vb

http://msdn.microsoft.com/en-us/library/aa338032(v=VS.60).aspx?ppud=4

Цитата(PhantomM @ 12.3.2012, 18:49

)

вот debug.print

Многочисленные преобразования, которые выполняются при размещении поста, убивают его ценность.
Вместо debug.print всей переменной покажите ASC() первых 16 символов во всех трёх случаях:

Код


for i = 1 to 16: debug.print asc(mid(variable,i,1)); : next i

Автор: PhantomM 13.3.2012, 17:12

коды символов до обработки функцией
77  83  67  84  70  73  77  69  32  85  73  68  101  102  97  117
результат замены на символ h- 104
118  108  99  0  104  0  104  0  118  108  99  0  104  0  104  0
значение текстового поля
118  108  99

Ну причину благодаря вам мы вроде нашли, если не ошибаюсь "0" это конец строки,
но всётаки этот символ вставляет функция Replace, он появляется исключительно
после обработки переменной... Но почему она так делает?

Автор: Akina 13.3.2012, 17:16

Цитата(PhantomM @ 13.3.2012, 18:12

)

коды символов до обработки функцией

Вот этого дела - побольше... чтобы было захвачено минимум 2 строки целиком.

Автор: PhantomM 14.3.2012, 09:32

Цитата

Вот этого дела - побольше... чтобы было захвачено минимум 2 строки целиком.

77 83 67 84 70 73 77 69 32 85 73 68 101 102 97 117 108 116 32 73 77 69 77 83 67 84 70 73 77 69 32 85 73 68 101 102 97 117 108 116 32 73 77 69 193 224 235 224 225 238 235 234 224 80 104 97 110 116 111 109 77 57 57 57 64 115 105 112 110 101

Но вроде ничего странного не заметил.

Автор: Akina 14.3.2012, 11:00

Цитата(PhantomM @ 13.3.2012, 18:12

)

причину благодаря вам мы вроде нашли, если не ошибаюсь "0" это конец строки,
но всётаки этот символ вставляет функция Replace, он появляется исключительно
после обработки переменной... Но почему она так делает?

Тваюмать!
А то что у тебя одна хрень - это листбокс, а вторая текстбокс - это ничего?
CHR(0) - это разделитель элементов листбокса. И они имеют место быть там изначально, Replace тут никаким боком, не надо на функцию гнать.
Так что либо замени текстбокс на другой листбокс, либо перед запихиванием результата в текстбокс замени CHR(0) на VBNewLine.

Автор: PhantomM 14.3.2012, 18:38

Цитата

А то что у тебя одна хрень - это листбокс, а вторая текстбокс - это ничего?

блин, ну надо же было так тупануть.... smile

Всё понял, дальше разбирусь, спасибо за помощь.. кроме вас кстати так никто и не понял что там не так. отличный форум. с уважением Максим.