Small .NET app to get your MOD LIST from a save!

So i've just made this small vb.net app that allows you to:

-Load your careerSavegame.xml from your savegame

-Automatically sort the mods alphabetically and list them

-Has a button to copy content to clipboard

-Total amount of mods is shown in the upper right corner

​

Thought this might be useful to some:

https://drive.google.com/file/d/1M-j02TMqzQnzZo8-QGgwZg9EhLoH9hqy/view?usp=sharing

​

Screenshots:

https://ibb.co/0qpx1rj

https://ibb.co/ZHL81kX

—————————————

Any comments or suggestions are welcome!

—————————————

Source code if you don't trust me:

Imports System.IO Imports System.Text.RegularExpressions Public Class Form1 Dim FSmodFolder As String Dim FSfilename As String Private Sub Form1_Load(sender As Object, e As EventArgs) Handles Me.Load FSmodFolder = My.Computer.FileSystem.SpecialDirectories.MyDocuments & "My GamesFarmingSimulator2019" FSfilename = FSmodFolder & "My GamesFarmingSimulator2019savegame1careerSavegame.xml" OpenFileDialog1.InitialDirectory = FSmodFolder OpenFileDialog1.DefaultExt = "xml" OpenFileDialog1.Filter = "careerSavegame.xml|careerSavegame.xml" End Sub Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click TextBox1.Text = "" If OpenFileDialog1.ShowDialog <> Windows.Forms.DialogResult.Cancel Then FSfilename = OpenFileDialog1.FileName Dim FSpattern As String = "title=""<^"">*" Dim reader As StreamReader = My.Computer.FileSystem.OpenTextFileReader(FSfilename) Dim line As String = "" Dim newline As String Do line = reader.ReadLine If line Is Nothing Then Exit Do End If Dim mc As MatchCollection = Regex.Matches(line, FSpattern) Dim m As Match For Each m In mc newline = m.ToString & Environment.NewLine 'switches line after each newline = Replace(newline, "&apos;", "'") 'changes &apos; into ' TextBox1.AppendText(newline.Remove(0, 7)) 'removes first 7 chars Next m Loop Until line Is Nothing reader.Close() Dim FSsorted(TextBox1.Lines.Length - 2) As String For i = 0 To TextBox1.Lines.Length - 2 FSsorted(i) = TextBox1.Lines(i) Next i Array.Sort(FSsorted) TextBox1.Lines = FSsorted Label1.Text = TextBox1.Lines.Length & " mods" TextBox1.Focus() End If End Sub Private Sub TextBox1_MouseWheel(sender As Object, e As MouseEventArgs) Handles TextBox1.MouseWheel If e.Delta + 120 Then SendKeys.Send("{PGUP}") ElseIf e.Delta - 120 Then SendKeys.Send("{PGDN}") End If End Sub Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click My.Computer.Clipboard.Clear() My.Computer.Clipboard.SetText(TextBox1.Text) TextBox1.Focus() End Sub End Class