Classe publique Form1
Poignées privées Button1.Click du sous-marin Button1_Click (expéditeur de ByVal comme System.Object, ByVal e comme System.EventArgs)
Using l'ofd en tant que nouvel OpenFileDialog
Si ofd.ShowDialog = puis Windows.Forms.DialogResult.OK
Essai
Faible txt comme corde = My.Computer.FileSystem.ReadAllText (ofd.FileName)
Debug.Print (« texte original : ")
Debug.Print (« --------------------------------------------------")
Debug.Print (txt)
Debug.Print ("")
Faible modèle comme corde = « (. +) \ 1 {5,} »
txt = System.Text.RegularExpressions.Regex.Replace (txt, modèle, "")
Debug.Print (« texte modifié : ")
Debug.Print (« --------------------------------------------------")
Debug.Print (txt)
'Uncomment que la ligne ci-dessous quand vous êtes sûr le RegEx fonctionne comme désiré !
'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt, faux)
Crochet ex comme exception
MessageBox.Show (« dossier : » et ofd.FileName et vbCrLf et vbCrLf et ex.ToString, « dossier de modification d'erreur », MessageBoxButtons.OK, MessageBoxIcon.Error)
Essai de fin
Finir si
Finir Using
Finir le sous-marin
Finir la classe
|
