[Devils0411]

Всем доброго времени суток. Подскажите пожалуйста, есть проект.
При запуске приложения, создается файл ShablonMail.txt в кодировке UTF8 и первой строкой `. Этот символ является флагом для поиска.
При заполнении полей: кому:, Копия:, Тема:, Текст сообщения: и нажатии кнопки Сохранить изменения. Все происходит прекрасно.
При выборе темы и нажатии кнопки Заполнить поля, тоже все прекрасно.
А вот когда корректирую поля Кому:, Копия, Текст сообщения при неизменности Темы и нажимаю Сохранить изменения, происходит запись в конец файла, а необходимо перезапись Кому: и Копия: в файле. Каким образом это можно сделать?

[lxa85]

Devils0411, сейчас переустанавливаю Ос, обовляюсь до 10. на неделе посмотрю

[Devils0411]

lxa85, спасибо. Буду ждать, если к тому моменту не найду способ
В принципе, как сделать чтение и запись в файл - знаю, а вот как сделать замену строки к сожалению нигде толком не нашел.

[Devils0411]

Еще один вопрос.
Есть функция:

Код:

    Public Function CountCc() As Integer

        Dim objAllUser, objCurUser, objUser As Object
        objCurUser = GetObject(CurentOUPathStr)
        If Mid(CurentOUPathStr, 11, 3) = "EWM" Then
            objAllUser = GetObject("LDAP://ou=Users," & CurentPathDim(6) & "," & CurentPathDim(5) & ",ou=bla,dc=bla,dc=bla,dc=bla")
        Else
            objAllUser = GetObject("LDAP://ou=EWM," & Mid(CurentOUPathStr, 8))
        End If

        For Each objUser In objCurUser
            If Not objUser.sAMAccountName Is Nothing Then
                CountCc += 1
            End If
        Next
        Return CountCc
    End Function

Она вызывается следующим кодом с последующим выводом количества пользователей в форме

Код:

cur = CountCc()
Me.Label5.Text = "Количество пользователей" & vbCrLf & "в текущем контейнере: " & cur

Перефразирую. Как в переменную objAllUser записать общее количество объектов "корневом" контейнере?
В данном случае, корневой контейнер - "LDAP://ou=Users," & CurentPathDim(6) & "," & CurentPathDim(5) & ",ou=bla,dc=bla,dc=bla,dc=bla"
т.е. нужно добавить фильтр (objectClass = user) к запросу GetObject("LDAP://ou=Users," & CurentPathDim(6) & "," & CurentPathDim(5) & ",ou=bla,dc=bla,dc=bla,dc=bla")

[Devils0411]

Еще одна задачка, которую не могу понять как решить. Есть CheckListBox, в котором два пункта с флажками. При выборе двух пунктов, как определить, какой пункт был выбран последним?

Код:

        Dim x As Integer
        Dim gchk, gchk1 As String
        Dim itemChecked As Object
        Const quote As String = """"
        For Each x In CheckedListBox1.CheckedIndices
            MessageBox.Show("Index#: " + x.ToString() + ", is checked. Checked state is:" + _
           CheckedListBox1.GetItemCheckState(x).ToString() + ".")
            gchk = CheckedListBox1.GetItemCheckState(0).ToString()
            gchk1 = CheckedListBox1.GetItemCheckState(1).ToString()
        Next

        For Each itemChecked In CheckedListBox1.CheckedItems

            ' Use the IndexOf method to get the index of an item.
            MessageBox.Show("Item with title: " + quote + itemChecked.ToString() + quote + _
                            ", is checked. Checked state is: " + _
                            CheckedListBox1.GetItemCheckState(CheckedListBox1.Items.IndexOf(itemChecked)).ToString() + ".")
        Next

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