Farming Simulator

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

Content of the article: "Small .NET app to get your MOD LIST from a save!"

So i've just made this small 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:



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 


Similar Guides

Top 7 NEW Games of January 2021

New year - new month - new games. Take a look at the first 2021 games you’ll be playing on PC, PS5, PS4, Xbox Series X, Xbox One, Switch, and more.

More about Farming Simulator

Post: "Small .NET app to get your MOD LIST from a save!" specifically for the game Farming Simulator. Other useful information about this game:

Top 10 Best Video Games of 2020 (So Far)

In times of uncertainty, video games allow us to escape from the stress of the real world. For this list, we’ll be looking at some of the best games released in the first half of 2020.

You Might Also Like

Leave a Reply

Your email address will not be published. Required fields are marked *