Visual Basic 2008

[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

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