v1.5.1: fixed more typos!

M1kerochip · Apr 12, 2020 · 201ec52 · 201ec52
1 parent 9b6c9f6
commit 201ec52
Show file tree

Hide file tree

Showing 4 changed files with 5 additions and 4 deletions.
diff --git a/My Project/AssemblyInfo.vb b/My Project/AssemblyInfo.vb
@@ -31,5 +31,5 @@ Imports System.Runtime.InteropServices
 ' by using the '*' as shown below:
 ' <Assembly: AssemblyVersion("1.0.*")>
 
-<Assembly: AssemblyVersion("1.5.0.0")>
-<Assembly: AssemblyFileVersion("1.5.0.0")>
+<Assembly: AssemblyVersion("1.5.1.0")>
+<Assembly: AssemblyFileVersion("1.5.1.0")>
diff --git a/bin/Release/RunGreaseWeazel v1.5.1.zip b/bin/Release/RunGreaseWeazel v1.5.1.zip
diff --git a/bin/Release/RunGreaseWeazel.exe b/bin/Release/RunGreaseWeazel.exe
diff --git a/frmMain.vb b/frmMain.vb
@@ -266,10 +266,11 @@ Public Class frmMain
         Dim filen As String
         filen = txtTitle.Text                                                               'Set initial name to Title
         If txtPublisher.Text.Trim <> "" Then
-            filen += txtPublisher.Text                                                      'Add publisher if txt field not blank
+            filen += "_" + txtPublisher.Text                                                      'Add publisher if txt field not blank
         End If
         If cmbDiskOf.Text.Trim <> "" Then
             cmbDisk.Text = cmbDisk.Text.Trim.PadLeft(cmbDiskOf.Text.Length, "0")            'Pad disk number to length of "diskof" field
+            filen += "_"
         End If
         If cmbDisk.Text.Trim <> "" Then
             filen += "Disk" + cmbDisk.Text.Trim                                             'Add disk if disk field not blank
@@ -293,7 +294,7 @@ Public Class frmMain
         Dim extst As String = ".scp"                                                        'Add file extension for SuperCard Pro "SCP"
 
         If chkFilenameRreplaceSpaceWithUnderscore.Checked Then
-            filen = regWhitespace.Replace(filen, String.Empty)                              'Replace all spaces with underscores, if check "replace with underscores" checked.
+            filen = regWhitespace.Replace(filen, "_")                                       'Replace all spaces with underscores, if check "replace with underscores" checked.
         End If
 
         If CheckExists = True Then