Arkadaşlar Vb.net ile metin belgesi içine yazı kaydediyorum fakat Program içindeki TextBoxa mehmet yazdıgımda içinde mehmet geçen satırı silmesini istiyorum çok araştırdım fakat her hangi bişey bulamadım.. Yardımlarınızı bekliyorum..

Örnek dosya eklerseniz cevap alma ihtimaliniz artar.

(01/11/2016, 14:29)alpeki99 yazdı: Örnek dosya eklerseniz cevap alma ihtimaliniz artar.

Eklenmiştir.

Arada konu gözönünden kaçmış kusura bakmayın.

Programda ufak tefek değişiklikler yaptım. Button1 Click olayının kodları şu şekilde:




Buton2 nin Click olayına aşağıdaki kodları yazacağız:


Burada yer alan ArananSatirlariDosyadanSil bir prosedür. Dosyanın adresini ve aranan kelimeyi parametre olarak alıyor. Prosedürümüz şu şekilde olacak:



Siz hosts dosyasında işlem yapmak istemişsiniz. Bu özel bir dosya olduğu için yönetici hakları olmadan çalışmayacaktır.

(06/11/2016, 23:14)alpeki99 yazdı: Arada konu gözönünden kaçmış kusura bakmayın.

Programda ufak tefek değişiklikler yaptım. Button1 Click olayının kodları şu şekilde:

AppDomain.CurrentDomain.SetPrincipalPolicy(PrincipalPolicy.WindowsPrincipal)
    Dim mevcutIlke As WindowsPrincipal = DirectCast(Thread.CurrentPrincipal, WindowsPrincipal)

    ' continue programm
    If mevcutIlke.IsInRole("Administrators") Then

      Using dosya As StreamWriter = File.AppendText(Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.System), "drivers\etc\hosts"))

        dosya.WriteLine(TextBox1.Text)
        MsgBox("Satır eklendi")

      End Using

    Else

      MsgBox("Yönetici haklarınız yok. Programı yönetici hakları ile çalıştırmalısınız.")

    End If

Kodu Seç

Kodu Kopyala

Buton2 nin Click olayına aşağıdaki kodları yazacağız:

    Dim dosyaAdresi As String

    dosyaAdresi = Path.Combine(Environment.GetFolderPath(Environment.SpecialFolder.System), "drivers\etc\hosts")

    ArananSatirlariDosyadanSil(dosyaAdresi, TextBox2.Text)

Kodu Seç

Kodu Kopyala

Burada yer alan ArananSatirlariDosyadanSil bir prosedür. Dosyanın adresini ve aranan kelimeyi parametre olarak alıyor. Prosedürümüz şu şekilde olacak:

Private Sub ArananSatirlariDosyadanSil(ByVal dosyaAdresi As String, ByVal arananKelime As String)

    Dim okunanSatirlar() As String
    Dim temizlenenSatirlar As New List(Of String)

    okunanSatirlar = IO.File.ReadAllLines(dosyaAdresi)

    For Each satir As String In okunanSatirlar

      If satir.Contains(arananKelime) = False Then

        temizlenenSatirlar.Add(satir)

      End If

    Next

    File.Delete(dosyaAdresi)
    File.WriteAllLines(dosyaAdresi, temizlenenSatirlar)

  End Sub

Kodu Seç

Kodu Kopyala

Siz hosts dosyasında işlem yapmak istemişsiniz. Bu özel bir dosya olduğu için yönetici hakları olmadan çalışmayacaktır.

Teşekkürler işime yaradı