Allmänhet klassificerar Form1
Den privata suben Button1_Click (den ByVal avsändaren som System.Object, ByVal e som System.EventArgs) behandlar Button1.Click
Using ofd som nya OpenFileDialog
Om ofd.ShowDialog = Windows.Forms.DialogResult.OK därefter
Försök
Dunkel txt som stränger = My.Computer.FileSystem.ReadAllText (ofd.FileName)
Debug.Print (”original- text: ”)
Debug.Print (”,--------------------------------------------------”)
Debug.Print (txt)
Debug.Print ("")
Dunkelt mönstra som stränger = ”(. +) \ 1 {5,}”,
txt = System.Text.RegularExpressions.Regex.Replace (txt, mönstrar, ""),
Debug.Print (”ändrad text: ”)
Debug.Print (”,--------------------------------------------------”)
Debug.Print (txt)
'Uncomment den nedanföra fodra, när du är säker RegExen, är funktionsduglig som önskad!
'My.Computer.FileSystem.WriteAllText (ofd.FileName, txt som, är falska)
Fånga före detta som undantag
MessageBox.Show (”spara: ” & ofd.FileName & vbCrLf & vbCrLf & ex.ToString, ”felet som ändrar, sparar”, MessageBoxButtons.OK, MessageBoxIcon.Error),
Avsluta försök
Avsluta om
Avsluta Using
Avsluta suben
Avsluta klassificerar
|