3 Haziran 2014 Salı
Dosya İçinden Kelime Değiştirme
Hazır Bir Text dosyasının içinde geçen Sözcükleri Dosyayı açmadan değiştirme örnek kodları
KOD İNDİR
Imports System.IO Public Class Form1 Dim değişeceksöz, yenisöz As String Sub Main() Try Dim newLine As String Using sr As New StreamReader(Application.StartupPath & "\ARIYORUM.txt", System.Text.Encoding.Default) Dim line As String line = sr.ReadToEnd() newLine = line.Replace(TextBox1.Text, TextBox2.Text) End Using Using sw As New StreamWriter(Application.StartupPath & "\ARIYORUM.txt", 0, System.Text.Encoding.Default) sw.Write(newLine) End Using 'IO.File.WriteAllText(Application.StartupPath &"\ARIYORUM.txt", newLine, System.Text.Encoding.Default) Catch e As Exception Console.WriteLine("dosyayı bulamadım:") Console.WriteLine(e.Message) End Try End Sub Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click If TextBox1.Text = "" Then Exit Sub Call Main() End Sub Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click Dim processID As Integer Dim dsy As String = "ARIYORUM.txt" processID = Shell("C:\windows\Notepad.EXE ARIYORUM.txt", AppWinStyle.NormalFocus) AppActivate(processID) End Sub End Class
Hiç yorum yok:
Yorum Gönder
Sonraki Kayıt
Önceki Kayıt
Ana Sayfa
Kaydol:
Kayıt Yorumları (Atom)
Hiç yorum yok:
Yorum Gönder