CreateTranslatedRcFiles.vbs: Fix GitHub issue #113. The last translated message in...

diff --git a/ShellExtension/Languages/ShellExtensionLithuanian.rc b/ShellExtension/Languages/ShellExtensionLithuanian.rc
index 114e024..f7f28e0 100644 (file)
--- a/ShellExtension/Languages/ShellExtensionLithuanian.rc
+++ b/ShellExtension/Languages/ShellExtensionLithuanian.rc
@@ -47,7 +47,7 @@ BEGIN
     IDS_COMPARE_TO          "Palyginti su"\r
     IDS_HELP_SAVETHIS       "Iðsaugoti ðá kelià. Parinkti kità kelià ir palyginti su ðiuo keliu."\r
     IDS_HELP_COMPARESAVED   "Palyginti su iðsaugotu keliu (%1)"\r
-    IDS_RESELECT_FIRST      "Re-select First"\r
+    IDS_RESELECT_FIRST      "Ið naujo parinkti pirmà"\r
 END\r
 \r
 #endif    // Resources\r

diff --git a/Translations/ShellExtension/CreateTranslatedRcFiles.vbs b/Translations/ShellExtension/CreateTranslatedRcFiles.vbs
index 55b9907..ee7276a 100644 (file)
--- a/Translations/ShellExtension/CreateTranslatedRcFiles.vbs
+++ b/Translations/ShellExtension/CreateTranslatedRcFiles.vbs
@@ -176,6 +176,9 @@ Function GetTranslationsFromPoFile(ByVal sPoPath, sCharset)
         sMsgStr = ""
       End If
     Loop
+    If (sMsgId <> "") And (sMsgStr <> "") And (sMsgId <> sMsgStr) Then 'If translated...
+      oTranslations.Add sMsgId, sMsgStr
+    End If
     oTextFile.Close
   End If
   Set GetTranslationsFromPoFile = oTranslations