Сначала сортировка из блокнота, а потом вывод...

[Павлуша]

Привет всем!
Трабла вот в чем:
есть лист-бокс, в который выводится содержимое блокнота, потом, при щелчке на какой-нибудь элемент лист-бокса, должно выводиться на лейбл описание этого элемента.
Описание хранится в другом блокноте.
Кто сможет, помогите реализовать. Желательно код и комменты
Заранее спасибо.

[Twister]

Описание хранится в другом блокноте

Это как? Насколько я понял ты говоришь про два файла, в N-ной сторчке первого храниться значение, а в N-ной второго храниться описание, так?
Тебе нужно считывать строчки из второго файла в массив, а при клике в ListBoxe выводить соответствующий элемент массива на Label...

[Twister]

выводится содержимое блокнота

Или все-таки работа не с файлами, а именно с блокнотом?

[Павлуша]

Описание хранится в другом блокноте

Это как? Насколько я понял ты говоришь про два файла, в N-ной сторчке первого храниться значение, а в N-ной второго храниться описание, так?
Тебе нужно считывать строчки из второго файла в массив, а при клике в ListBoxe выводить соответствующий элемент массива на Label...

Twister
Работа именно с блокнотами.
ты совершенно правильно понял. только вот так надо:
в N-ной сторчке первого блокнота храниться значение, а в N-ной второго блокнота храниться описание

[Twister]

Понял. Дома поколдую мал-мал, если что, потом код дам...

[Twister]

А что сам попробовать не хочешь?

[Павлуша]

Twister
жду... спасибо!

[Павлуша]

Twister
а сам не знаю как... недостаточно мозгов...
просто мне проще учиться, читая чужой код.

[Twister]

Ну вот смотри. Кидаешь на форму кнопку Command1 и текстовое поле txtHandle. Потом добавь следующий код:

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

Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Const WM_GETTEXT As Long = &HD
Const WM_GETTEXTLENGTH As Long = &HE
Const GW_CHILD As Long = 5
Const GW_HWNDNEXT As Long = 2
Dim bArr() As Byte, Strings() As String

Private Sub Command1_Click()
Dim hW As Long, i, i1, j As Integer
hW = Val(txtHandle)
hW = GetWindow(hW, GW_CHILD)
hW = GetWindow(hW, GW_HWNDNEXT)
ReDim bArr(SendMessage(hW, WM_GETTEXTLENGTH, 0, 0))
SendMessage hW, WM_GETTEXT, UBound(bArr) + 1, bArr(0)
ReDim Strings(1 To 1)
j = 0
For i = 0 To UBound(bArr)
    If bArr(i) = 13 Or bArr(i) = 0 Then
        ReDim Preserve Strings(1 To UBound(Strings) + 1)
        For i1 = j To i - 1
            Strings(UBound(Strings)) = Strings(UBound(Strings)) + Chr(bArr(i1))
        Next
        j = i + 2
    End If
Next
'Вывод результата
For i = 1 To UBound(Strings())
    MsgBox Strings(i)
Next
End Sub

В текстовое поле нужно ввести хэндл главного окна Блокнота. По нажатию на кнопку массив Strings заполниться строчками из блокнота. Думаю сделать твою задачу, имея этот код не составит труда...

[CORBA]

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

[Twister]

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

[Twister]

Вот, держи. Пофиксил баги:

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

Option Explicit
Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long
Private Declare Function GetWindow Lib "user32" (ByVal hwnd As Long, ByVal wCmd As Long) As Long
Private Declare Function GetClassName Lib "user32.dll" Alias "GetClassNameA" (ByVal hwnd As Long, ByVal lpClassName As String, ByVal nMaxCount As Long) As Long
Const WM_GETTEXT As Long = &HD
Const WM_GETTEXTLENGTH As Long = &HE
Const GW_CHILD As Long = 5
Const GW_HWNDNEXT As Long = 2
Dim bArr() As Byte, Strings() As String

Private Sub Command1_Click()
Dim hW As Long, i, i1, j, j1 As Integer, lpClassName As String * 256
hW = Val(txtHandle)
hW = GetWindow(hW, GW_CHILD)
GetClassName hW, lpClassName, 256
If Mid(lpClassName, 1, 4) <> "Edit" Then hW = GetWindow(hW, GW_HWNDNEXT)
ReDim bArr(SendMessage(hW, WM_GETTEXTLENGTH, 0, 0))
SendMessage hW, WM_GETTEXT, UBound(bArr) + 1, bArr(0)
If UBound(bArr) = 0 Then Exit Sub
ReDim Strings(1 To 1)
j = 0
For i = 0 To UBound(bArr)
    If bArr(i) = 13 Or bArr(i) = 0 Then
        For i1 = j To i - 1
            j1 = UBound(Strings)
            Strings(j1) = Strings(j1) + Chr(bArr(i1))
        Next
        If Not i = UBound(bArr) Then ReDim Preserve Strings(1 To UBound(Strings) + 1)
        j = i + 2
    End If
Next
'Вывод результата
For i = 1 To UBound(Strings())
    MsgBox Strings(i)
Next
End Sub

[Павлуша]

Спасибо!
Буду разбираться.!

[Twister]

Привет Максим!
слухай, код, который ты дал. не пашет вообще. может чего-то не догоняю. сможешь добавить к нему комменты? просто он ничего не делает... ну саавсем ничего...((

Гм... все прекрасно работает, я тестировал не раз. Скорее всего ты задаешь не верный хэндл. Повторяю - необходимо задавать хэндл главного окна Блокнота - другие текстовые редакторы имеют другую структуру дочерних окон. Можешь скачать мой WnD Viewerи посмотреть - Блокнот должен иметь всего два дочерних окна, Edit и StatusBar (точное название не помню)...

[Павлуша]

Twister
тогда обясни популярно, а что ж такое хендл главного окна блокнота.

я делал так: вписывал вот что "D:\results\VB\dict\means.txt"
может не туда вписывал?

[Kovu]

Павлуша
Ты вписывал в txtHandle вот то что ты сказал?

[Павлуша]

ну откровенно говоря да... а что? не туда? или не так.
ты имеешь ввиду вместо строк txtHandle надо вписывать? или еще куда-нибудь?[/code]

[Kovu]

Ну вообще туда вписывается хэндл окна, а это число. Можно получить через FindWindow.
Да и сам подумай, что вернет Val(txtHandle) если там нет чисел? Правильно 0.

[Twister]

Павлуша
Да. Хэндл (по другому дескриптор) окна ищется через FindWindow. Именно так тебе предстоит искать хэндлы блокнотов, когда будешь делать готовую программу.
Что вписать в txtHandle? Открой WinSpy или мой WnDViewer, воспользуйся ручным поиском - перетащи лупу на главное окно блокнота. Ты получишь число - хэндл. Именно его нужно вписать в это текстовое поле.

[Павлуша]

Twister
Господи... как все сложно
прям системное программирование...

[Kovu]

Павлуша
Да нет, всё достаточно просто

[Twister]

Павлуша, сообщи мне, разобрался ты или нет.