Changeset 1065 for branches

Timestamp:

May 22, 2020, 3:50:40 AM (5 years ago)

Author:

Alex Taylor

Message:

Fix crash when loading .NDC file without a rwFlag field.

Location:

branches/guitools-arcamap-2.5/evfsgui

Files:

• evfsgui.vrx (modified) (1 diff)
• evfsgui.vry (modified) ( previous)

branches/guitools-arcamap-2.5/evfsgui/evfsgui.vrx

@@ -3678 +3678 @@
         /* Fix Ticket #202 in order to allow blanks in sharenames */
         resline  = LINEIN( filename )
-        nodelen  = pos('\\',resline)-2
+        resstart = pos('\\',resline)
+        if resstart < 2 then iterate
+        nodelen  = resstart-2
         node     = left(resline,nodelen)
-        rwFlag   = word(resline,words(resline))
-        resource = substr(resline,nodelen+2,length(resline)-(nodelen+2)-(length(rwFlag)+1)+1)
+        rwFlag   = ''
+        if words( resline ) > 2 then do
+            rwFlag = word(resline,words(resline))
+            if length ( rwFlag ) > 1 then rwFlag = ''
+        end
+        resource = substr(resline,resstart,length(resline)-(resstart)-(length(rwFlag)+1)+1)
         drop resline
+        drop resstart
         drop nodelen