[Winmerge-svn] SF.net SVN: winmerge: [4434] branches/PO_translations_test/Src/Languages/ CreateRcFilesFromPoFiles.vbs

[<ge...@us...>]

Revision: 4434
          http://winmerge.svn.sourceforge.net/winmerge/?rev=4434&view=rev
Author:   gerundt
Date:     2007-08-14 15:06:36 -0700 (Tue, 14 Aug 2007)

Log Message:
-----------
Improve speed from "CreateRcFilesFromPoFiles.vbs" script about 40-50%! :)

Modified Paths:
--------------
    branches/PO_translations_test/Src/Languages/CreateRcFilesFromPoFiles.vbs

Modified: branches/PO_translations_test/Src/Languages/CreateRcFilesFromPoFiles.vbs
===================================================================
--- branches/PO_translations_test/Src/Languages/CreateRcFilesFromPoFiles.vbs	2007-08-14 21:51:28 UTC (rev 4433)
+++ branches/PO_translations_test/Src/Languages/CreateRcFilesFromPoFiles.vbs	2007-08-14 22:06:36 UTC (rev 4434)
@@ -91,17 +91,19 @@
       sLine = Trim(oTextFile.ReadLine)
       
       If (sLine <> "") Then 'If NOT empty line...
-        If (FoundRegExpMatch(sLine, "^msgid ""(.*)""$", oMatch) = True) Then 'If "msgid"...
-          iMsgStarted = 1
-          sMsgId = oMatch.SubMatches(0)
-        ElseIf (FoundRegExpMatch(sLine, "^msgstr ""(.*)""$", oMatch) = True) Then 'If "msgstr"...
-          iMsgStarted = 2
-          sMsgStr = oMatch.SubMatches(0)
-        ElseIf (FoundRegExpMatch(sLine, "^""(.*)""$", oMatch) = True) Then 'If "msgid" or "msgstr" continued...
-          If (iMsgStarted = 1) Then
-            sMsgId = sMsgId & oMatch.SubMatches(0)
-          ElseIf (iMsgStarted = 2) Then
-            sMsgStr = sMsgStr & oMatch.SubMatches(0)
+        If (Left(sLine, 1) <> "#") Then 'If NOT comment line...
+          If (FoundRegExpMatch(sLine, "^msgid ""(.*)""$", oMatch) = True) Then 'If "msgid"...
+            iMsgStarted = 1
+            sMsgId = oMatch.SubMatches(0)
+          ElseIf (FoundRegExpMatch(sLine, "^msgstr ""(.*)""$", oMatch) = True) Then 'If "msgstr"...
+            iMsgStarted = 2
+            sMsgStr = oMatch.SubMatches(0)
+          ElseIf (FoundRegExpMatch(sLine, "^""(.*)""$", oMatch) = True) Then 'If "msgid" or "msgstr" continued...
+            If (iMsgStarted = 1) Then
+              sMsgId = sMsgId & oMatch.SubMatches(0)
+            ElseIf (iMsgStarted = 2) Then
+              sMsgStr = sMsgStr & oMatch.SubMatches(0)
+            End If
           End If
         End If
       Else 'If empty line


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.